inspector.tbl

cShap控制云台运动

<?xml version="1.0" encoding="utf-8"?>
<vg version="702" gridsize="4" range="0,0,2000,2000" borderstyle="1" scrollbars="0" backcolor="$8000000F">
<page name="page" bounds="0,0,793.700787,1122.141732" visible="false"/>
<sheet name="sheet1" bounds="0,0,184,512">
<rect name="Rect3" bounds="1,1,21,21" origin="127,20" linetype="0" linecolor="$80000005" pattern="1"/>
<text name="text1" bounds="21,1,183,21" origin="14.434492,10.129679" pattern="1" border="$0" fontname="瀹嬩綋" fontsize="12" wordwrap="false" textalign="4" borderinterval="4">
<programe>
published function OnClick(Sender)
Element1.OnClick( Element1 )
end function
</programe>
</text>
<rect name="Rect2" bounds="1,1,21,21" origin="127,20" linetype="0" linecolor="$80000005" backcolor="$C0C0C0"/>
<element name="Element2" bounds="0,0,184,22" origin="61,11">
<line name="Line1" origin="127,17" linecolor="$80000010">
<points>
0,22,6
0,0,2
184,0,2
</points>
</line>
<line name="Line2" origin="128,16" linecolor="$80000014">
<points>
0,22,6
184,22,2
184,0,2
</points>
</line>
</element>
<rect name="rect1" bounds="0,48,184,512" origin="92,280" visible="false" pattern="1"/>
<鎸夐挳y name="Element1" bounds="166,2,182,20" origin="111,11" Enable="true">
<line name="Line7" origin="175,11" linecolor="$80000014">
<points>
167,19,6
167,3,2
181,3,2
</points>
</line>
<line name="Line8" origin="175,11" linecolor="$80000010">
<points>
167,19,6
181,19,2
181,3,2
</points>
</line>
<rect name="Rect2" bounds="168,4,180,18" origin="174,11" linecolor="$8000000F" backcolor="$8000000F" pattern="1"/>
<line name="Line5" origin="174,10" linecolor="$80000016">
<points>
166,20,6
166,2,2
182,2,2
</points>
</line>
<line name="Line6" origin="174,10" linecolor="$80000015">
<points>
166,20,6
182,20,2
182,2,2
</points>
</line>
<rect name="Rect1" bounds="166,2,182,20" origin="170,10" visible="false" linecolor="$80000010" backcolor="$8000000F" pattern="1"/>
<line name="Line9" origin="174,12" backcolor="$0" pattern="1">
<points>
174,12.5,6
177,9.5,2
171,9.5,3
</points>
</line>
<programe>
property Enable read GetEnable write SetEnable editor Bool
private function GetEnable()
return Enabled
end function
published function OnClick(Sender)
Document = IDE_GetDocument()
if Document = 0 then
  return
end if
doc=Create( Handle, ExtractFilePath( FileName ) + &apos;treeview.tbl&apos;, true, false )
doc.ActiveSheet.ListBox1.BeginUpdate()
doc.ActiveSheet.ListBox1.Clear()
i = 0
n = Document.SheetCount
while i &lt; n
  e = Document.Sheets[i]
  doc.ActiveSheet.ListBox1.AddItem( e.Name, GetUnitImage( e ), 0, true, e )
  AddTreeView( doc.ActiveSheet.ListBox1, e, 0, Document.ActiveSheetIndex = i )
  i = i + 1
wend
doc.ActiveSheet.ListBox1.EndUpdate()
p=Point(Element2.Right,Element2.Bottom)
Sender.ViewToClient( p )
ClientToScreen( p )
doc.RightRange = Element2.Width
p.x = p.x - doc.RightRange
doc.Focused = true
if doc.Popup( p.x, p.y ) &gt; 0 then
  s = doc.ActiveSheet.Selected
  IDE_TreeView1Click( s )
end if
doc.Free()
end function
private function OnLButtonDown(Sender,X,Y)
Rect1.Visible = true
end function
private function OnLButtonUp(Sender,X,Y)
Rect1.Visible = false
end function
private function OnResize(Sender)
Rect1.SetBounds( Left, Top, Width, Height )
Line5.SetBounds( Left, Top, Width, Height )
Line6.SetBounds( Left, Top, Width, Height )
Line7.SetBounds( Left + 1, Top + 1, Width - 2, Height - 2 )
Line8.SetBounds( Left + 1, Top + 1, Width - 2, Height - 2 )
Rect2.SetBounds( Left + 2, Top + 2, Width - 4, Height - 4 )
Line9.MoveTo( Left + ( Width - Line9.Width ) / 2, Top + ( Height - Line9.Height ) / 2 )
end function
private function SetEnable(AValue)
Enabled = AValue
if AValue then
  Line9.Alpha = 100
else
  Line9.Alpha = 20
end if
end function
</programe>
</鎸夐挳y>
<CheckButton name="CheckButton1" bounds="0,25,56,45" origin="22,35" Caption="&apos;灞炴