ButtonGadget in Statusbar

[topsoft]

Hallo, ich möchte ein Buttongadget in der Statusbar anzeigen. Folgender Code:

Code: Alles auswählen

If OpenWindow(0, 100, 150, 300, 100, "PureBasic - StatusBar Example", #PB_Window_SystemMenu | #PB_Window_SizeGadget)
  CreateStatusBar(0, WindowID(0))
  ButtonGadget(0, 10, 10, 100, 20, "A")
  ;SetParent_(GadgetID(0), StatusBarID(0))
  Repeat
    Select WaitWindowEvent()
      Case #PB_Event_CloseWindow
        Break
      Case #PB_Event_Gadget
        Debug EventGadget()
    EndSelect
  ForEver
EndIf

Setze ich den Button mit SetParent_ in die Statusbar gibt es kein WindowEvent #PB_Event_Gadget mehr.
Aber warum nicht? Nehme ich eine ComboBox funktioniert es.

Gruß Topsoft

[RSBasic]

Das ist komisch. Keine Ahnung, warum das PB-Event nichts mehr sagt, aber hier ein Workaround, damit es ebenfalls funktioniert:

Code: Alles auswählen

If OpenWindow(0, 100, 150, 300, 100, "PureBasic - StatusBar Example", #PB_Window_SystemMenu | #PB_Window_SizeGadget)
  CreateStatusBar(0, WindowID(0))
  If ContainerGadget(1,0,0,100,20, #PB_Container_BorderLess)
    ButtonGadget(0, 0, 0, 100, 20, "A")
    CloseGadgetList()
  EndIf
  SetParent_(GadgetID(1), StatusBarID(0))
  Repeat
    Select WaitWindowEvent()
      Case #PB_Event_CloseWindow
        Break
      Case #PB_Event_Gadget
        Debug EventGadget()
    EndSelect
  ForEver
EndIf