poplist.tbl

cShap控制云台运动

<?xml version="1.0" encoding="utf-8"?>
<vg version="700" gridsize="8" range="0,0,369,211" bordericons="0" borderstyle="1" scrollbars="0" windowstate="0" backcolor="$FFFFFF">
<page name="page" bounds="0,0,793.700787,1122.141732" visible="false" margin="100,100,100,100" paperwidth="2100" paperheight="2969"/>
<sheet name="sheet1" bounds="0,0,368,210">
<ListBox name="ListBox1" bounds="0,0,368,210" origin="128,88" Enable="true" Focused="false" itemheight="18" ItemIndex="-1">
<rect name="Element1" bounds="0,0,368,210" origin="8,4" pattern="1"/>
<element name="Item1" bounds="1,1,368,20" origin="148.5,94.75" visible="false" Selected="false" Value="&apos;&apos;">
<rect name="Rect2" bounds="1,1,368,20" origin="85.5,-34.5" linetype="0" backcolor="$80000005" pattern="1"/>
<rect name="Rect1" bounds="5,2,21,18" origin="9,9" linetype="0" pattern="1"/>
<text name="Text1" bounds="25,1,368,19" origin="144,19" backcolor="$80000005" pattern="1" border="$0" fontname="瀹嬩綋" fontsize="12" fontcolor="$80000008" wordwrap="false" textalign="0"/>
<programe>
private function Initialize(Sender)
FValue=&apos;&apos;
FSelected = false
end function
private function OnResize(Sender)
Rect2.SetBounds( Left, Top, Width, Height )
Rect1.SetBounds( Left+4,Top+1,16,16 )
if Left+Width-Rect1.Left-Rect1.Width-4 &gt;= 0 then
  Text1.SetBounds( Rect1.Left+Rect1.Width+4,Top,Left+Width-Rect1.Left-Rect1.Width-4,Text1.Height)
  Text1.Visible = true
else
  Text1.Visible = false
end if
end function
property Selected read FSelected write SetSelected editor Bool
private function SetSelected(AValue)
if AValue then
	Text1.BackColor = $8000000D
  if Text1.FontColor &lt;&gt; $80000011 then
  	Text1.FontColor = $8000000E
  end if
else
	Text1.BackColor = $80000005
  if Text1.FontColor &lt;&gt; $80000011 then
  	Text1.FontColor = $80000008
  end if
end if
end function
private function SetValue(AValue)
Text1.Text = AValue
FValue = AValue
end function
property Value read FValue write SetValue
</programe>
</element>
<rect name="rect1" bounds="1,1,367,19" origin="92,10" visible="false" linetype="15" linecolor="$FFFFFF"/>
<element name="Item2" bounds="1,20,368,39" origin="148.5,94.75" visible="false" Selected="false" Value="&apos;&apos;">
<rect name="Rect2" bounds="1,20,368,39" origin="85.5,-15.5" linetype="0" backcolor="$80000005" pattern="1"/>
<rect name="Rect1" bounds="5,21,21,37" origin="9,28" linetype="0" pattern="1"/>
<text name="Text1" bounds="25,20,368,38" origin="144,38" backcolor="$80000005" pattern="1" border="$0" fontname="瀹嬩綋" fontsize="12" fontcolor="$80000008" wordwrap="false" textalign="0"/>
<programe>
private function Initialize(Sender)
FValue=&apos;&apos;
FSelected = false
end function
private function OnResize(Sender)
Rect2.SetBounds( Left, Top, Width, Height )
Rect1.SetBounds( Left+4,Top+1,16,16 )
if Left+Width-Rect1.Left-Rect1.Width-4 &gt;= 0 then
  Text1.SetBounds( Rect1.Left+Rect1.Width+4,Top,Left+Width-Rect1.Left-Rect1.Width-4,Text1.Height)
  Text1.Visible = true
else
  Text1.Visible = false
end if
end function
property Selected read FSelected write SetSelected editor Bool
private function SetSelected(AValue)
if AValue then
	Text1.BackColor = $8000000D
  if Text1.FontColor &lt;&gt; $80000011 then
  	Text1.FontColor = $8000000E
  end if
else
	Text1.BackColor = $80000005
  if Text1.FontColor &lt;&gt; $80000011 then
  	Text1.FontColor = $80000008
  end if
