XProfan

Français

Beschreibung:

GetClientRect ermittelt den beschreibbaren Bereich (Clientbereich) eines Fensters

Deklaration:

paramètre:

1.paramètre: Handle des Fensters comme LongInt.

2.paramètre: RECT Struktur ou bien 16 Bytes grand Bereichsvariable, qui Informationen sur qui Eckpunkte des beschreibbaren Bereichs aufnimmt. =>
-Byte 0-3 = X-Koordinate qui linken oberen coin des beschreibbaren Bereichs.
-Byte 4-7 = Y-Koordinate qui linken oberen coin des beschreibbaren Bereichs.
-Byte 8-11 = X-Koordinate qui rechten unteren coin des beschreibbaren Bereichs.
-Byte 12-15 = Y-Koordinate qui rechten unteren coin des beschreibbaren Bereichs.

Rückgabewert:

1 chez Erfolg, 0 chez faute.

Beispiele:

Kompilieren Marque Séparation

DEF @GetClientRect(2) !USER32,GetClientRect
Windowstyle 31
Windowtitle Beschreibbarer bereich eines Fensters
Window 0,0-640,440
Declare ClientRect#
DIM ClientRect#,16
Usepen 1,1,@RGB(32,0,0)
Rectangle 0,0-640,440 nicht sichtbar
Drawtext 20,20,Nicht alle Linien sind sichtbar!
Drawtext 20,40,Mal ins Fenster klicken!
Waitinput
@GetClientRect(%HWND,ClientRect#)
Usepen 1,1,@RGB(0,32,0)
Rectangle @LONG(ClientRect#,0),@LONG(ClientRect#,4)-@LONG(ClientRect#,8),@LONG(ClientRect#,12) sichtbar
Drawtext 20,20,So solls sein, jetzt sind alle Linien sind sichtbar!
Drawtext 20,40,
Dispose ClientRect#

While 0=0

    Waitinput

Wend