CalenderGadGet [ERLEDIGT]

[Pure_Beginner]

Hallo Leute,

wie immer Probleme !!!

folgender Code funktioniert nur manchmal

was mach ich falsch ?

Code: Alles auswählen

Enumeration 
  #CALENDAR
  #WINDOW 
EndEnumeration



If OpenWindow(#WINDOW, 0, 0, 420, 400, "CalendarGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  CalendarGadget(#CALENDAR, 10, 10, 400, 380)
  
 
  Repeat
    GadgetID = EventGadget()
    EventID  = WaitWindowEvent()
    
    
    Select EventID
      Case #PB_Event_Gadget
        Select EventGadget()
          Case #CALENDAR
            
            Debug FormatDate("%dd.%mm.%yyyy", GetGadgetState(#CALENDAR))
        EndSelect
    EndSelect
    
  Until WaitWindowEvent() = #PB_Event_CloseWindow
  

EndIf

Bin schon eine ganze Weile am suchen

Grüße
Christian

[RSBasic]

Warum rufst du WaitWindowEvent() zweimal auf?

[Pure_Beginner]

@RSBasic

weil ich doof bin.

Such schon Ewigkeiten rum und bin am verzweifel und dann sowas,
blamiert bis auf die Knochen

Danke für deine Hilfe

Grüße
Christian