WindowStyle $0074
Window 0,0-%maxX,%maxY
Declare x%,y%,endx%,endy%,message&,newwin&,message$
Cls
UsePen 2,1,@RGB(0,0,0)
UseBrush 1,@RGB(0,0,0)
message&=CreateText(%hwnd,"(C) Michael Stapelberg 2001",0,0,%maxX,21)
message&=CreateText(%hwnd,"Klicken sie mit der Maus,halten sie die linke Maustaste gedrückt und ziehen bestimmen sie die Größe und Postion des Fenster!",0,21,%maxX,21)
WaitMouse
x%=%MouseX
y%=%mouseY
While %MousePressed
If Or(Gt(endx%,%mouseX),Gt(endy%,%mouseY))
Cls
UseBrush 1,@RGB(0,0,0)
EndIf
Rectangle x%,y%-%mouseX,%mouseY
endx%=%mouseX
endy%=%mouseY
' Wichtigster Programmteil /\
Wend
message$=Add$("Quelltext: Window ",x%)
message$=Add$(message$,",")
message$=Add$(message$,y%)
message$=Add$(message$,"-")
message$=Add$(message$,endx%)
message$=Add$(message$,",")
message$=Add$(message$,endy%)
Cls
newwin&=CreateDialog(%hwnd,"Fertiges Fenster!",x%,y%,Sub(endx%,x%),Sub(endy%,y%))
message&=CreateText(%hwnd,message$,0,42,%maxX,21)
WaitMouse
End