dlg.tbl

cShap控制云台运动

<?xml version="1.0" encoding="utf-8"?>
<vg version="702" range="0,0,487,225" caption="閫夋嫨瑙嗗浘鏂囦欢" bordericons="1" borderstyle="0" scrollbars="0" backcolor="$8000000F">
<page name="Page" bounds="0,0,827,1169" visible="false"/>
<sheet name="Sheet1" bounds="12,12,474,213">
<static name="Text1" lib="controls.tbl" bounds="12,12,154,28" origin="16,22" Caption="&apos;浣滀负鍏冧欢搴撶殑瑙嗗浘鏂囦欢(L)&apos;" Enable="true" FocusedUnit="&apos;CheckListBox1&apos;"/>
<checklistbox name="CheckListBox1" lib="controls.tbl" bounds="13,33,380,213" origin="197.5,51" Enable="true" Focused="false" ItemHeight="16" ItemIndex="-1" Items="&apos;&apos;">
<programe>
published function OnClick(Sender)
Button4.Enable = ( CheckListBox1.ItemIndex &gt; -1 )
end function
published function OnDrawItem(AUnit,AValue)
e = ExtractFileExt( AValue )
f = ExtractFileName( AValue )
f = SubStr( f, 1, Len( f ) - Len( e ) )
AUnit.Text = f
end function
</programe>
</checklistbox>
<button name="Button1" lib="controls.tbl" bounds="386,32,474,64" origin="415,43" Caption="&apos;纭