end if
end function
private function SetValue(AValue)
Text1.Text = AValue
FValue = AValue
end function
property Value read FValue write SetValue
</programe>
</element>
<element name="Item3" bounds="1,39,368,58" origin="148.5,94.75" visible="false" Selected="false" Value="&apos;&apos;">
<rect name="Rect2" bounds="1,39,368,58" origin="85.5,3.5" linetype="0" backcolor="$80000005" pattern="1"/>
<rect name="Rect1" bounds="5,40,21,56" origin="9,47" linetype="0" pattern="1"/>
<text name="Text1" bounds="25,39,368,57" origin="144,57" backcolor="$80000005" pattern="1" border="$0" fontname="瀹嬩綋" fontsize="12" fontcolor="$80000008" wordwrap="false" textalign="0"/>
<programe>
private function Initialize(Sender)
FValue=&apos;&apos;
FSelected = false
end function
private function OnResize(Sender)
Rect2.SetBounds( Left, Top, Width, Height )
Rect1.SetBounds( Left+4,Top+1,16,16 )
if Left+Width-Rect1.Left-Rect1.Width-4 &gt;= 0 then
  Text1.SetBounds( Rect1.Left+Rect1.Width+4,Top,Left+Width-Rect1.Left-Rect1.Width-4,Text1.Height)
  Text1.Visible = true
else
  Text1.Visible = false
end if
end function
property Selected read FSelected write SetSelected editor Bool
private function SetSelected(AValue)
if AValue then
	Text1.BackColor = $8000000D
  if Text1.FontColor &lt;&gt; $80000011 then
  	Text1.FontColor = $8000000E
  end if
else
	Text1.BackColor = $80000005
  if Text1.FontColor &lt;&gt; $80000011 then
  	Text1.FontColor = $80000008
  end if
end if
end function
private function SetValue(AValue)
Text1.Text = AValue
FValue = AValue
end function
property Value read FValue write SetValue
</programe>
</element>
<element name="Item4" bounds="1,58,368,77" origin="148.5,94.75" visible="false" Selected="false" Value="&apos;&apos;">
<rect name="Rect2" bounds="1,58,368,77" origin="85.5,22.5" linetype="0" backcolor="$80000005" pattern="1"/>
<rect name="Rect1" bounds="5,59,21,75" origin="9,66" linetype="0" pattern="1"/>
<text name="Text1" bounds="25,58,368,76" origin="144,76" backcolor="$80000005" pattern="1" border="$0" fontname="瀹嬩綋" fontsize="12" fontcolor="$80000008" wordwrap="false" textalign="0"/>
<programe>
private function Initialize(Sender)
FValue=&apos;&apos;
FSelected = false
end function
private function OnResize(Sender)
Rect2.SetBounds( Left, Top, Width, Height )
Rect1.SetBounds( Left+4,Top+1,16,16 )
if Left+Width-Rect1.Left-Rect1.Width-4 &gt;= 0 then
  Text1.SetBounds( Rect1.Left+Rect1.Width+4,Top,Left+Width-Rect1.Left-Rect1.Width-4,Text1.Height)
  Text1.Visible = true
else
  Text1.Visible = false
end if
end function
property Selected read FSelected write SetSelected editor Bool
private function SetSelected(AValue)
if AValue then
	Text1.BackColor = $8000000D
  if Text1.FontColor &lt;&gt; $80000011 then
  	Text1.FontColor = $8000000E
  end if
else
	Text1.BackColor = $80000005
  if Text1.FontColor &lt;&gt; $80000011 then
  	Text1.FontColor = $80000008
  end if
end if
end function
private function SetValue(AValue)
Text1.Text = AValue
FValue = AValue
end function
property Value read FValue write SetValue
</programe>
</element>
<element name="Item5" bounds="1,77,368,96" origin="148.5,94.75" visible="false" Selected="false" Value="&apos;&apos;">
<rect name="Rect2" bounds="1,77,368,96" origin="85.5,41.5" linetype="0" backcolor="$80000005" pattern="1"/>
<rect name="Rect1" bounds="5,78,21,94" origin="9,85" linetype="0" pattern="1"/>
<text name="Text1" bounds="25,77,368,95" origin="144,95" backcolor="$80000005" pattern="1" border="$0" fontname="瀹嬩綋" fontsize="12" fontcolor="$80000008" wordwrap="false" textalign="0"/>
<programe>
private function Initialize(Sender)
FValue=&apos;&apos;
FSelected = false
end function
private function OnResize(Sender)
Rect2.SetBounds( Left, Top, Width, Height )
Rect1.SetBounds( Left+4,Top+1,16,16 )
if Left+Width-Rect1.Left-Rect1.Width-4 &gt;= 0 then
  Text1.SetBounds( Rect1.Left+Rect1.Width+4,Top,Left+Width-Rect1.Left-Rect1.Width-4,Text1.Height)
  Text1.Visible = true
