Autor: Heinz Brill (---.dip0.t-ipconnect.de)
Datum: 10.06.18 13:50
Dafür gibt es doch 4 Systemvariablen, die immer gesetzt sind.
Wenn %Key = 4 ist, hat sich die Größe geändert.
Und wenn das Fenster bewegt wird, sendet Windows ein wm_move.
Window 800, 600
UserMessages $0003 ' wm_Move
Locate 1, 1 : Print "Mit der Maus die Ränder ziehen !"
Locate 2, 1 : Print "--------------------------------"
WhileNot %Key = 2 ' Schließen-Kreuz
WaitInput
If %Key = 4 ' Ein Fenster des Programmes wurde in der Größe verändert
ZeigeKoordinaten()
EndIf
If %UMessage = $0003 ' Fenster wurde bewegt
ZeigeKoordinaten()
EndIf
EndWhile
Proc ZeigeKoordinaten
Locate 4, 1 : Print "X-Koordinate linker Rand : ", %WinLeft
Locate 5, 1 : Print "X-Koordinate rechter Rand : ", %WinRight
Locate 6, 1 : Print "Y-Koordinate unterer Rand : ", %WinBottom
Locate 7, 1 : Print "Y-Koordinate oberer Rand : ", %WinTop
EndProc
End
vielleicht hilft dir das schon.
H.Brill
XProfan X4 + FreeProfan
Nachricht bearbeitet (10.06.18 18:03)
|
|
