treeview.tbl

一个不错的做图软件

<?xml version="1.0" encoding="utf-8"?>
<vg version="723" range="0,0,321,321" caption="Treeview test" bordericons="1" borderstyle="0" scrollbars="0" backcolor="$8000000F" papervisible="false">
<sheet name="sheet1">
<TreeView name="TreeView1" lib="controls.tbl" origin="160,172" bounds="16,40,304,304" Enable="true" Focused="true" itemheight="20" SelectedIndex="-1">
<programe>
<!--
published function OnChange(Sender)
n = Sender.GetItemIndex()
if n > -1 then
  ShowMessage( 'You selected ' + Sender.GetValue( n ) )
end if
end function
-->
</programe>
</TreeView>
<text name="text1" origin="18,26" bounds="16,16,148,36" autosize="true" border="0" fontname="瀹嬩綋" fontsize="16" textalign="1" text="select the item:"/>
<KeyManager name="KeyManager1" lib="controls.tbl" origin="164,212" bounds="152,200,176,224" visible="false" protect="12" hint="璇峰湪椤甸潰鐨凮nKeyDown浜嬩欢閲屽啓KeyManager1.OnKeyDown( Sender, Key )"/>
<programe>
<!--
private function OnKeyDown(Sender,Key)
KeyManager1.OnKeyDown( Sender, Key )
end function
private function OnLoad(Sender)
TreeView1.AddItem( "鍏冧欢缁勬垚", SystemParams.DefaultPath + "icon\element.bmp", 0, true, 0 )
TreeView1.AddItem( "鏂囧瓧鍗曞厓", SystemParams.DefaultPath + "icon\text.bmp", 1, true, 0 )
TreeView1.AddItem( "褰㈢姸鍗曞厓", SystemParams.DefaultPath + "icon\hexagon.bmp", 1, true, 0 )
TreeView1.AddItem( "鐭╁舰", SystemParams.DefaultPath + "icon\rect.bmp", 2, true, 0 )
TreeView1.AddItem( "妞