else
  Text1.Visible = false
end if
end function
property Selected read FSelected write SetSelected editor Bool
private function SetSelected(AValue)
if AValue then
	Text1.BackColor = $8000000D
  if Text1.FontColor &lt;&gt; $80000011 then
  	Text1.FontColor = $8000000E
  end if
else
	Text1.BackColor = $80000005
  if Text1.FontColor &lt;&gt; $80000011 then
  	Text1.FontColor = $80000008
  end if
end if
end function
private function SetValue(AValue)
Text1.Text = AValue
FValue = AValue
end function
property Value read FValue write SetValue
</programe>
</element>
<element name="Item6" bounds="1,96,368,115" origin="148.5,94.75" visible="false" Selected="false" Value="&apos;&apos;">
<rect name="Rect2" bounds="1,96,368,115" origin="85.5,60.5" linetype="0" backcolor="$80000005" pattern="1"/>
<rect name="Rect1" bounds="5,97,21,113" origin="9,104" linetype="0" pattern="1"/>
<text name="Text1" bounds="25,96,368,114" origin="144,114" backcolor="$80000005" pattern="1" border="$0" fontname="瀹嬩綋" fontsize="12" fontcolor="$80000008" wordwrap="false" textalign="0"/>
<programe>
private function Initialize(Sender)
FValue=&apos;&apos;
FSelected = false
end function
private function OnResize(Sender)
Rect2.SetBounds( Left, Top, Width, Height )
Rect1.SetBounds( Left+4,Top+1,16,16 )
if Left+Width-Rect1.Left-Rect1.Width-4 &gt;= 0 then
  Text1.SetBounds( Rect1.Left+Rect1.Width+4,Top,Left+Width-Rect1.Left-Rect1.Width-4,Text1.Height)
  Text1.Visible = true
else
  Text1.Visible = false
end if
end function
property Selected read FSelected write SetSelected editor Bool
private function SetSelected(AValue)
if AValue then
	Text1.BackColor = $8000000D
  if Text1.FontColor &lt;&gt; $80000011 then
  	Text1.FontColor = $8000000E
  end if
else
	Text1.BackColor = $80000005
  if Text1.FontColor &lt;&gt; $80000011 then
  	Text1.FontColor = $80000008
  end if
end if
end function
private function SetValue(AValue)
Text1.Text = AValue
FValue = AValue
end function
property Value read FValue write SetValue
</programe>
</element>
<element name="Item7" bounds="1,115,368,134" origin="148.5,94.75" visible="false" Selected="false" Value="&apos;&apos;">
<rect name="Rect2" bounds="1,115,368,134" origin="85.5,79.5" linetype="0" backcolor="$80000005" pattern="1"/>
<rect name="Rect1" bounds="5,116,21,132" origin="9,123" linetype="0" pattern="1"/>
<text name="Text1" bounds="25,115,368,133" origin="144,133" backcolor="$80000005" pattern="1" border="$0" fontname="瀹嬩綋" fontsize="12" fontcolor="$80000008" wordwrap="false" textalign="0"/>
<programe>
private function Initialize(Sender)
FValue=&apos;&apos;
FSelected = false
end function
private function OnResize(Sender)
Rect2.SetBounds( Left, Top, Width, Height )
Rect1.SetBounds( Left+4,Top+1,16,16 )
if Left+Width-Rect1.Left-Rect1.Width-4 &gt;= 0 then
  Text1.SetBounds( Rect1.Left+Rect1.Width+4,Top,Left+Width-Rect1.Left-Rect1.Width-4,Text1.Height)
  Text1.Visible = true
else
  Text1.Visible = false
end if
end function
property Selected read FSelected write SetSelected editor Bool
private function SetSelected(AValue)
if AValue then
	Text1.BackColor = $8000000D
  if Text1.FontColor &lt;&gt; $80000011 then
  	Text1.FontColor = $8000000E
  end if
else
	Text1.BackColor = $80000005
  if Text1.FontColor &lt;&gt; $80000011 then
  	Text1.FontColor = $80000008
  end if
