XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Bildschirmkoordinaten in Fensterkoordinaten umrechnen
Def @Getcursorpos(1) !USER32,GetCursorPos
Def @Screentoclient(2) !USER32,ScreenToClient
Windowstyle 31
Windowtitle Globale Mauskoordinaten in Fensterposition umrechnen
Window 50,75-600,350
Declare Pos#

While 0=0

    Sleep 10
    Dim Pos#,8
    Getcursorpos(Pos#)
    Drawtext 0,0,Global X=+@Str$(@Long(Pos#,0))+@Space$(100)
    Drawtext 0,20,Global Y=+@Str$(@Long(Pos#,4))+@Space$(100)
    @Screentoclient(%Hwnd,Pos#)
    Drawtext 0,40,Lokal X=+@Str$(@Long(Pos#,0))+@Space$(100)
    Drawtext 0,60,Lokal Y=+@Str$(@Long(Pos#,4))+@Space$(100)
    Dispose Pos#

Wend