PureBasic 3.92 beta 1 für Windows released

[Lars]

Wenn du dich schon darauf hinab lässt, das Limit von Hand
einzuprogrammieren, kann man das ganze aber gehörig vereinfachen

Code: Alles auswählen

;SetGadgetState(): setzt das aktuell anzuzeigende Datum. 
;GetGadgetState(): ermittelt das aktuell angezeigte Datum. 

OpenWindow(0, 0, 0, 320, 200, #PB_Window_SystemMenu|#PB_Window_ScreenCentered,"CalendarGadget()") 
CreateGadgetList(WindowID()) 
CalendarGadget(0, 10, 10, 200, 180 ) 


Repeat 
  Event = WaitWindowEvent() 
  
  If GetGadgetState(0) < Date()
    SetGadgetState(0, Date()) 
  EndIf 
Until Event = #PB_Event_CloseWindow 


Datum$ = FormatDate("%dd-%mm-%yyyy", GetGadgetState(0)) 


MessageRequester("Deine Wahl", "Datum: "+Datum$, 0)

Ich bin jetzt aber erstmal die nächste Woche offline, von daher nicht
wundern, wenn eine etwaige Antwort *etwas* verspätet kommen sollte.