end if
end function
private function SetValue(AValue)
Text1.Text = AValue
FValue = AValue
end function
property Value read FValue write SetValue
</programe>
</element>
<element name="Item8" bounds="1,134,368,153" origin="148.5,94.75" visible="false" Selected="false" Value="&apos;&apos;">
<rect name="Rect2" bounds="1,134,368,153" origin="85.5,98.5" linetype="0" backcolor="$80000005" pattern="1"/>
<rect name="Rect1" bounds="5,135,21,151" origin="9,142" linetype="0" pattern="1"/>
<text name="Text1" bounds="25,134,368,152" origin="144,152" backcolor="$80000005" pattern="1" border="$0" fontname="瀹嬩綋" fontsize="12" fontcolor="$80000008" wordwrap="false" textalign="0"/>
<programe>
private function Initialize(Sender)
FValue=&apos;&apos;
FSelected = false
end function
private function OnResize(Sender)
Rect2.SetBounds( Left, Top, Width, Height )
Rect1.SetBounds( Left+4,Top+1,16,16 )
if Left+Width-Rect1.Left-Rect1.Width-4 &gt;= 0 then
  Text1.SetBounds( Rect1.Left+Rect1.Width+4,Top,Left+Width-Rect1.Left-Rect1.Width-4,Text1.Height)
  Text1.Visible = true
else
  Text1.Visible = false
end if
end function
property Selected read FSelected write SetSelected editor Bool
private function SetSelected(AValue)
if AValue then
	Text1.BackColor = $8000000D
  if Text1.FontColor &lt;&gt; $80000011 then
  	Text1.FontColor = $8000000E
  end if
else
	Text1.BackColor = $80000005
  if Text1.FontColor &lt;&gt; $80000011 then
  	Text1.FontColor = $80000008
  end if
end if
end function
private function SetValue(AValue)
Text1.Text = AValue
FValue = AValue
end function
property Value read FValue write SetValue
</programe>
</element>
<element name="Item9" bounds="1,153,368,172" origin="148.5,94.75" visible="false" Selected="false" Value="&apos;&apos;">
<rect name="Rect2" bounds="1,153,368,172" origin="85.5,117.5" linetype="0" backcolor="$80000005" pattern="1"/>
<rect name="Rect1" bounds="5,154,21,170" origin="9,161" linetype="0" pattern="1"/>
<text name="Text1" bounds="25,153,368,171" origin="144,171" backcolor="$80000005" pattern="1" border="$0" fontname="瀹嬩綋" fontsize="12" fontcolor="$80000008" wordwrap="false" textalign="0"/>
<programe>
private function Initialize(Sender)
FValue=&apos;&apos;
FSelected = false
end function
private function OnResize(Sender)
Rect2.SetBounds( Left, Top, Width, Height )
Rect1.SetBounds( Left+4,Top+1,16,16 )
if Left+Width-Rect1.Left-Rect1.Width-4 &gt;= 0 then
  Text1.SetBounds( Rect1.Left+Rect1.Width+4,Top,Left+Width-Rect1.Left-Rect1.Width-4,Text1.Height)
  Text1.Visible = true
else
  Text1.Visible = false
end if
end function
property Selected read FSelected write SetSelected editor Bool
private function SetSelected(AValue)
if AValue then
	Text1.BackColor = $8000000D
  if Text1.FontColor &lt;&gt; $80000011 then
  	Text1.FontColor = $8000000E
  end if
else
	Text1.BackColor = $80000005
  if Text1.FontColor &lt;&gt; $80000011 then
  	Text1.FontColor = $80000008
  end if
end if
end function
private function SetValue(AValue)
Text1.Text = AValue
FValue = AValue
end function
property Value read FValue write SetValue
</programe>
</element>
<element name="Item10" bounds="1,172,368,191" origin="148.5,94.75" visible="false" Selected="false" Value="&apos;&apos;">
<rect name="Rect2" bounds="1,172,368,191" origin="85.5,136.5" linetype="0" backcolor="$80000005" pattern="1"/>
<rect name="Rect1" bounds="5,173,21,189" origin="9,180" linetype="0" pattern="1"/>
<text name="Text1" bounds="25,172,368,190" origin="144,190" backcolor="$80000005" pattern="1" border="$0" fontname="瀹嬩綋" fontsize="12" fontcolor="$80000008" wordwrap="false" textalign="0"/>
<programe>
private function Initialize(Sender)
FValue=&apos;&apos;
FSelected = false
end function