treeview.tbl

一个不错的做图软件

<?xml version="1.0" encoding="utf-8"?>
<vg version="722" range="0,0,287,265" borderstyle="1" scrollbars="0">
<page name="page" bounds="0,0,793.700787,1122.141732" visible="false"/>
<sheet name="sheet1" bounds="0,0,286,264">
<TreeView name="ListBox1" lib="controls.tbl" origin="143,132" bounds="0,0,286,264" Enable="true" Focused="false" itemheight="20" ItemIndex="-1" SelectedIndex="-1">
<programe>
<!--
published function OnChange(Sender)
n = Sender.GetItemIndex()
if n >= 0 then
  Selected = Sender.GetObject( n )
end if
Close( 1 )
end function
-->
</programe>
</TreeView>
<KeyManager name="KeyManager1" lib="controls.tbl" origin="229,92" bounds="217,80,241,104" visible="false" protect="12" hint="璇峰湪椤甸潰鐨凮nKeyDown浜嬩欢閲屽啓KeyManager1.OnKeyDown( Sender, Key )"/>
<programe>
<!--
private function Initialize(Sender)
FSelected = false
end function
private function OnKeyDown(Sender,Key)
KeyManager1.OnKeyDown( Sender, Key )
UpdateWindow()
end function
private function OnShow(Sender)
ListBox1.Focused = true
ListBox1.SetBounds( Owner.RangeLeft, Owner.RangeTop, Owner.RangeRight - 1, Owner.RangeBottom - 1 )
end function
property Selected read FSelected write FSelected editor Bool
-->
</programe>
</sheet>
</vg>