Yes from this pageVANYA wrote:I do not understand. What operating system? Have you used the version of the library from this page? What example did you run?
zip : 2020/05/05
lib WIN : 2020/03/02
I tried the 64bit version with this code from the chm file (addtreeviewitem page) :
Code: Select all
#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
Code: Select all
var hwnd=OpenWindow("test",10,10,100,100) 'hwnd=OpenWindow("test",10,10,300,200)
Var event=0
Do
event=WaitEvent()
If Event=EventClose Then End
Loop