weiß jemand warum hier die ShowPosition() nie aufgerufen wird?
Code: Alles auswählen
EnableExplicit
Enumeration
#Position
EndEnumeration
Declare Start()
Declare ShowPosition()
Declare onExit()
Start()
Procedure Start()
OpenWindow(0, 0, 0, 300, 100, "", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
TextGadget(#Position, 245, 70, 30, 20, "...")
BindEvent(#PB_Event_Timer, @ShowPosition(), 0, 101)
BindEvent(#PB_Event_CloseWindow, @onExit())
Repeat : WaitWindowEvent(10)
ForEver
EndProcedure
Procedure ShowPosition()
SetGadgetText(#Position, FormatDate("%ii:%ss", Date()))
EndProcedure
Procedure onExit()
End
EndProcedure