Code: Alles auswählen
EnableExplicit
Procedure.i Demo(Width.i,Height.i)
Protected window.i
Protected window_flag.i
Protected window_msg.i
Protected button.i
Protected counter.i
Protected info.i
window_flag = #PB_Window_SystemMenu|#PB_Window_ScreenCentered
window = OpenWindow(#PB_Any,#Null,#Null,Width,Height,"Demo",window_flag)
If window
button = ButtonGadget(#PB_Any,10,10,80,20,"Toggle Timer",#PB_Button_Toggle)
info = TextGadget(#PB_Any,100,10,80,20,"0 sec",#PB_Text_Center|#PB_Text_Border)
If button And info
AddWindowTimer(Window,0,1000)
Repeat
window_msg = WaitWindowEvent()
Select window_msg
Case #PB_Event_CloseWindow
Break
Case #PB_Event_Timer
If GetGadgetState(button)
counter + 1
SetGadgetText(info,Str(counter) + " sec")
EndIf
EndSelect
ForEver
EndIf
CloseWindow(window)
EndIf
EndProcedure
Demo(200,80)
End