XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Hauptfenster: Eigenschaften ermitteln
Ein PROFAN-Beispiel Quelltext von Achim Engelhardt
Profan-Vers.: 6.5 oder höher
Ich habe deswegen keine weiteren Zwischenvariablen benutzt,
um jede Zeile einzeln benutzen zu können
DECLARE A%
Let A%=@GetActiveWindow()
def GetWindowRect(2) !USER32,GetWindowRect
Declare TRect#,Text#
Dim TRect#,16
Decimals 0
WindowStyle 31
Window 10,10-500,500
Let A%=%HWND
GetWindowRect(A%,TRect#)
CLS
print Fenstertitel: ;@GetText$(A%)
print Position der Fenster-Eckpunkte:
print AnfangX:;long(TRect#,0)
print AnfangY:;long(TRect#,4)
print EndeX: ;long(TRect#,8)
print EndeY: ;long(TRect#,12)
Print Also Breite:;@SUB(@INT(long(TRect#,8)),@INT(long(TRect#,0)))
Print Also Höhe:;@SUB(@INT(long(TRect#,12)),@INT(long(TRect#,4)))
Print Clientgröße X:;@Width(A%)
Print Clientgröße Y:;@Height(A%)
Print Also Rahmenbreite:;@DIV(@SUB(@SUB(@INT(long(TRect#,8)),@INT(long(TRect#,0))),@INT(@Width(A%))),2)
Print Also Höhe von Titelleiste und Menü:;@SUB(@SUB(@SUB(@INT(long(TRect#,12)),@INT(long(TRect#,4))),@Height(A%)),@DIV(@SUB(@SUB(@INT(long(TRect#,8)),@INT(long(TRect#,0))),@INT(@Width(A%))),2))
Print Also Höhe von Titelleiste und Menü ohne Rahmen:;@SUB(@SUB(@SUB(@INT(long(TRect#,12)),@INT(long(TRect#,4))),@Height(A%)),@SUB(@SUB(@INT(long(TRect#,8)),@INT(long(TRect#,0))),@INT(@Width(A%))))
Dispose TRect#
WaitInput