XProfan

English

Description:

ScreenToClient GetControlParas (B Bildschirmkoordinaten in Fensterkoordinaten circa

Deklaration:

Def @ScreenToClient(2) !USER32,ScreenToClient

Parameter:

1.Parameter: lever the Fensters, the The Coordinates related go should.

2.Parameter: POINT Structure or 8 Bytes large Memory-Variable, The The Bildschirmkoordinaten contains. =>
-byte 0-3 = X-Koordinate
-byte 4-7 = Y-Koordinate

Return Value:

1 with erfolgreicher conversion, 0 with Error.

Examples:

Compile Mark Separation

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