ReplaceImageItemTreeView

Синтаксис

Sub ReplaceImageItemTreeView OverLoad(ByVal gadget As Integer, ByVal item As Integer, ByVal image As Hbitmap=0,ByVal Selectimage As Hbitmap=0)

Sub ReplaceImageItemTreeView (ByVal gadget As Integer, ByVal item As Integer, ByVal image As HICON=0 ,ByVal Selectimage As HICON=0)

Описание

Изменяет изображения или иконки в пункте гаджета. Можно изменять только пункт image или же только пункт imageselect. И конечно можно изменять сразу оба пункта.

Параметры

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

item - хендл пункта

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

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

Платформы

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")
Dim As HBITMAP hbmp2 = Load_image("3.png")
tree=TreeViewGadget(1,10,10,140,140, Style, ,32)
Var Pos_=AddTreeViewItem(1,"1",hbmp,hbmp1,TVI_FIRST)
AddTreeViewItem(1,"1-1",hbmp,hbmp1,TVI_FIRST,Pos_)
Pos_=AddTreeViewItem(1,"2",hbmp,hbmp1,Pos_)
AddTreeViewItem(1,"2-1",hbmp,hbmp1,TVI_FIRST,Pos_)
Do
  event=waitevent
  If event=EventClose Then End
  If event=eventLBDOWN Then
     If EventNumberTreeView=1 Then
        ReplaceImageItemTreeView(1,GetItemTreeView(1),,hbmp2)
     EndIf
  EndIf
Loop

Результат

Created with the Personal Edition of HelpNDoc: Free EBook and documentation generator