развернуть элементы ExplorerTreeGadget/Purebasic

 

  If OpenWindow(0, 0, 0, 300, 300, "ExplorerTreeGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    ExplorerTreeGadget(0, 10, 10, 280, 280, "*.pb;*.pbi")
    
    hitem=SendMessage_(GadgetID(0), #TVM_GETNEXTITEM, #TVGN_ROOT, 0)
    hItem = SendMessage_(GadgetID(0), #TVM_GETNEXTITEM, #TVGN_NEXTVISIBLE , hItem) 
;    hItem = SendMessage_(GadgetID(0), #TVM_GETNEXTITEM, #TVGN_NEXTVISIBLE , hItem) 
    SendMessage_(GadgetID(0),#TVM_EXPAND,#TVE_EXPAND,hitem)
    Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
  EndIf