ClearGadgetItems auch für Columns?

[TheSaint]

Hallo Zusammen,

ich habe eine Frage zu einem ListviewGadget, und zwar:

ich kann ja alle Einträge in einem ListviewGadget mit dem
Befehl: ClearGadgetItems löschen.

Jedoch wie kann ich den alle Spaltenüberschriften löschen?

Mit diesem Befehl fülle ich die Spaltenüberschriften:

Code: Alles auswählen

AddGadgetColumn(#Listview_0,0,DatabaseColumnName(db, Spalten-Spalte),90)

Mit RemoveGadgetColumn(#Gadget, Spalte) kann ich immer
nur eine Spalte löschen.

Habe in der Hilfe gesucht und hier im Forum. Irgendwie hab ich nichts gefunden.

Wäre toll, wenn mir hier jemand helfen könnte.

[HeX0R]

Wenn du eh alles löschen willst, dürfte es am schnellsten gehen, einfach das ganze Gadget neu zu erstellen.

[ts-soft]

Du meinst ein ListIconGadget?
Wirste wohl eine schleife nehmen müssen

[TheSaint]

Hallo HeXOR,
hallo ts-soft,

vielen Dank für Eure Hilfe.

ts-soft: Oh, Verzeihung, ja Du hast vollkommen recht, meinte ein ListiconGadget. Ja das mit der Schleife bekomme ich hin. Schade,
dachte es gebe hierfür auch einen Befehl.

HeXOR: Hm, muss ich dann, wenn ich das Gadget neu erstelle, immer folgenden gesamten Code aufrufen:??

Code: Alles auswählen

            AddGadgetItem(#Panel10,-1,"Informationen")  ;Register Informationen
                ContainerGadget(#Pan2, 0, 0, 679, 374, #PB_Container_Flat)
                PanelGadget(#Panel11, 5, 5, 675, 350)
                    AddGadgetItem (#Panel11, -1, "Info Suche")    ;Register Informationen / Info Suche
                        ListIconGadget(#Listview_0, 10, 200, 650, 120, "", 80,#PB_ListIcon_GridLines|#PB_ListIcon_FullRowSelect|#PB_ListIcon_MultiSelect|#PB_ListIcon_HeaderDragDrop)
                        SendMessage_(GadgetID(#Listview_0), #LVM_SETEXTENDEDLISTVIEWSTYLE, 0, #LVS_EX_LABELTIP)
                CloseGadgetList()

Nochmals vielen Dank für Eure Hilfe

[HeX0R]

Nein, das ginge auch irgendwie mit OpenGadgetList(), aber dann dürfte es wohl doch einfacher sein eine Schleife zu machen.

[Fluid Byte]

dachte es gebe hierfür auch einen Befehl.

Kannst dir ja einen schnitzen:

Code: Alles auswählen

Procedure RemoveColumns(Gadget)
	hwndHeader = SendMessage_(GadgetID(Gadget),#LVM_GETHEADER,0,0)
	Count = SendMessage_(hwndHeader,#HDM_GETITEMCOUNT,0,0)
	
	For i=Count To 1 Step -1
		RemoveGadgetColumn(0,i)
	Next
EndProcedure

OpenWindow(0,0,0,500,400,"void",#PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ListIconGadget(0,0,0,0,0,"Spalte1",80)

AddGadgetColumn(0,1,"Spalte2",80)
AddGadgetColumn(0,2,"Spalte3",80)
AddGadgetColumn(0,3,"Spalte4",80)
AddGadgetColumn(0,4,"Spalte5",80)

For i=0 To 50
	AddGadgetItem(0,-1,"blah" + Chr(10) + "blah" + Chr(10) + "blah" + Chr(10) + "blah" + Chr(10) + "blah")
Next

ButtonGadget(1,5,5,100,25,"Mach weg!")

Repeat
	EventID = WaitWindowEvent()
	
	If EventID = #PB_Event_Gadget And EventGadget() = 1	
		RemoveColumns(0)
	EndIf
	
	If EventID = #PB_Event_SizeWindow
		ResizeGadget(0,5,30,WindowWidth(0)-10,WindowHeight(0)-35)
	EndIf
Until EventID = #PB_Event_CloseWindow

[TheSaint]

Hallo HeXOR,
hallo Fluid Byte,

HeXOR: Ja, das werde ich machen.

Fluid Byte: Oh, super vielen Dank für Deinen Code Schnippsel.

Den kann ich super verwenden.

Nochmals allen vielen Dank.

[marco2007]

..hab ich zwar noch nie gebraucht, aber ohne API:

Code: Alles auswählen

OpenWindow(0,0,0,500,400,"void",#PB_Window_SystemMenu | #PB_Window_ScreenCentered) 
ListIconGadget(0,0,0,0,0,"Spalte1",80) 

AddGadgetColumn(0,1,"Spalte2",80) 
AddGadgetColumn(0,2,"Spalte3",80) 
AddGadgetColumn(0,3,"Spalte4",80) 
AddGadgetColumn(0,4,"Spalte5",80) 

For i=0 To 50 
   AddGadgetItem(0,-1,"blah" + Chr(10) + "blah" + Chr(10) + "blah" + Chr(10) + "blah" + Chr(10) + "blah") 
Next 

ButtonGadget(1,5,5,100,25,"Mach weg!") 

Repeat 
   EventID = WaitWindowEvent() 
    
   If EventID = #PB_Event_Gadget And EventGadget() = 1 
   While GetGadgetItemText(0, -1, 0)<>""
      RemoveGadgetColumn(0, 0) 
   Wend   
   EndIf 
    
   If EventID = #PB_Event_SizeWindow 
      ResizeGadget(0,5,30,WindowWidth(0)-10,WindowHeight(0)-35) 
   EndIf 
Until EventID = #PB_Event_CloseWindow