Repeat
EventID = WaitWindowEvent()
If EventID = #PB_Event_Gadget
;***************************
If EventGadgetID()=#von Or EventGadgetID()=#bis
If GetGadgetState(#bis)<GetGadgetState(#von):SetGadgetState(#bis,GetGadgetState(#von)):EndIf
EndIf
;***************************
If EventGadgetID()=#Button_8
; ...
EndIf
If EventID=#PB_Event_CloseWindow:Quit=1:EndIf
Until Quit=1
Case #von
If GetGadgetState(#bis)<GetGadgetState(#von)
SetGadgetState(#bis,GetGadgetState(#von))
EndIf
Case #bis
If GetGadgetState(#bis)<GetGadgetState(#von)
SetGadgetState(#bis,GetGadgetState(#von))
EndIf
Case #AbsenButton
;AbsendProcedure
Case #Stringfield
If EventType() = #PB_EventType_ReturnKey
;AbsendProcedure
EndIf
Das ist Tux. Kopiere Tux in deine Signatur und hilf ihm so auf seinem Weg zur Weltherrschaft.