Name einer Spalte des ListIconGadgets ändern

[Wolfvater Loki]

Heute brauche ich wieder Hilfe. Ich möchte den Namen der ersten Spalte mit jeder Abfrage ändern. Mir fehlt jedoch der Befehl dafür bzw. ich kenne den Befehl nicht. Welchen Befehl kann ich dafür verwenden?

Code: Alles auswählen

UseSQLiteDatabase()
OpenDatabase(0,"Karten1.db","","")

OpenWindow(1,0,0,1100,590,"",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
ListIconGadget(7000,5,5,1090,500,"Kartenname",280,#PB_ListIcon_FullRowSelect)
ButtonGadget(7001,10,515,100,20,"Karten")
ButtonGadget(7002,110,515,100,20,"")
ButtonGadget(7003,10,540,100,20,"")
AddKeyboardShortcut(1200,#PB_Shortcut_Escape,1206)
megaclosera = 0
Repeat
  warteaufdaten = WaitWindowEvent()
  If warteaufdaten = #PB_Event_Gadget
    Select EventGadget()
      Case 7001
        AddGadgetColumn(7000,1,"Kartentyp",80)
        AddGadgetColumn(7000,2,"Kategorie",100)
        AddGadgetColumn(7000,3,"Typ",140)
        AddGadgetColumn(7000,4,"Fähigkeit",100)
        AddGadgetColumn(7000,5,"Attribut",100)
        AddGadgetColumn(7000,6,"Level/Rang/Link",100)
        AddGadgetColumn(7000,7,"ATK",60)
        AddGadgetColumn(7000,8,"DEF",60)
        AddGadgetColumn(7000,9,"Pendelskala",100)
        AddGadgetColumn(7000,10,"Erlaubt",60)
        AddGadgetColumn(7000,11,"Internetlink",275)
        sqla$ = "SELECT * FROM YGO_Kartensammlung;"
        If DatabaseQuery(0,sqla$)
          While NextDatabaseRow(0)
            AddGadgetItem(7000,-1,GetDatabaseString(0,0)+Chr(10)+GetDatabaseString(0,1)+Chr(10)+GetDatabaseString(0,2)+...)
          Wend
          FinishDatabaseQuery(0)
        EndIf
      Case 7002
        
        AddGadgetColumn(7000,1,"Kartentyp",80)
        AddGadgetColumn(7000,2,"Kategorie",100)
        AddGadgetColumn(7000,3,"Typ",140)
        AddGadgetColumn(7000,4,"Fähigkeit",100)
        AddGadgetColumn(7000,5,"Attribut",100)
        AddGadgetColumn(7000,6,"Level/Rang/Link",100)
        AddGadgetColumn(7000,7,"ATK",60)
        AddGadgetColumn(7000,8,"DEF",60)
        AddGadgetColumn(7000,9,"Pendelskala",100)
        AddGadgetColumn(7000,10,"Erlaubt",60)
        AddGadgetColumn(7000,11,"Internetlink",275)
        sqlb$ = "SELECT * FROM YGO_Kartensammlung;"
        If DatabaseQuery(0,sqlb$)
          While NextDatabaseRow(0)
            AddGadgetItem(7000,-1,GetDatabaseString(0,0)+Chr(10)+GetDatabaseString(0,1)+Chr(10)+GetDatabaseString(0,2)+...)
          Wend
          FinishDatabaseQuery(0)
        EndIf
    EndSelect
  EndIf
Until warteaufdaten = #PB_Event_CloseWindow

MfG
Wolfvater Loki

[Wolfvater Loki]

Nicht wundern wegen demselben Case-Befehl. Die Idee ist während ich programmiert habe gekommen. Ich weiß noch nicht, welche Abfrage ich noch machen könnte.

[Shardik]

- SetGadgetItemText(): Ändert den aktuellen Text des angegebenen Eintrags. (oder den Spalten-Titel, wenn 'Eintrag' = -1) Wie bei AddGadgetItem() ist es möglich, den Text für mehrere Spalten mit einmal festzulegen, mittels des Chr(10) Trennzeichens.

Code: Alles auswählen

SetGadgetItemText(Gadgetnummer, -1, Spaltenueberschrift$, Spalte)

[Wolfvater Loki]

Vielen Dank für die Hilfe.