function GetParentItemTreeView(iGadget as Long , iItem as Integer) as Integer
Извлекает родительский пункт для пункта iItem в TreeViewGadget.
gadget - номер гаджета
iItem - хендл пункта, для которого необходимо получить родительский хендл пункта.
Windows , Linux
#include "window9.bi"
Dim As Integer Event
Dim As HWND hwnd,tree
hwnd=Openwindow("TreeView",10,10,180,200) : 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
tree=Treeviewgadget(4,10,10,140,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)
? "Parent = " , iItem1
? "Child = " , iItem2
? "Get Parent for iItem2 = " , GetParentItemTreeView(4 , iItem2)
Do
Event=Waitevent
If Event=Eventclose Then End
Loop
Created with the Personal Edition of HelpNDoc: Full featured multi-format Help generator