TreeViewGadget

Синтаксис

Function TreeViewGadget(ByVal gadget As Long, ByVal x As Long, ByVal y As Long, ByVal w As Long, ByVal h As Long, ByVal Style As Long= 0, ByVal ExStyle As Long=0, ByVal SizeIcon As Long=16)As HWND

Описание

Гаджет-дерево-каталог. Содержит список элементов в иерархическом порядке.

Установить цвет в гаджет можно функцией SetGadgetColor
Получить цвет из гаджета можно функцией GetGadgetColor
Установить шрифт в гаджет можно функцией SetGadgetFont

Параметры

gadget - идентификатор\номер (любое натуральное число больше нуля, может быть 1,2,3,4 и др.)

x,y,w,h - расположение и размеры гаджета

Style - (только для windows) стиль, может быть:

TVS_DISABLEDRAGDROP - запрещает операции drag-and-drop с элементами списка
TVS_EDITLABELS - названия элементов списка могут быть изменены
TVS_HASBUTTONS - к элементам, имеющим дочерние элементы, слева добавляются небольшие кнопки, позволяющие раскрывать и закрывать список подчиненных элементов
TVS_HASLINES - дочерние элементы списка соединяются с родительским элементом линиями, элементы высшего уровня не соединяются
TVS_LINESATROOT - элементы высшего уровня соединяются друг с другом
TVS_SHOWSELALWAYS - выбранные элементы остаются таковыми даже тогда когда окно теряет фокус

ExStyle - (только для windows) расширенный стиль, может быть: WS_EX_CLIENTEDGE

SizeIcon - (только для windows) размер иконки для отображения

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As Integer event
Dim As HWND hwnd,tree
#Ifdef __FB_WIN32__
Var style = TVS_HASLINES or TVS_HASBUTTONS or TVS_LINESATROOT
#Else
Var style = 0
#EndIf
hwnd=OpenWindow("TreeView",10,10,180,200) : CenterWindow(hwnd)
Dim As HBITMAP hbmp = Load_Image( "1.png")
Dim As HBITMAP hbmp1 = Load_Image( "2.png")
tree=TreeViewGadget(4,10,10,140,140, style,,32)
Var Pos_=AddTreeViewItem(4,"1",hbmp,hbmp1,1)
AddTreeViewItem(4,"1-1",hbmp,hbmp1,1,Pos_)
Pos_=AddTreeViewItem(4,"2",hbmp,hbmp1,4)
AddTreeViewItem(4,"2-1",hbmp,hbmp1,3,Pos_)
Do
  event=waitevent
  If event=EventClose Then end
Loop

Результат

Created with the Personal Edition of HelpNDoc: Free CHM Help documentation generator