Aktives Panel ermitteln

[gnaps]

Hallo Forum,

ich habe hier wieder mal ein kleines Problem und komme nicht drauf.
Habe hier im Forum auch schon gesucht aber nix gefunden.

Ich habe 8 Panelgadget in diesen sind nochmal jeweils 7 Panelgadgets (Subpanels),
wie ermittle ich welches Panel im Moment aktiv und in der Ansicht ist ??

Danke
gruß gnaps

[ts-soft]

Code: Alles auswählen

GetActiveGadget()
GetGadgetState()

[gnaps]

Hallo,

leider muss ich mich hier nochmal melden, ich komme einfach nicht weiter.

Ich möchte nur das aktive Panel ermittel.

Kann mir jemand helfen.
Hier mein Code

Code: Alles auswählen

If OpenWindow(0, 0, 0, 322, 220, "PanelGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    PanelGadget     (1, 8, 8, 306, 203)
      AddGadgetItem (1, 0, "Panel 1.0")
        PanelGadget (2, 5, 5, 290, 166)
          AddGadgetItem(2, 0, "Sub-Panel 1.1")
          AddGadgetItem(2, 1, "Sub-Panel 1.2")
          AddGadgetItem(2, 2, "Sub-Panel 1.3")
        CloseGadgetList()
      AddGadgetItem (1, 1,"Panel 2.0")
        PanelGadget (3, 5, 5, 290, 166)
          AddGadgetItem(3, 0, "Sub-Panel 2.1")
          AddGadgetItem(3, 1, "Sub-Panel 2.2")
          AddGadgetItem(3, 2, "Sub-Panel 2.3")
        CloseGadgetList()
        CloseGadgetList()
      
        Repeat
          Select WaitWindowEvent()
           Case #PB_Event_CloseWindow ;x beim Fenster gedrückt
            End
    
           Case #PB_Event_Gadget

         EndSelect
        Until WaitWindowEvent() = #PB_Event_CloseWindow
  EndIf

[RSBasic]

Code: Alles auswählen

EnableExplicit

Define EventID

If OpenWindow(0,0,0,500,400,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  PanelGadget     (1, 8, 8, 306, 203)
  AddGadgetItem (1, 0, "Panel 1.0")
    PanelGadget (2, 5, 5, 290, 166)
      AddGadgetItem(2, 0, "Sub-Panel 1.1")
      AddGadgetItem(2, 1, "Sub-Panel 1.2")
      AddGadgetItem(2, 2, "Sub-Panel 1.3")
    CloseGadgetList()
  AddGadgetItem (1, 1,"Panel 2.0")
    PanelGadget (3, 5, 5, 290, 166)
      AddGadgetItem(3, 0, "Sub-Panel 2.1")
      AddGadgetItem(3, 1, "Sub-Panel 2.2")
      AddGadgetItem(3, 2, "Sub-Panel 2.3")
    CloseGadgetList()
  CloseGadgetList()
    
  Repeat
    EventID=WaitWindowEvent()
    If EventID=#PB_Event_Gadget
      Select EventGadget()
        Case 1
          Debug "Panel1 Active: " + Str(GetGadgetState(1))
        Case 2
          Debug "Panel2 Active: " + Str(GetGadgetState(2))
      EndSelect
    EndIf
    If EventID = #PB_Event_CloseWindow
      End
    EndIf
  ForEver
EndIf