XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Titelzeilenhöhe bestimmen (ab Profan² 6.6)
Ab XProfan 10 gibt es hierfür die Systemvariable %cyCaption
WindowStyle 24
CLS
Def @GetWindowRect(2) !user32.dll,GetWindowRect
Declare FensterPosition#, FensterY1&, FensterY2&, cycaption&
Dim FensterPosition#,16
@GetWindowRect(%HWND,FensterPosition#)
Let FensterY1&=@Long(FensterPosition#,4)
Let FensterY2&=@Long(FensterPosition#,12)
Dispose FensterPosition#
Let cycaption&=(FensterY2&-FensterY1&)-@Height(%HWND)
print cycaption&