XProfan

Deutsch

Beschreibung:

ClientToScreen rechnet einen Punkt aus dem Clientbereich eines Fensters in seine Koordinaten auf dem Bildschirm um.

Deklaration:

Def @ClientToScreen(2) !USER32,ClientToScreen

Parameter:

1.Parameter: Handle des Fensters, von dem ein Punkt dee Clientbereichs auf den Bildschirm umgerechnet werden soll.

2.Parameter: POINT Struktur oder 8 Byte Bereichsvariable, die die Koordinaten des Punktes im Clientbereich enthält.=>
-Byte 0-3 = X-Koordinate des Punktes.
-Byte 4-7 = Y-Koordinate des Punktes.

Rückgabewert:

0 bei Fehler, 1 bei Erfolg.

Beispiele:

Kompilieren Markieren Separieren

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 Markieren Separieren

windowstyle 31
Windowtitle Höhe des Fenstertitels ermitteln
Window 0,0-640,440
Declare c2sstrc#,YSCREEN&
Def @ClientToScreen(2) !USER32,ClientToScreen
dim c2sstrc#,8
clear c2sstrc#
@ClientToScreen(%HWND,c2sstrc#)
LET YSCREEN&=@Long(c2sstrc#,4)
Dispose c2sstrc#
PRint Höhe des Fenstertitels in Pixeln=+@Str$(YSCREEN&)

While 0=0

    Waitinput

Wend