Posted: Fri Sep 08, 2006 3:56 pm
Hi gnozal,
Sorting error with only one Column.
Sorting error with only one Column.
Code: Select all
#Window_0 = 0
#ListIcon_0 = 0
#ListIcon_1 = 1
Procedure Open_Window_0()
If OpenWindow(#Window_0, 216, 0, 152, 382, "PureLVSORT Test",#PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_ScreenCentered)
If CreateGadgetList(WindowID(#Window_0))
ListIconGadget(#ListIcon_0, 5, 5, 140, 350, "String", 110)
;
; Sorting Error with only one Column
; Is the next Line aktiv Sorting OK
;
; AddGadgetColumn(#ListIcon_0, 2, "String", 110)
;
AddGadgetItem(#ListIcon_0, -1, "ABCDE")
AddGadgetItem(#ListIcon_0, -1, "BCDEF")
AddGadgetItem(#ListIcon_0, -1, "ZABCD")
AddGadgetItem(#ListIcon_0, -1, "DEFGH")
AddGadgetItem(#ListIcon_0, -1, "AAAAAABCDE")
AddGadgetItem(#ListIcon_0, -1, "FCDEF")
AddGadgetItem(#ListIcon_0, -1, "ZABCD")
AddGadgetItem(#ListIcon_0, -1, "DEFGH")
AddGadgetItem(#ListIcon_0, -1, "ABCDE")
AddGadgetItem(#ListIcon_0, -1, "BBBBBACDEF")
AddGadgetItem(#ListIcon_0, -1, "AAAAA")
AddGadgetItem(#ListIcon_0, -1, "KABCD")
AddGadgetItem(#ListIcon_0, -1, "JABCD")
AddGadgetItem(#ListIcon_0, -1, "GABCD")
AddGadgetItem(#ListIcon_0, -1, "KABCD")
AddGadgetItem(#ListIcon_0, -1, "JABCD")
AddGadgetItem(#ListIcon_0, -1, "GABCD")
AddGadgetItem(#ListIcon_0, -1, "KABCD")
AddGadgetItem(#ListIcon_0, -1, "JABCD")
AddGadgetItem(#ListIcon_0, -1, "GABCD")
AddGadgetItem(#ListIcon_0, -1, "DEFGH")
EndIf
EndIf
EndProcedure
Open_Window_0()
If PureLVSORT_SelectGadgetToSort(#ListIcon_0, #True) = #PureLVSORT_Ok
PureLVSORT_SetColumnType(#ListIcon_0, 0, #PureLVSORT_String) ; default, not necessary
PureLVSORT_SortListIconNow(#ListIcon_0, 0, 1)
EndIf
;
Repeat
Event = WaitWindowEvent()
If EventType() = #PB_EventType_LeftDoubleClick
PureLVSORT_ClearGadget(#ListIcon_0)
EndIf
Until Event = #PB_Event_CloseWindow
End