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")
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