XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Fenster: Clientbereich ermitteln (1)
Lauffähig ab Profan-Version 5.0
Ausgabegebiet eines Controls ermitteln
Andreas Miethe * Bielefeld * 1999
#######################################
32-Bit
DEF @AGetClientRect(2) ! USER32,GetClientRect
16-Bit
DEF @AGetClientRect(2) * USER,GetClientRect,%#,
Declare Rect#
Dim Rect#,16
CLS
@AGetClientRect(%hwnd,Rect#)
Print Long(Rect#,0)
Print Long(Rect#,4)
Print Long(Rect#,8)
Print Long(Rect#,12)
Waitinput
Dispose Rect#
End