PureBoard

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

Code: Alles auswählen

  TextGadget(#Position, 205, 70, 60, 20, "...")
  
  AddWindowTimer(0, 101, 1000)