Problem Setgadgetitemtext im Listicongadget

[schleicher]

Bekomme leider mit SetGatgetItemText( keine Einträge im Listicon . Was mache ich Falsch? AddgadgetItem funktioniert , aber ich benötige das Setgadgetitemtext !

Code: Alles auswählen

Global Window_0

Global ListIcon_0



Window_0 = OpenWindow(#PB_Any, 0, 0, 820, 580, "Test-Window", #PB_Window_SystemMenu)
ListIcon_0 = ListIconGadget(#PB_Any, 60, 70, 670, 480, "Column 1", 100,  #PB_ListIcon_GridLines )
AddGadgetColumn(ListIcon_0, 1, "Column 2", 100)
AddGadgetColumn(ListIcon_0, 2, "Column 3", 100)
AddGadgetColumn(ListIcon_0, 3, "Column 4", 100)

For x=0 To 3
   SetGadgetItemText(ListIcon_0, x , "test"+Str(x) , x)
Next

Repeat
  
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow
      End
      
    Case #PB_Event_Menu
      Select EventMenu()
      EndSelect
      
    Case #PB_Event_Gadget
      Select EventGadget()
          
      EndSelect
  EndSelect
  
  
  
ForEver

[ts-soft]

Code: Alles auswählen

Debug CountGadgetItems(ListIcon_0)

Setgadgetitemtext() funktioniert nur mit existente Items!

[Andreas21]

Code: Alles auswählen

SetGadgetItemText(ListIcon_0, -1 , "test"+Str(x) , x)

Die überschrift änderst du mit -1.

ListIconGadget(): If Item = -1, the header text of the given column is changed.

[schleicher]

Code: Alles auswählen

Debug CountGadgetItems(ListIcon_0)

Setgadgetitemtext() funktioniert nur mit existente Items!

Alles klar. Dann muss ich AddgadgetItem( einsetzen. Danke für den Tip.