Seite 1 von 1
Aktives Panel ermitteln
Verfasst: 09.09.2012 17:44
von 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
Re: Aktives Panel ermitteln
Verfasst: 09.09.2012 17:54
von ts-soft
Re: Aktives Panel ermitteln
Verfasst: 11.09.2012 19:47
von 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
Re: Aktives Panel ermitteln
Verfasst: 11.09.2012 19:49
von 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