XProfan

English

Description:

GetClientRect determined whom beschreibbaren area (Clientbereich) one Fensters

Deklaration:

Parameter:

1.Parameter: lever the Fensters as LongInt.

2.Parameter: RECT Structure or 16 Bytes large Memory-Variable, The Information over The Eckpunkte the beschreibbaren Bereichs aufnimmt. =>
-byte 0-3 = X-Koordinate the left oberen corner the beschreibbaren Bereichs.
-byte 4-7 = Y-Koordinate the left oberen corner the beschreibbaren Bereichs.
-byte 8-11 = X-Koordinate the rechten downstairs corner the beschreibbaren Bereichs.
-byte 12-15 = Y-Koordinate the rechten downstairs corner the beschreibbaren Bereichs.

Return Value:

1 with success, 0 with Error.

Examples:

Compile Mark Separation

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