Code: Select all
Enumeration
#Window_0
#Window_1
EndEnumeration
Enumeration
#Button_1
#Button_2
#Button_3
#Button_4
#NWCancel
#Container_1
#Container_2
#Container_3
#ListIcon_0
#ListIcon_1
#ListIcon_2
EndEnumeration
Procedure.l MyEditCallback(Event.l, ListIconNumber.l, Column.l, Row.l, Text.s)
Select Event
Case #PureLVSORT_EditStart
Debug "EDITSTART " + Str(ListIconNumber) + " (" + Str(Column) + ":" + Str(Row) + ") -> '" + Text + "'"
; Return : - 0 to enable stringgadget (default)
; - *string to enable a spingadget [the string holds the choice items (separator = '|']
Case #PureLVSORT_EditText
Debug "EDITTEXT " + Str(ListIconNumber) + " (" + Str(Column) + ":" + Str(Row) + ") -> '" + Text + "'"
; Return : - 0 to keep the text (default)
; - *string to change the text [the string holds the changed text]
Case #PureLVSORT_EditEnd
Debug "EDITEND"
Case #PureLVSORT_EditEscape
Debug "EDITESCAPE"
EndSelect
EndProcedure
Procedure NewWindow()
Quit = 0
OpenWindow(#Window_1,0,0,300,175,"",#PB_Window_BorderLess|#PB_Window_ScreenCentered)
SetWindowColor(#Window_1,RGB(100,175,175))
ButtonGadget (#NWCancel,200,145, 75, 20,"Cancel")
EndProcedure
Procedure OpenWindow_Window_0()
If OpenWindow(#Window_0, 450, 200, 420, 400, "Window_0", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar)
ButtonGadget(#Button_1, 10, 5, 90, 20," Container 1")
ButtonGadget(#Button_2,110, 5, 90, 20," Container 2")
ButtonGadget(#Button_3,210, 5, 90, 20," Container 3")
ButtonGadget(#Button_4,310, 5, 90, 20," Window ")
ContainerGadget(#Container_1, 10, 35,400,300, #PB_Container_Raised)
ListIconGadget(#ListIcon_0, 17, 8, 374, 166, "List Gadget_0", 100, #PB_ListIcon_AlwaysShowSelection|#PB_ListIcon_GridLines|#PB_ListIcon_FullRowSelect)
AddGadgetColumn(#ListIcon_0, 1, "Column #2", 100)
AddGadgetColumn(#ListIcon_0, 2, "Column #3", 100)
AddGadgetColumn(#ListIcon_0, 3, "Column #4", 100)
CloseGadgetList()
ContainerGadget(#Container_2, 10, 35, 400,300, #PB_Container_Raised)
ListIconGadget(#ListIcon_1, 19, 17, 374, 166, "List Gadget_1", 100, #PB_ListIcon_AlwaysShowSelection|#PB_ListIcon_GridLines|#PB_ListIcon_FullRowSelect)
AddGadgetColumn(#ListIcon_1, 1, "Column #2", 100)
AddGadgetColumn(#ListIcon_1, 2, "Column #3", 100)
AddGadgetColumn(#ListIcon_1, 3, "Column #4", 100)
CloseGadgetList()
ContainerGadget(#Container_3, 10, 35, 400,300, #PB_Container_Raised)
ListIconGadget(#ListIcon_2, 19, 17, 374, 166, "ListGadget_2", 100, #PB_ListIcon_AlwaysShowSelection|#PB_ListIcon_GridLines|#PB_ListIcon_FullRowSelect)
AddGadgetColumn(#ListIcon_2, 1, "Column #2", 100)
AddGadgetColumn(#ListIcon_2, 2, "Column #3", 100)
AddGadgetColumn(#ListIcon_2, 3, "Column #4", 100)
CloseGadgetList()
HideGadget(#Container_1,1)
HideGadget(#Container_2,1)
HideGadget(#Container_3,1)
AddGadgetItem(#ListIcon_0, -1, "1" + Chr(10) + "2" + Chr(10) + "3" + Chr(10) + "4")
AddGadgetItem(#ListIcon_0, -1, "1" + Chr(10) + "2" + Chr(10) + "3" + Chr(10) + "4")
AddGadgetItem(#ListIcon_0, -1, "1" + Chr(10) + "2" + Chr(10) + "3" + Chr(10) + "4")
AddGadgetItem(#ListIcon_0, -1, "1" + Chr(10) + "2" + Chr(10) + "3" + Chr(10) + "4")
AddGadgetItem(#ListIcon_0, -1, "1" + Chr(10) + "2" + Chr(10) + "3" + Chr(10) + "4")
SendMessage_(GadgetID(#ListIcon_0), #LVM_SETCOLUMNWIDTH, 0, #LVSCW_AUTOSIZE_USEHEADER)
SendMessage_(GadgetID(#ListIcon_0), #LVM_SETCOLUMNWIDTH, 1, #LVSCW_AUTOSIZE_USEHEADER)
SendMessage_(GadgetID(#ListIcon_0), #LVM_SETCOLUMNWIDTH, 2, #LVSCW_AUTOSIZE_USEHEADER)
SendMessage_(GadgetID(#ListIcon_0), #LVM_SETCOLUMNWIDTH, 3, #LVSCW_AUTOSIZE_USEHEADER)
AddGadgetItem(#ListIcon_1, -1, "1" + Chr(10) + "2" + Chr(10) + "3" + Chr(10) + "4")
AddGadgetItem(#ListIcon_1, -1, "1" + Chr(10) + "2" + Chr(10) + "3" + Chr(10) + "4")
AddGadgetItem(#ListIcon_1, -1, "1" + Chr(10) + "2" + Chr(10) + "3" + Chr(10) + "4")
AddGadgetItem(#ListIcon_1, -1, "1" + Chr(10) + "2" + Chr(10) + "3" + Chr(10) + "4")
AddGadgetItem(#ListIcon_1, -1, "1" + Chr(10) + "2" + Chr(10) + "3" + Chr(10) + "4")
AddGadgetItem(#ListIcon_1, -1, "1" + Chr(10) + "2" + Chr(10) + "3" + Chr(10) + "4")
SendMessage_(GadgetID(#ListIcon_1), #LVM_SETCOLUMNWIDTH, 0, #LVSCW_AUTOSIZE_USEHEADER)
SendMessage_(GadgetID(#ListIcon_1), #LVM_SETCOLUMNWIDTH, 1, #LVSCW_AUTOSIZE_USEHEADER)
SendMessage_(GadgetID(#ListIcon_1), #LVM_SETCOLUMNWIDTH, 2, #LVSCW_AUTOSIZE_USEHEADER)
SendMessage_(GadgetID(#ListIcon_1), #LVM_SETCOLUMNWIDTH, 3, #LVSCW_AUTOSIZE_USEHEADER)
AddGadgetItem(#ListIcon_2, -1, "1" + Chr(10) + "2" + Chr(10) + "3" + Chr(10) + "4")
AddGadgetItem(#ListIcon_2, -1, "1" + Chr(10) + "2" + Chr(10) + "3" + Chr(10) + "4")
AddGadgetItem(#ListIcon_2, -1, "1" + Chr(10) + "2" + Chr(10) + "3" + Chr(10) + "4")
AddGadgetItem(#ListIcon_2, -1, "1" + Chr(10) + "2" + Chr(10) + "3" + Chr(10) + "4")
AddGadgetItem(#ListIcon_2, -1, "1" + Chr(10) + "2" + Chr(10) + "3" + Chr(10) + "4")
AddGadgetItem(#ListIcon_2, -1, "1" + Chr(10) + "2" + Chr(10) + "3" + Chr(10) + "4")
SendMessage_(GadgetID(#ListIcon_2), #LVM_SETCOLUMNWIDTH, 0, #LVSCW_AUTOSIZE_USEHEADER)
SendMessage_(GadgetID(#ListIcon_2), #LVM_SETCOLUMNWIDTH, 1, #LVSCW_AUTOSIZE_USEHEADER)
SendMessage_(GadgetID(#ListIcon_2), #LVM_SETCOLUMNWIDTH, 2, #LVSCW_AUTOSIZE_USEHEADER)
SendMessage_(GadgetID(#ListIcon_2), #LVM_SETCOLUMNWIDTH, 3, #LVSCW_AUTOSIZE_USEHEADER)
PureLVSORT_SelectGadgetToSort(#ListIcon_0, #PureLVSORT_ShowClickedHeader_No)
PureLVSORT_SelectGadgetToSort(#ListIcon_1, #PureLVSORT_ShowClickedHeader_No)
PureLVSORT_SelectGadgetToSort(#ListIcon_2, #PureLVSORT_ShowClickedHeader_No)
PureLVSORT_SetEditingColors(RGB(184, 223, 223), #Black)
PureLVSORT_MakeColumnEditable(#ListIcon_0, 1, #True)
PureLVSORT_MakeColumnEditable(#ListIcon_1, 2, #True)
PureLVSORT_MakeColumnEditable(#ListIcon_2, 3, #True)
PureLVSORT_SetEditingCallback(@MyEditCallback())
EndIf
EndProcedure
OpenWindow_Window_0()
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_Gadget
Select EventGadget()
Case #Button_1
HideGadget(#Container_1,0)
HideGadget(#Container_2,1)
HideGadget(#Container_3,1)
Case #Button_2
HideGadget(#Container_1,1)
HideGadget(#Container_2,0)
HideGadget(#Container_3,1)
Case #Button_3
HideGadget(#Container_1,1)
HideGadget(#Container_2,1)
HideGadget(#Container_3,0)
Case #Button_4
NewWindow()
Case #NWCancel
Quit = 1
CloseWindow(#Window_1)
EndSelect
Case #PB_Event_CloseWindow
CloseWindow(#Window_0)
Break
EndSelect
ForEver
Just click on it a few times opening and closing the window.
I stumped, every thing works until I add the window and open and close it.
I sure I must be doing something wrong but I just cannot find it.