XProfan

Español

Descripción:

ClientToScreen rechnet una Punkt de el Clientbereich uno Fensters en seine Koordinaten en el Bildschirm en.

Deklaration:

Def @ClientToScreen(2) !USER32,ClientToScreen

Parámetro:

1.Parámetro: Handle la ventana, de el una Punkt dee Clientbereichs en el Bildschirm umgerechnet voluntad se.

2.Parámetro: POINT Struktur oder 8 Byte Bereichsvariable, el el Koordinaten des Punktes en el Clientbereich enthält.=>
-Byte 0-3 = X-Koordinate des Punktes.
-Byte 4-7 = Y-Koordinate des Punktes.

Rückgabewert:

0 en Fehler, 1 en Erfolg.

Beispiele:

Kompilieren Marca Separación

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 Marca Separación

windowstyle 31
Windowtitle Höhe des Fenstertitels ermitteln
Ventana 0,0-640,440
Declarar c2sstrc#,YSCREEN&
Def @ClientToScreen(2) !USER32,ClientToScreen
dim c2sstrc#,8
clear c2sstrc#
@ClientToScreen(%HWND,c2sstrc#)
LET YSCREEN&=@Largo(c2sstrc#,4)
Disponer c2sstrc#
PRint Höhe des Fenstertitels en Pixeln=+@Str$(YSCREEN&)

Mientras que 0=0

    Waitinput

Wend