Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/
Code: Alles auswählen
; Retrieves order/position of specified list column 'Index'.
; @param ColumnCount - Number of columns, '0' to try retrieving it automatically
; @return Position, '-1' if an error occurred
Procedure ListColumnIndexOrderGet(GadgetNr, Index, ColumnCount=0)
Protected HeaderID
Protected Column
Protected Result = -1
HeaderID = SendMessage_(GadgetID(GadgetNr), #LVM_GETHEADER, 0, 0)
If ColumnCount < 1
ColumnCount = SendMessage_(HeaderID, #LVM_GETITEMCOUNT, 0, 0)
If ColumnCount < 1 : ProcedureReturn Result : EndIf
EndIf
Dim ColumnOrder(ColumnCount - 1)
If SendMessage_(HeaderID, #HDM_GETORDERARRAY, ColumnCount, @ColumnOrder())
For Column = 0 To ColumnCount - 1
If Index = ColumnOrder(Column)
Result = Column
Break
EndIf
Next
EndIf
ProcedureReturn Result
EndProcedureCode: Alles auswählen
OpenWindow(0, 10, 10, 400, 400, "")
ListIconGadget(0, 10, 10, 300, 300, "col1", 100, #PB_ListIcon_HeaderDragDrop)
AddGadgetColumn(0, 1, "col2", 100)
Repeat
Until WaitWindowEvent()=#PB_Event_CloseWindow
Debug GetGadgetItemText(0, -1, 0)
Debug GetGadgetItemText(0, -1, 1)Code: Alles auswählen
EnableExplicit
If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ListIconGadget(1, 0, 0, WindowWidth(0), WindowHeight(0)-40, "Spalte 1", 100, #PB_ListIcon_HeaderDragDrop)
AddGadgetColumn(1, 1, "Spalte 2", 100)
AddGadgetColumn(1, 2, "Spalte 3", 100)
AddGadgetColumn(1, 3, "Spalte 4", 100)
ButtonGadget(2, WindowWidth(0)-110, WindowHeight(0)-30, 100, 20, "Hinzufügen", 0)
Repeat
Select WaitWindowEvent()
Case #PB_Event_Gadget
Select EventGadget()
Case 2
AddGadgetItem(1, -1, "Text 1" + Chr(10) + "Text 2" + Chr(10) + "Text 3" + Chr(10) + "Text 4", 0, 0)
EndSelect
Case #PB_Event_CloseWindow
End
EndSelect
ForEver
EndIfdie Reihefolge ist immer gleich.ich hätte spontan geschrieben "mit GetGadgetItemText()"
Ja, genau dasOder möchtest du die Reihenfolge der Spalten als Einstellung speichern, damit der Benutzer die Spalten nicht erneut verschieben muss?
Code: Alles auswählen
EnableExplicit
Define a
Define LV_ColumnTotal
If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ListIconGadget(1, 0, 0, WindowWidth(0), WindowHeight(0)-40, "Spalte 1", 100, #PB_ListIcon_HeaderDragDrop)
AddGadgetColumn(1, 1, "Spalte 2", 100)
AddGadgetColumn(1, 2, "Spalte 3", 100)
AddGadgetColumn(1, 3, "Spalte 4", 100)
ButtonGadget(2, WindowWidth(0)-210, WindowHeight(0)-30, 200, 20, "Spaltenreihenfolge ermitteln", 0)
LV_ColumnTotal = SendMessage_(SendMessage_(GadgetID(1), #LVM_GETHEADER, 0, 0), #HDM_GETITEMCOUNT, 0, 0)
Dim LV_Columns(LV_ColumnTotal-1)
Repeat
Select WaitWindowEvent()
Case #PB_Event_Gadget
Select EventGadget()
Case 2
SendMessage_(GadgetID(1), #LVM_GETCOLUMNORDERARRAY, LV_ColumnTotal, LV_Columns())
For a = 1 To LV_ColumnTotal
Debug GetGadgetItemText(1, -1, LV_Columns(a-1))
Next
Debug "--------------------------------------------------"
EndSelect
Case #PB_Event_CloseWindow
End
EndSelect
ForEver
EndIf
Code: Alles auswählen
EnableExplicit
Define LV_ColumnTotal
If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ListIconGadget(1, 0, 0, WindowWidth(0), WindowHeight(0)-40, "Spalte 1", 100, #PB_ListIcon_HeaderDragDrop)
AddGadgetColumn(1, 1, "Spalte 2", 100)
AddGadgetColumn(1, 2, "Spalte 3", 100)
AddGadgetColumn(1, 3, "Spalte 4", 100)
ButtonGadget(2, WindowWidth(0)-210, WindowHeight(0)-30, 200, 20, "Spaltenreihenfolge wiederherstellen", 0)
LV_ColumnTotal = SendMessage_(SendMessage_(GadgetID(1), #LVM_GETHEADER, 0, 0), #HDM_GETITEMCOUNT, 0, 0)
Dim LV_Columns(LV_ColumnTotal-1)
Repeat
Select WaitWindowEvent()
Case #PB_Event_Gadget
Select EventGadget()
Case 2
LV_Columns(0) = 3
LV_Columns(1) = 2
LV_Columns(2) = 1
LV_Columns(3) = 0
SendMessage_(GadgetID(1), #LVM_SETCOLUMNORDERARRAY, LV_ColumnTotal, LV_Columns())
EndSelect
Case #PB_Event_CloseWindow
End
EndSelect
ForEver
EndIf
Code: Alles auswählen
GetGadgetItemAttribute(0, #PB_Ignore, #PB_ListIcon_ColumnWidth, 1)