PureBasic Forums - English

Code: Select all

OpenWindow(0, 100, 100, 200, 200, "DateGadget")
DateGadget(0, 10, 10, 180, 25, "Date: %mm/%dd/%yyyy")
Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow

Code: Select all

OpenWindow(0, 100, 100, 200, 200, "DateGadget")
DateGadget(0, 10, 10, 180, 25, "Date: %mm/%dd/%yyyy %hh:%ii")
Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow

Code: Select all

OpenWindow(0, 100, 100, 200, 400, "DateGadget")
DateGadget(0, 10, 10, 180, 25, "Date: %mm/%dd/%yyyy 23:00") ; false
DateGadget(1, 10, 190, 180, 25, "Date: %mm/%dd/%yyyy 23:59") ; false

Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow

Code: Select all

If OpenWindow(0, 0, 0, 250, 200, "CalendarGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  CalendarGadget(0, 10, 10, 230, 180);, Date(2016,2,27,23,59,0))
  Repeat
    ev = WaitWindowEvent()
    Select ev
      Case #PB_Event_Gadget
        Select EventGadget()
          Case 0
            Debug GetGadgetText(0)
        EndSelect
        
    EndSelect
    
  Until ev = #PB_Event_CloseWindow
EndIf