AddTreeViewItem

Синтаксис

Function AddTreeViewItem OverLoad(ByVal gadget As long, ByRef string_ As String, ByVal IDImage_0 As HBITMAP, ByVal IDImage_Selected As HBITMAP, ByVal pos_ As Integer, ByVal parent As Integer=0) As Integer
 
Function AddTreeViewItem(ByVal gadget As Long, ByRef string_ As String,ByVal IDImage_0 As HICON,ByVal IDImage_Selected As HICON,ByVal pos_ As Integer,ByVal parent As Integer=0) As Integer

Описание

Добавляет(вставляет) пункт в TreeViewGadget. В linux используется синтаксис без перегрузки функции (изображения всегда имеют тип HBITMAP). Функция возвращает хендл нового добавленного или вставленного пункта.

Параметры

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

string_ - текст пункта

IDImage_0 - хендл битмапа или ( иконки в Windows) для невыбранного пункта (в linux для нераскрытого пункта)

IDImage_Selected - хендл битмапа или ( иконки в Windows) для выбранного пункта (в linux для раскрытого пункта)

pos_ - хендл пункта после которого надо вставить новый пункт. Может быть результат работы функции AddTreeViewGadget или константы: TVI_FIRST - в начало списка, TVI_LAST - В конец списка , TVI_SORT (только в Windows) - вставляет с сортировкой по алфавиту.

parent - хендл родительского пункта, если новый пункт будет дочерним. Или 0 если в корневой каталог.

Платформы

Windows , Linux

Пример

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

Результат

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