XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Clientbereich ermitteln (2)
DEF @GetClientRect(2) !USER32,GetClientRect
Windowstyle 31
Windowtitle Size of a Window
Window 0,0-640,440
Declare ClientRect#
DIM ClientRect#,16
Usepen 1,1,@RGB(32,0,0)
Rectangle 0,0-640,440 not visible
Drawtext 20,20,Not all lines are visible!
Drawtext 20,40,Please click on window!
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,Now all lines are visible!
Drawtext 20,40,
Dispose ClientRect#

While 0=0

    Waitinput

Wend