
egrid_SetOptions() was getting a little out of hand. Of course egrid_SetOption() is a lot more flexible and easily extended for future use.
It shouldn't take you long to ammend your code to use egrid_AddRows() etc.
Code: Select all
#Grid_Items_1=1
#Grid_Items_2=2
#SplitterH=3
If OpenWindow(0, 0, 0, 545, 445, "Grids", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) And CreateGadgetList(WindowID(0))
egrid_CreateGrid(#Grid_Items_1, 1, 24, 545, 222,20,#egrid_GridLines|#egrid_HeaderDragDrop|#egrid_AlwaysShowSelection, #egrid_ResizeColumnsTrue|#egrid_MultiLineText)
egrid_CreateGrid(#Grid_Items_2, 1, 247, 545, 222,20,#egrid_GridLines|#egrid_HeaderDragDrop|#egrid_AlwaysShowSelection, #egrid_ResizeColumnsTrue|#egrid_MultiLineText)
egrid_SetHeaderHeight(#Grid_Items_1, 20)
egrid_SetHeaderHeight(#Grid_Items_2, 20)
For c=0 To 10
egrid_AddColumn(#Grid_Items_1, c, "C", 100)
egrid_AddColumn(#Grid_Items_2, c, "C", 100)
Next c
egrid_AddRows(#Grid_Items_1, -1, 10)
egrid_AddRows(#Grid_Items_2, -1, 10)
;This two lines doesn't run fine
SplitterGadget(#SplitterH,1,24,545,445,#Grid_Items_1,#Grid_Items_2,#PB_Splitter_Separator)
SetGadgetState(#SplitterH, 247)
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf
Code: Select all
#Grid_Items_1=1
#Grid_Items_2=2
#SplitterH=3
If OpenWindow(0, 0, 0, 545, 445, "Grids", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) And CreateGadgetList(WindowID(0))
egrid_CreateGrid(#Grid_Items_1, 1, 24, 0, 0,20,#egrid_GridLines|#egrid_HeaderDragDrop|#egrid_AlwaysShowSelection, #egrid_ResizeColumnsTrue|#egrid_MultiLineText)
egrid_CreateGrid(#Grid_Items_2, 1, 247, 0, 0,20,#egrid_GridLines|#egrid_HeaderDragDrop|#egrid_AlwaysShowSelection, #egrid_ResizeColumnsTrue|#egrid_MultiLineText)
egrid_SetHeaderHeight(#Grid_Items_1, 20)
egrid_SetHeaderHeight(#Grid_Items_2, 20)
For c=0 To 10
egrid_AddColumn(#Grid_Items_1, c, "C", 100)
egrid_AddColumn(#Grid_Items_2, c, "C", 100)
Next c
egrid_AddRows(#Grid_Items_1, -1, 10)
egrid_AddRows(#Grid_Items_2, -1, 10)
;This two lines doesn't run fine
SplitterGadget(#SplitterH,1,24,545,445,#Grid_Items_1,#Grid_Items_2,#PB_Splitter_Separator)
SetGadgetState(#SplitterH, 247)
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf
Code: Select all
#Grid_Items_1=1
#Grid_Items_2=2
#SplitterH=3
If OpenWindow(0, 0, 0, 545, 445, "Grids", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) And CreateGadgetList(WindowID(0))
egrid_CreateGrid(#Grid_Items_1, 1, 24, 0, 0,20,#egrid_GridLines|#egrid_HeaderDragDrop|#egrid_AlwaysShowSelection, #egrid_ResizeColumnsTrue|#egrid_MultiLineText)
egrid_CreateGrid(#Grid_Items_2, 1, 247, 0, 0,20,#egrid_GridLines|#egrid_HeaderDragDrop|#egrid_AlwaysShowSelection, #egrid_ResizeColumnsTrue|#egrid_MultiLineText)
egrid_SetHeaderHeight(#Grid_Items_1, 20)
egrid_SetHeaderHeight(#Grid_Items_2, 20)
For c=0 To 10
egrid_AddColumn(#Grid_Items_1, c, "C", 100)
egrid_AddColumn(#Grid_Items_2, c, "C", 100)
Next c
egrid_AddRows(#Grid_Items_1, -1, 10)
egrid_AddRows(#Grid_Items_2, -1, 10)
egrid_SetCellText(#Grid_Items_1, 0, 0, "a")
egrid_SetCellText(#Grid_Items_1, 0, 1, "c")
egrid_SetCellText(#Grid_Items_1, 0, 2, "b")
;This line INVALIDE the function PureLVSORT_SortListIconNow. The function doesn't work
SplitterGadget(#SplitterH,1,24,545,445,#Grid_Items_1,#Grid_Items_2,#PB_Splitter_Separator)
SetGadgetState(#SplitterH, 247)
PureLVSORT_SortListIconNow(#Grid_Items_1, 0, 1)
ret = PureLVSORT_SelectGadgetToSort(#Grid_Items_1,#PureLVSORT_ShowClickedHeader_Text) ;
Select ret
Case #PureLVSORT_Ok ; Success
Debug "#PureLVSORT_Ok"
Case #PureLVSORT_NotAGadget ; Specified gadget does not exist
Debug "#PureLVSORT_NotAGadget"
Case #PureLVSORT_MemoryAllocationProblem ; Memory allocation failed
Debug "#PureLVSORT_MemoryAllocationProblem"
Case #PureLVSORT_UndefinedGadget ; Specified gadget was not initialized with PureLVSORT_SelectGadgetToSort()
Debug "#PureLVSORT_UndefinedGadget"
Default
Debug "Default. ret = " + Str(ret)
EndSelect
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf
Code: Select all
XIncludeFile "egrid5.pb"
DisableExplicit
#Grid_Items_1=1
#Grid_Items_2=2
#SplitterH=3
If OpenWindow(0, 0, 0, 545, 445, "Grids", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) And CreateGadgetList(WindowID(0))
egrid_CreateGrid(#Grid_Items_1, 1, 24, 0, 0,20,#egrid_GridLines|#egrid_HeaderDragDrop|#egrid_AlwaysShowSelection, #egrid_ResizeColumnsTrue|#egrid_MultiLineText)
egrid_CreateGrid(#Grid_Items_2, 1, 247, 0, 0,20,#egrid_GridLines|#egrid_HeaderDragDrop|#egrid_AlwaysShowSelection, #egrid_ResizeColumnsTrue|#egrid_MultiLineText)
egrid_SetHeaderHeight(#Grid_Items_1, 20)
egrid_SetHeaderHeight(#Grid_Items_2, 20)
For c=0 To 10
egrid_AddColumn(#Grid_Items_1, c, "C", 100)
egrid_AddColumn(#Grid_Items_2, c, "C", 100)
Next c
egrid_AddRows(#Grid_Items_1, -1, 10)
egrid_AddRows(#Grid_Items_2, -1, 10)
egrid_SetCellText(#Grid_Items_1, 0, 0, "a")
egrid_SetCellText(#Grid_Items_1, 0, 1, "c")
egrid_SetCellText(#Grid_Items_1, 0, 2, "b")
ret = PureLVSORT_SelectGadgetToSort(#Grid_Items_1,#PureLVSORT_ShowClickedHeader_Text) ;
;This line INVALIDE the function PureLVSORT_SortListIconNow. The function doesn't work
SplitterGadget(#SplitterH,1,24,545,445,#Grid_Items_1,#Grid_Items_2,#PB_Splitter_Separator)
SetGadgetState(#SplitterH, 247)
PureLVSORT_SortListIconNow(#Grid_Items_1, 0, 1)
Select ret
Case #PureLVSORT_Ok ; Success
Debug "#PureLVSORT_Ok"
Case #PureLVSORT_NotAGadget ; Specified gadget does not exist
Debug "#PureLVSORT_NotAGadget"
Case #PureLVSORT_MemoryAllocationProblem ; Memory allocation failed
Debug "#PureLVSORT_MemoryAllocationProblem"
Case #PureLVSORT_UndefinedGadget ; Specified gadget was not initialized with PureLVSORT_SelectGadgetToSort()
Debug "#PureLVSORT_UndefinedGadget"
Default
Debug "Default. ret = " + Str(ret)
EndSelect
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf