Verfasst: 17.10.2004 18:01
Wenn du dich schon darauf hinab lässt, das Limit von Hand
einzuprogrammieren, kann man das ganze aber gehörig vereinfachen
Ich bin jetzt aber erstmal die nächste Woche offline, von daher nicht
wundern, wenn eine etwaige Antwort *etwas* verspätet kommen sollte.
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)wundern, wenn eine etwaige Antwort *etwas* verspätet kommen sollte.