XProfan

Italia

Beschreibung:

GetClientRect ermittelt den beschreibbaren Bereich (Clientbereich) eines Fensters

Deklaration:

Parameter:

1.Parameter: Handle des Fensters als LongInt.

2.Parameter: RECT Struktur oder 16 Bytes grande Bereichsvariable, die Informationen circa die Eckpunkte des beschreibbaren Bereichs aufnimmt. =>
-Byte 0-3 = X-Koordinate der linken oberen Ecke des beschreibbaren Bereichs.
-Byte 4-7 = Y-Koordinate der linken oberen Ecke des beschreibbaren Bereichs.
-Byte 8-11 = X-Koordinate der rechten unteren Ecke des beschreibbaren Bereichs.
-Byte 12-15 = Y-Koordinate der rechten unteren Ecke des beschreibbaren Bereichs.

Rückgabewert:

1 bei Erfolg, 0 bei Fehler.

Beispiele:

Kompilieren Markieren Separieren

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