Dategadget aufgeklappt darstellen
Verfasst: 21.02.2017 22:14
Wie kann ich ein Dategadget aufgeklappt darstellen, ohne dass ich es mit der Maus auf den Button klicken muss.
Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/
Code: Alles auswählen
EnableExplicit
If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
CalendarGadget(1, 10, 10, 200, 200)
Repeat
Select WaitWindowEvent()
Case #PB_Event_Gadget
Select EventGadget()
Case 1
Debug FormatDate("%dd.%mm.%yyyy", GetGadgetState(1))
EndSelect
Case #PB_Event_CloseWindow
End
EndSelect
ForEver
EndIf