按钮库.tbl

cShap控制云台运动

<?xml version="1.0" encoding="utf-8"?>
<vg version="700" gridsize="8" activesheetIndex="2" range="0,0,800,553" bordericons="7" borderstyle="3" scrollbars="3" windowstate="0" backcolor="$8000000F">
<page name="Page" bounds="0,0,827,1169" visible="false" margin="100,100,100,100" paperwidth="2100" paperheight="2969"/>
<sheet name="鎸夐挳A" bounds="-1,-1,61,51">
<rect name="Rect2" bounds="-1,-1,61,51" origin="29,24" backcolor="$0" pattern="1"/>
<line name="Line2" origin="0.714286,0.357143" linetype="0" backcolor="$80000010" pattern="1" linkmode="1">
<points>
60,0,6
55,5,2
5,45,2
0,50,2
60,50,2
</points>
</line>
<line name="Line1" origin="0,-10" linetype="0" backcolor="$80000014" pattern="1" linkmode="1">
<points>
0,50,6
5,45,2
55,5,2
60,0,2
0,0,2
</points>
</line>
<line name="Line4" origin="70,25" linetype="0" backcolor="$8000000F" pattern="1">
<points>
5,45,6
55,45,2
55,5,2
5,5,3
</points>
</line>
<rect name="Rect1" bounds="0,0,60,50" origin="15,9" visible="false" linecolor="$80000010" backcolor="$8000000F" pattern="1"/>
<line name="Line3" origin="20,43" backcolor="$0" pattern="1">
<points>
30,13,6
40,23,2
35,23,2
35,33,2
25,33,2
25,23,2
20,23,3
</points>
</line>
<programe>
private function Initialize(Sender)
end function
private function OnLButtonDown(Sender,X,Y)
Rect1.Visible = true
Line3.MoveTo( Line3.Left + 2, Line3.Top + 2 )
end function
private function OnLButtonUp(Sender,X,Y)
Rect1.Visible = false
Line3.MoveTo( Line3.Left - 2, Line3.Top - 2 )
end function
private function OnResize(Sender)
Rect2.SetBounds( Left, Top, Width, Height )
Line1.SetBounds( Left + 1, Top + 1, Width - 2, Height - 2)
Line2.SetBounds( Left + 1, Top + 1, Width - 2, Height - 2)
Line4.SetBounds( Left + 2, Top + 2, Width - 4, Height - 4)
Rect1.SetBounds( Left + 1, Top + 1, Width - 2, Height - 2)
Line3.SetBounds( Left + ( Width - Line3.Width ) / 2, Top + ( Height - Line3.Height ) / 2, Line3.Width, Line3.Height)
end function
</programe>
</sheet>
<sheet name="鎸夐挳B" bounds="-1,-1,61,51">
<rect name="Rect2" bounds="-1,-1,61,51" origin="29,24" backcolor="$0" pattern="1"/>
<line name="Line2" origin="0.714286,0.357143" linetype="0" backcolor="$80000010" pattern="1" linkmode="1">
<points>
60,0,6
55,5,2
5,45,2
0,50,2
60,50,2
</points>
</line>
<line name="Line1" origin="-0.25,-10" linetype="0" backcolor="$80000014" pattern="1" linkmode="1">
<points>
0,50,6
5,45,2
55,5,2
60,0,2
0,0,2
</points>
</line>
<line name="Line4" origin="70,25" linetype="0" backcolor="$8000000F" pattern="1">
<points>
5,45,6
55,45,2
55,5,2
5,5,3
</points>
</line>
<rect name="Rect1" bounds="0,0,60,50" origin="30,25" visible="false" linecolor="$80000010" backcolor="$8000000F" pattern="1"/>
<line name="Line3" origin="20,5" backcolor="$0" pattern="1">
<points>
30,35,6
40,25,2
35,25,2
35,15,2
25,15,2
25,25,2
20,25,3
</points>
</line>
<programe>
private function Initialize(Sender)
end function
private function OnLButtonDown(Sender,X,Y)
Rect1.Visible = true
Line3.MoveTo( Line3.Left+2,Line3.Top+2)
end function
private function OnLButtonUp(Sender,X,Y)
Rect1.Visible = false
Line3.MoveTo( Line3.Left-2,Line3.Top-2)
end function
private function OnResize(Sender)
Rect2.SetBounds( Left, Top, Width, Height )
Line1.SetBounds( Left + 1, Top + 1, Width - 2, Height - 2)
Line2.SetBounds( Left + 1, Top + 1, Width - 2, Height - 2)
Line4.SetBounds( Left + 2, Top + 2, Width - 4, Height - 4)
Rect1.SetBounds( Left + 1, Top + 1, Width - 2, Height - 2)
Line3.SetBounds( Left + ( Width - Line3.Width ) / 2, Top + ( Height - Line3.Height ) / 2, Line3.Width, Line3.Height)
end function
</programe>
</sheet>
<sheet name="鎸夐挳C" bounds="-1,-1,61,51">
<rect name="Rect2" bounds="-1,-1,61,51" origin="29,24" backcolor="$0" pattern="1"/>
<line name="Line2" origin="0.714286,0.357143" linetype="0" backcolor="$80000010" pattern="1" linkmode="1">
<points>
60,0,6
55,5,2
5,45,2
0,50,2
60,50,2
</points>
</line>
<line name="Line1" origin="0,-10" linetype="0" backcolor="$80000014" pattern="1" linkmode="1">
<points>
0,50,6
5,45,2
55,5,2
60,0,2
0,0,2
</points>
</line>
<line name="Line4" origin="70,25" linetype="0" backcolor="$8000000F" pattern="1">
<points>
5,45,6
55,45,2
55,5,2
5,5,3
</points>
</line>
<rect name="Rect1" bounds="0,0,60,50" origin="30,25" visible="false" linecolor="$80000010" backcolor="$8000000F" pattern="1"/>
<line name="Line3" origin="30,25" backcolor="$0" pattern="1">
<points>
20,25,6
30,15,2
30,20,2
40,20,2
40,30,2
30,30,2
30,35,3
</points>
</line>
<programe>
private function Initialize(Sender)
end function
private function OnLButtonDown(Sender,X,Y)
Rect1.Visible = true
Line3.MoveTo( Line3.Left + 2, Line3.Top + 2 )
end function
private function OnLButtonUp(Sender,X,Y)
Rect1.Visible = false
Line3.MoveTo( Line3.Left - 2, Line3.Top - 2 )
end function
private function OnResize(Sender)
Rect2.SetBounds( Left, Top, Width, Height )
Line1.SetBounds( Left + 1, Top + 1, Width - 2, Height - 2)
Line2.SetBounds( Left + 1, Top + 1, Width - 2, Height - 2)
Line4.SetBounds( Left + 2, Top + 2, Width - 4, Height - 4)
Rect1.SetBounds( Left + 1, Top + 1, Width - 2, Height - 2)
Line3.SetBounds( Left + ( Width - Line3.Width ) / 2, Top + ( Height - Line3.Height ) / 2, Line3.Width, Line3.Height)
end function
</programe>
</sheet>
<sheet name="鎸夐挳D" bounds="-1,-1,61,51">
<rect name="Rect2" bounds="-1,-1,61,51" origin="29,24" backcolor="$0" pattern="1"/>
<line name="Line2" origin="0.714286,0.357143" linetype="0" backcolor="$80000010" pattern="1" linkmode="1">
<points>
60,0,6
55,5,2
5,45,2
0,50,2
60,50,2
</points>
</line>
<line name="Line1" origin="0,-10" linetype="0" backcolor="$80000014" pattern="1" linkmode="1">
<points>
0,50,6
5,45,2
55,5,2
60,0,2
0,0,2
</points>
</line>
<line name="Line4" origin="70,25" linetype="0" backcolor="$8000000F" pattern="1">
<points>
5,45,6
55,45,2
55,5,2
5,5,3
</points>
</line>
<rect name="Rect1" bounds="0,0,60,50" origin="30,25" visible="false" linecolor="$80000010" backcolor="$8000000F" pattern="1"/>
<line name="Line3" origin="30,25" backcolor="$0" pattern="1">
<points>
40,25,6
30,15,2
30,20,2
20,20,2
20,30,2
30,30,2
30,35,3
</points>
</line>
<programe>
private function Initialize(Sender)
end function
private function OnLButtonDown(Sender,X,Y)
Rect1.Visible = true
Line3.MoveTo( Line3.Left + 2, Line3.Top + 2 )
end function
private function OnLButtonUp(Sender,X,Y)
Rect1.Visible = false
Line3.MoveTo( Line3.Left - 2, Line3.Top - 2 )
end function
private function OnResize(Sender)
Rect2.SetBounds( Left, Top, Width, Height )
Line1.SetBounds( Left + 1, Top + 1, Width - 2, Height - 2)
Line2.SetBounds( Left + 1, Top + 1, Width - 2, Height - 2)
Line4.SetBounds( Left + 2, Top + 2, Width - 4, Height - 4)
Rect1.SetBounds( Left + 1, Top + 1, Width - 2, Height - 2)
Line3.SetBounds( Left + ( Width - Line3.Width ) / 2, Top + ( Height - Line3.Height ) / 2, Line3.Width, Line3.Height)
end function
</programe>
</sheet>
<sheet name="鎸夐挳E" bounds="0,0,104,27" label="Text1">
<Framea name="Framea1" bounds="0,0,104,27" origin="88,48">
<line name="Line1" origin="88,48" linecolor="$80000014">
<points>
0,27,6
0,0,2
104,0,2
</points>
</line>
<line name="Line2" origin="88,48" linecolor="$80000010">
<points>
0,27,6
104,27,2
104,0,2
</points>
</line>
</Framea>
<rect name="Rect1" bounds="0,0,104,27" origin="30,25" visible="false" linecolor="$80000010" backcolor="$8000000F" pattern="1"/>
<text name="Text1" bounds="0,0,104,27" border="$0" fontname="瀹嬩綋" fontsize="12" text="纭