CollapseTreeViewItem

Синтаксис

Sub CollapseTreeViewItem(iGadget As Long , iItem As Integer)

Описание

Сворачивает указанный пункт и все его дочерние пункты в TreeViewGadget.

Параметры

gadget - номер гаджета

iItem - хендл пункта, который необходимо свернуть

Платформы

Windows , Linux

Пример

#include "window9.bi"
Dim As Integer Event
Dim As HWND hwnd,tree
hwnd=Openwindow("TreeView",10,10,250,250) : Centerwindow(hwnd)
#ifdef __fb_win32__
  Dim As Long iStyle = TVS_HASLINES Or TVS_HASBUTTONS Or TVS_LINESATROOT
#else
  Dim As Long iStyle = 0
#endif
Dim As Hbitmap pNull
Buttongadget( 1 , 10 , 160 , 100 , 30 , "expand all")
Buttongadget( 2 , 120 , 160 , 100 , 30 , "collapse item")
tree=Treeviewgadget(4,10,10,200,140, iStyle,,32)
Dim As Integer iItem1 = Addtreeviewitem(4,"1",pNull,pNull,TVI_FIRST)
Dim As Integer iItem2 = Addtreeviewitem(4,"1-1",pNull,pNull,TVI_FIRST,iItem1)
Dim As Integer iItem3 = Addtreeviewitem(4,"1-1-1",pNull,pNull,iItem1,iItem2)
Dim As Integer iItem4 = Addtreeviewitem(4,"2",pNull,pNull,iItem1)
Dim As Integer iItem5 = Addtreeviewitem(4,"2-1",pNull,pNull,TVI_FIRST,iItem4)
Do
  Event=Waitevent
  Select Case Event
     Case Eventclose  
        Exit Do
     Case Eventgadget
        Select Case Eventnumber
           Case 1
              ExpandTreeViewItemALL(4)
           Case 2
              CollapseTreeViewItem(4 , iItem1)
        End Select
  End Select
Loop

Created with the Personal Edition of HelpNDoc: Create HTML Help, DOC, PDF and print manuals from 1 single source