listview.tbl

cShap控制云台运动

<?xml version="1.0" encoding="utf-8"?>
<vg version="702" range="0,0,2000,2000" bordericons="0" borderstyle="1" scrollbars="0" backcolor="$8000000F">
<page name="Page" bounds="0,0,793.700787,1122.141732" visible="false"/>
<sheet name="Sheet1" bounds="0,0,136,444.25" cursheet="0" IDE="true">
<鍏冧欢鍒楄〃 name="鍏冧欢鍒楄〃1" bounds="0,0,136,444.25" origin="116,134" protect="32" ActiveGroupIndex="0" baseunitlistview="Element2" Direction="1">
<鎸夐挳a name="鎸夐挳A1" bounds="0,0,116,17" origin="74,25" label="Text1">
<rect name="Rect1" bounds="0,0,116,17" origin="94,12" linetype="0" backcolor="$8000000F" pattern="1"/>
<line name="Line2" origin="1.714286,1.857143" linecolor="$80000010" backcolor="$80000010">
<points>
116,0,6
116,16,2
0,16,2
</points>
</line>
<line name="Line1" origin="1,-9" linecolor="$80000014" backcolor="$80000014">
<points>
0,16,6
0,0,2
116,0,2
</points>
</line>
<rect name="Rect3" bounds="4,1,16,15" origin="14,15" linetype="0" pattern="1" picturedata="07TBitmap
424DE60000000000000076000000280000000C0000000E0000000100040000000000700000000000000000000000100000000000000000000000000080000080
00000080800080000000800080008080000080808000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0088888888888800008000
00000008000082AEAEAEAE08000082EAEAEAEA08000082A2FF2FFE08000082E2FF2FFA08000082A222222E08000082E2FF2FFA08000082A2FF2FFE08000082E2
22222A08000082AEAEAEAE08000082EAEAEAEA08000082222222220800008888888888880000"/>
<text name="Text1" bounds="18,1,114,16" origin="30,-11.5" backcolor="$C0C0C0" border="$0" fontname="瀹嬩綋" fontsize="12" fontcolor="$80000012" textalign="1" borderinterval="1" text="鍩烘湰鍥惧舰"/>
<programe>
published function OnClick(Sender)
SetActiveGroupIndex( FButtons.FindUnit( Sender ) )
end function
private function OnLButtonDown(Sender,X,Y)
Line1.LineColor = $80000010
Line2.LineColor = $80000014
end function
private function OnLButtonUp(Sender,X,Y)
Line1.LineColor = $80000014
Line2.LineColor = $80000010
end function
private function OnResize(Sender)
Rect1.SetBounds( Left, Top, Width, Rect1.Height )
Line1.SetBounds( Left, Top, Width, Line1.Height )
Line2.SetBounds( Left, Top, Width, Line2.Height )
Text1.SetBounds( 18, Text1.Top, Left + Width - Text1.Left - 2, Text1.Height )
end function
</programe>
</鎸夐挳a>
<element name="Element1" bounds="0,17,136,444.25" origin="9,66" Direction="1" max="-1" pos="0">
<borderi name="rect1" bounds="0,17,136,444.25" origin="161.75,95.25" BackColor="16777215">
<rect name="rect1" bounds="0,17,136,444.25" origin="90.75,193.25" linetype="0" backcolor="$8000000F" pattern="1"/>
<borderb name="borderB1" bounds="2,19,134,442.25" origin="97.75,77.75">
<line name="Line1" origin="90,67" linecolor="$80000010">
<points>
2,442.25,6
2,19,2
134,19,2
</points>
</line>
<line name="Line2" origin="90,67" linecolor="$80000014">
<points>
2,442.25,6
134,442.25,2
134,19,2
</points>
</line>
</borderb>
<rect name="rect2" bounds="3,20,133,441.25" origin="62.25,143.25" linetype="0" pattern="1"/>
<programe>
property BackColor read GetBackColor write SetBackColor editor Color
private function GetBackColor()
return Rect2.BackColor
end function
private function Initialize(Sender)
end function
private function OnResize(Sender)
Rect1.SetBounds( Left, Top, Width, Height )
borderB1.SetBounds( Left + 2, Top + 2, Width - 4, Height - 4 )
Rect2.SetBounds( borderB1.Left + 1, borderB1.Top + 1, borderB1.Width - 2, borderB1.Height - 2 )
end function
private function SetBackColor(AValue)
Rect2.BackColor = AValue
end function
</programe>
</borderi>
<element name="Element2" bounds="8,25,72,81" origin="23,67" visible="false" hint="鍗曞嚮宸﹂敭锛屽湪椤甸潰涓婃媺妗嗙敾鍥撅紝
鎴栬