| Ein unnützes Programm für B+ Einsteiger von ??? |
| Ein unnützes Programm :) Aber ein Beispiel wie man mit B+ und der GUI umgehen kann. Leider kann man MouseX() und MouseY() noch nicht auf dem Desktop anwenden, sonst hätte ich was anderes noch gemacht. [code:1:4a3c45ddfc] dw=GadgetWidth(Desktop()) dh=GadgetHeight(Desktop()) ww=200 wh=120 wx=dw/2-ww/2 wy=dh/2-wh/2 win = CreateWindow("klick mich ;-)", wx, wy, ww, wh, Desktop(), 1+8) bw=100 bh=20 bx=ww/2-bw/2 by=wh/2-(bh+14) button = CreateButton("Schliessen", bx, by, bw, bh, win) While WaitEvent() Select EventID() Case $101 ; KeyDown If EventData() = 16 Then End ; 16 = SC("Q") Case $401 ; GadgetAction If EventSource() = button Then SetGadgetShape win, Rand(0,dw-ww), Rand(0,dh-wh), ww, wh EndIf Case $803 ; WindowClose SetGadgetShape win, Rand(0,dw-ww), Rand(0,dh-wh), ww, wh SetStatusText win, "äschibäschi" If timer <> 0 Then FreeTimer timer timer = CreateTimer(1) Case $4001 ; TimerTick If EventSource() = timer Then SetStatusText win, "" EndIf End Select Wend End [/code:1:4a3c45ddfc] |