Tricky: Schaltflächen von Panels entfernen

[Delle]

Hallo,

ich versuche bestimmte Schaltflächen von einem Panel zu entfernen:

Code: Alles auswählen

For tab=2 To CountGadgetItems(#Panel)-1
If GetGadgetItemText(#Panel,tab)="leer":RemoveGadgetItem(#Panel,tab):EndIf
Next 

Sieht sicher auf den 1. Blick logisch aus, funktioniert aber leider nicht wie gewünscht

Nach jeder Entfernung rutschen ja die folgenden Schaltflächen im Index runter. Die Folge sind übersprungene/nichtentfernte Schaltflächen.

Eventuell CountGadgetItems(#Panel)-1 als Start wählen und nach 2 runterzählen?

Oder eine Variable mit einbauen, die den Index wieder berichtigt?

Danke,
Delle

[alter Mann]

ne, einfach von hinten nach vorne

Code: Alles auswählen

For tab=CountGadgetItems(#Panel)-1 To 2 Step -1 
If GetGadgetItemText(#Panel,tab)="leer":RemoveGadgetItem(#Panel,tab):EndIf
Next 

[NicTheQuick]

Rückwärts ist es am einfachsten. Oder was wolltest du eigentlich wissen?

Also ich verstehe jetzt nicht ganz die Frage, da du ja eh zwei mögliche Antworten dafür gegeben hast.

[Delle]

ne, einfach von hinten nach vorne

Genauso dacht ich's mir ja auch Eventuell CountGadgetItems(#Panel)-1 als Start wählen und nach 2 runterzählen?

[Delle]

Rückwärts ist es am einfachsten.

Hatte ich schon probiert, allerdings erfolglos. Hatte Step -1 vergessen

[ts-soft]

Naja, man kann die Laufvariable auch korrigieren:

Code: Alles auswählen

; Zeigt die Verwendung mehrerer Panels...
If OpenWindow(0, 0, 0, 322, 220, "PanelGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  PanelGadget     (0, 8, 8, 306, 203)
  AddGadgetItem (0, -1, "Panel 1")
  PanelGadget (1, 5, 5, 290, 166)
  AddGadgetItem(1, -1, "Sub-Panel 1")
  AddGadgetItem(1, -1, "Sub-Panel 2")
  AddGadgetItem(1, -1, "Sub-Panel 3")
  CloseGadgetList()
  For tab = 0 To CountGadgetItems(1) - 1
    If GetGadgetItemText(1, tab) = "Sub-Panel 2"
      RemoveGadgetItem(1, tab)
      tab - 1
    EndIf
  Next
  AddGadgetItem (0, -1,"Panel 2")
  ButtonGadget(2, 10, 15, 80, 24,"Button 1")
  ButtonGadget(3, 95, 15, 80, 24,"Button 2")
  CloseGadgetList()
  Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf