XProfan

Français

Beschreibung:

ClientToScreen rechnet une Punkt aus dem Clientbereich eines Fensters dans sa Koordinaten sur dem Bildschirm um.

Deklaration:

Def @ClientToScreen(2) !USER32,ClientToScreen

paramètre:

1.paramètre: Handle des Fensters, de dem un Punkt dee Clientbereichs sur den Bildschirm umgerechnet volonté soll.

2.paramètre: POINT Struktur ou bien 8 Byte Bereichsvariable, qui qui Koordinaten des Punktes im Clientbereich contient.=>
-Byte 0-3 = X-Koordinate des Punktes.
-Byte 4-7 = Y-Koordinate des Punktes.

Rückgabewert:

0 chez faute, 1 chez Erfolg.

Beispiele:

Kompilieren Marque Séparation

declare w1&,w2&
declare c2sstrc#
def @ClientToScreen(2) !USER32,ClientToScreen
def @g2lx(0) @long(c2sstrc#,0)
def @g2ly(0) @long(c2sstrc#,4)

proc g2l

    parameters  hdl&
    clear c2sstrc#
    @ClientToScreen(hdl&,c2sstrc#)

endproc

dim c2sstrc#,8
windowstyle 31+512
Windowtitle Fensterkoordinaten ermitteln
Window 0,0-640,440
w1&=@createdialog(%hwnd,Dialog 1,100,100,200,200)
w2&=@createdialog(%hwnd,Dialog 2,(%maxx-300),200,200,200)

whilenot %MENUITEM=-2

    Sleep 100
    g2l w1&
    Textcolor @RGB(31,0,0),@RGB(32,32,32)
    Drawtext 0,0,Koordinaten von Dialog 1: +@STR$(@g2lx())+   +@STR$(@g2ly())+@Space$(255)
    g2l w2&
    Drawtext 0,30,Koordinaten von Dialog 2: +@STR$(@g2lx())+   +@STR$(@g2ly())+@Space$(255)

wend

@Destroywindow(W1&)
@Destroywindow(W2&)
CLS
Usefont Times New Roman,30,15,1,0,0
Drawtext 0,0,Besten Dank an IF für diese Idee!
dispose c2sstrc#
Usecursor 2
sleep 2000
end

Kompilieren Marque Séparation

style de fenêtre 31
Windowtitle Hauteur des Fenstertitels ermitteln
Fenêtre 0,0-640,440
Déclarer c2sstrc#,YSCREEN&
Def @ClientToScreen(2) !USER32,ClientToScreen
dim c2sstrc#,8
clear c2sstrc#
@ClientToScreen(%HWND,c2sstrc#)
LET YSCREEN&=@Long(c2sstrc#,4)
Dispose c2sstrc#
PRint Hauteur des Fenstertitels dans Pixeln=+@Str$(YSCREEN&)

Tandis que 0=0

    Waitinput

Wend