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
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 : 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?