XProfan

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