Code: Select all
EnableExplicit
Define hItem
OpenWindow(0, 0, 0, 200, 400, "Sort TreeGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
TreeGadget(0, 10, 10, 180, 380)
AddGadgetItem (0, -1, "Node00", 0, 0)
AddGadgetItem (0, -1, "Node40", 0, 1)
AddGadgetItem (0, -1, "Node30", 0, 1)
AddGadgetItem (0, -1, "Node20", 0, 1)
AddGadgetItem (0, -1, "Node10", 0, 1)
AddGadgetItem (0, -1, "Node14", 0, 2)
AddGadgetItem (0, -1, "Node13", 0, 2)
AddGadgetItem (0, -1, "Node12", 0, 2)
AddGadgetItem (0, -1, "Node11", 0, 2)
hItem = SendMessage_(GadgetID (0), #TVM_GETNEXTITEM, #TVGN_ROOT, 0)
SendMessage_(GadgetID (0), #TVM_SORTCHILDREN, #True, hItem)
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
MSDN wrote:wParam
Value that specifies whether the sorting is recursive. Set wParam to TRUE to sort all levels of child items below the parent item. Otherwise, only the parent's immediate children are sorted.