PureBoard

Verfasst: **29.05.2022 07:43**

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

Verfasst: **29.05.2022 07:55**

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.

Verfasst: **29.05.2022 09:58**

PureBasic-Hilfe zu ListIconGadget hat geschrieben:- 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)

Verfasst: **29.05.2022 10:20**

Vielen Dank für die Hilfe.

PureBoard

Name einer Spalte des ListIconGadgets ändern

Name einer Spalte des ListIconGadgets ändern

Re: Name einer Spalte des ListIconGadgets ändern

Re: Name einer Spalte des ListIconGadgets ändern

Re: Name einer Spalte des ListIconGadgets ändern