[API] Mausposition ermitteln, Problem

[php-freak]

Hallo,

sorry das ich einen zweiten Thread aufmache aber dieses Problem ist viel Allgemeiner!

hab folgeden Code aus der API Lib von RSBasic!

Code: Alles auswählen

Procedure Thread()
  Repeat
    GetCursorPos_(Coords.POINT)
    SetGadgetText(1,"Mausposition: x="+Str(Coords\x)+" y="+Str(Coords\y))
    Delay(10)
  ForEver
EndProcedure

If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  If CreateGadgetList(WindowID(0))
    TextGadget(1,10,10,200,20,"",0)
  EndIf
  CreateThread(@Thread(),0)
Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf

^^Funktioniert so auch gut!

Aber man krieg das ganze nicht aus der Procedure raus!

Weder mit ProcedureReturn noch mit Global die Variable auch außerhalb verfügbar machen! Dann kommt ein Error das Coords\x oder Coords\y keine Structure hat!

Und wenn man dafür nen Structure macht fuktioniert es immernochnicht

Klar man kann es eventuell in den Speicher schreiben allerdings ist dies ja umständlicher als normal!

Gruß

JENS

[STARGÅTE]

warum API ?

Es gibt doch in PB:
DesktopMouseX und DesktopMouseY

[php-freak]

Keine Ahnung! API MAG ICH! Naja! Dann mach ichs halt so!

[Andesdaf]

aber wenns in PB einfacher geht...

[X0r]

>Weder mit ProcedureReturn noch mit Global die Variable auch außerhalb verfügbar machen! Dann kommt ein Error das Coords\x oder Coords\y keine Structure hat!

Was genau aus der Prozedur? Das Objekt? Natürlich geht das:

Code: Alles auswählen

Procedure GetPoint()
;...
*Coords.Point
*Coords=HeapAlloc_(GetProcessHeap_(),$00000008 ,SizeOf(Point))
ProcedureReturn *Coords
EndProcedure
;...
*abc.Point
*abc=GetPoint()

Ist aber sicherlich zu hoch für dich, nimm die PB Lib-Funktionen.

[Kaeru Gaman]

das Hauptproblem ist, dass du eine fertige Procedur nimmst die als Thread laufen soll,
anstatt zu verstehen was die API-Funktion dir zurückliefert und das in deiner eigenen Schleife zu verwenden.

[Kaeru Gaman]

la le lu.. gedaddelt in den schuh...

Code: Alles auswählen

If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
Define Coords.POINT
  Repeat
    Event = WaitWindowEvent(100)
    GetCursorPos_(Coords)
    OutText1$ = "x="+Str(Coords\x)+" y="+Str(Coords\y)
    MapWindowPoints_( 0, WindowID(0), Coords, 1 ) 
    StartDrawing( WindowOutput( 0 ) )
      Box( 0,0, 500, 250 )
      DrawText(0,0,OutText1$,$CC9933,0)
      LineXY(   0,   0, Coords\x,Coords\y, $00FFFF )
      LineXY( 500,   0, Coords\x,Coords\y, $00FFFF )
      LineXY(   0, 250, Coords\x,Coords\y, $00FFFF )
      LineXY( 500, 250, Coords\x,Coords\y, $00FFFF )
    StopDrawing()
  Until Event = #PB_Event_CloseWindow
EndIf

[X0r]

Da oben hab ich ihm ne fertige Prozedur gegeben. Eine winzige Sache fehlt da noch. Bin mal gespannt, ob ers hinbekommt. bin überhaupt mal gespannt, ob er merkt, ob die Funktion überhaupt Sinn macht.

[edel]

Das wirkliche Problem ist der fehlende Parameter bei der Threadfunktion.
Sollte RSBasic auch schnellstens aendern.

[RSBasic]

@edel
Wird am WE gemacht.

\\Edit:
Ne ich machs jetzt schnell^^