PureBoard

Code: Alles auswählen

Enumeration 
  #CALENDAR
  #WINDOW 
EndEnumeration



If OpenWindow(#WINDOW, 0, 0, 420, 400, "CalendarGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  CalendarGadget(#CALENDAR, 10, 10, 400, 380)
  
 
  Repeat
    GadgetID = EventGadget()
    EventID  = WaitWindowEvent()
    
    
    Select EventID
      Case #PB_Event_Gadget
        Select EventGadget()
          Case #CALENDAR
            
            Debug FormatDate("%dd.%mm.%yyyy", GetGadgetState(#CALENDAR))
        EndSelect
    EndSelect
    
  Until WaitWindowEvent() = #PB_Event_CloseWindow
  

EndIf