I'm trying to get the date and option gadgets to generate a #PB_EventType_Change message.
I've tried the trick (API call) that enables changes for the Editor gadget but it doesn't work for these.
Would be grateful for a hint!
 
 Many thanks
 
 Code: Select all
If OpenWindow(0, 0, 0, 200, 250, "DateGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
 
  DateGadget(0, 10, 10, 180, 25, "Datum: %mm/%dd/%yyyy Time: %hh:%ii")
 
  Exit = #False
  Repeat
    Event = WaitWindowEvent()
    Select Event
      Case #PB_Event_Gadget
        Select EventGadget
          Case 0 : Debug "Changed"
        EndSelect
      Case #PB_Event_CloseWindow
        Exit = #True
    EndSelect
  Until Exit
 
EndIfCode: Select all
If OpenWindow(0, 0, 0, 140, 110, "OptionGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  
  OptionGadget(0, 30, 20, 60, 20, "Option 1")
  OptionGadget(1, 30, 45, 60, 20, "Option 2")
  OptionGadget(2, 30, 70, 60, 20, "Option 3")
  SetGadgetState(1, 1)   ; wir setzen die zweite Option als aktiv
    
  Exit = #False
  Repeat
    Event = WaitWindowEvent()
    Select Event
      Case #PB_Event_Gadget
        
        Select EventGadget()
          Case 0 : Debug 1
          Case 1 : Debug 2
          Case 2 : Debug 3
        EndSelect
        
      Case #PB_Event_CloseWindow
        Exit = #True
    EndSelect
  Until Exit
EndIf 
  
 
Code: Select all
If OpenWindow(0, 0, 0, 140, 110, "OptionGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
 
  OptionGadget(0, 30, 20, 60, 20, "Option 1")
  OptionGadget(1, 30, 45, 60, 20, "Option 2")
  OptionGadget(2, 30, 70, 60, 20, "Option 3")
  SetGadgetState(1, 1)   ; wir setzen die zweite Option als aktiv
   
  Exit = #False
  Repeat
    Event = WaitWindowEvent()
    Select Event
      Case #PB_Event_Gadget
       
        Select EventGadget()
          Case 0
            If EventType() = #PB_EventType_LeftClick : Debug 1 : EndIf
          Case 1 : Debug 2
          Case 2 : Debug 3
        EndSelect
       
      Case #PB_Event_CloseWindow
        Exit = #True
    EndSelect
  Until Exit
EndIf  
 
And since there is only one event,ts-soft wrote:The only eventtype was "#PB_EventType_LeftClick"
 )
 ) 
 We talking about 4.60, Date- and Optiongadget, not ComboboxGadgetUSCode wrote:Are we talking about 4.60?

