按钮库.tbl

电气控制仿真软件

<?xml version="1.0" encoding="gb2312"?>
<vg version="452" gridsize="8" zoom="400,100" activesheetindex="25" range="0,0,800,553" backcolor="$8000000F" frontcolor="$0" pattern="1">
<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">
<shape 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>
<shape name="Rect1" bounds="0,0,60,50" origin="15,9" visible="false" linecolor="$80000010" backcolor="$8000000F" pattern="1"/>
<line name="Line3" origin="20,44" backcolor="$0" pattern="1">
<points>
30,14,6
40,24,2
35,24,2
35,34,2
25,34,2
25,24,2
20,24,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">
<shape 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>
<shape 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">
<shape 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>
<shape 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">
<shape 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>
<shape 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="-1,-1,63,53" label="Text1">
<shape name="Rect2" bounds="-1,-1,63,53" origin="29,24" backcolor="$0" pattern="1"/>
<line name="Line2" origin="0.714286,0.357143" linetype="0" backcolor="$80000010" pattern="1" linkmode="1">
<points>
62,0,6
60,2,2
2,50,2
0,52,2
62,52,2
</points>
</line>
<line name="Line1" origin="1,-8.75" linetype="0" backcolor="$80000014" pattern="1" linkmode="1">
<points>
0,52,6
2,50,2
60,2,2
62,0,2
0,0,2
</points>
</line>
<line name="Line4" origin="71,26" linetype="0" backcolor="$8000000F" pattern="1">
<points>
2,50,6
60,50,2
60,2,2
2,2,3
</points>
</line>
<shape name="Rect1" bounds="0,0,62,52" origin="30,25" visible="false" linecolor="$80000010" backcolor="$8000000F" pattern="1"/>
<text name="Text1" bounds="14,16,50,38" origin="14,16" border="$0" fontname="宋体" fontsize="16" text="确定"/>
<programe>
Private Function Initialize(Sender)
End Function
Private Function OnLButtonDown(Sender,X,Y)
Rect1.Visible = true
Text1.MoveTo( Text1.Left + 2, Text1.Top + 2 )
End Function
Private Function OnLButtonUp(Sender,X,Y)
Rect1.Visible = false
Text1.MoveTo( Text1.Left - 2, Text1.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)
Text1.SetBounds( Left + 2, Top + 2, Width - 4, Height - 4)
End Function
</programe>
</sheet>
<sheet name="按钮F" bounds="0,0,120,50">
<shape name="Circle1" type="Circle" bounds="10,10,120,50" linetype="0" backcolor="$808080" pattern="8"/>
<shape name="Circle2" type="Circle" bounds="0,0,110,40" pattern="1">
<text name="Text1" bounds="9.023482,9.023482,100.976518,30.976518" origin="55,20" border="$0" fontname="宋体" fontsize="16" text="确定"/>
</shape>
<programe>
Property Caption read GetCaption write SetCaption
Private Function GetCaption()
return Circle2.Text1.Text
End Function
Private Function OnLButtonDown(Sender,x,y)
Circle2.MoveTo( Left + 10,Top + 10)
End Function
Private Function OnLButtonUp(Sender,x,y)
Circle2.MoveTo(Left,Top)
End Function
Private Function OnResize(Sender)
End Function
Private Function SetCaption(ACaption)
Circle2.Text1.Text = ACaption
End Function
</programe>
</sheet>
<sheet name="按钮G" bounds="20,14,42,36">
<line name="Line3" origin="22,46" linetype="0" backcolor="$808080" pattern="1">
<points>
32,16,6
42,26,2
37,26,2
37,36,2
27,36,2
27,26,2
22,26,3
</points>
</line>
<line name="Line5" origin="20,44" linecolor="$FFFFFF" backcolor="$0" pattern="1">
<points>
30,14,6
40,24,2
35,24,2
35,34,2
25,34,2
25,24,2
20,24,3
</points>
</line>
<programe>
Private Function Initialize(Sender)
End Function
Private Function OnLButtonDown(Sender,X,Y)
Line5.MoveTo( Line5.Left + 2, Line5.Top + 2 )
End Function
Private Function OnLButtonUp(Sender,X,Y)
Line5.MoveTo( Line5.Left - 2, Line5.Top - 2 )
End Function
Private Function OnResize(Sender)
End Function
</programe>
</sheet>
<sheet name="按钮H" bounds="20,12,42,34">
<line name="Line3" origin="22,4" linetype="0" backcolor="$808080" pattern="1">
<points>
32,34,6
42,24,2
37,24,2
37,14,2
27,14,2
27,24,2
22,24,3
</points>
</line>
<line name="Line5" origin="20,2" linecolor="$FFFFFF" backcolor="$0" pattern="1">
<points>
30,32,6
40,22,2
35,22,2
35,12,2
25,12,2
25,22,2
20,22,3
</points>
</line>
<programe>
Private Function Initialize(Sender)
End Function
Private Function OnLButtonDown(Sender,X,Y)
Line5.MoveTo( Line5.Left + 2, Line5.Top + 2 )
End Function
Private Function OnLButtonUp(Sender,X,Y)
Line5.MoveTo( Line5.Left - 2, Line5.Top - 2 )
End Function
Private Function OnResize(Sender)
End Function
</programe>
</sheet>
<sheet name="按钮I" bounds="10,6,32,28">
<line name="Line2" origin="22,18" linecolor="$FFFFFF" backcolor="$808080" pattern="1">
<points>
12,18,6
22,8,2
22,13,2
32,13,2
32,23,2
22,23,2
22,28,3
</points>
</line>
<line name="Line1" origin="20,16" linecolor="$FFFFFF" backcolor="$0" pattern="1">
<points>
10,16,6
20,6,2
20,11,2
30,11,2
30,21,2
20,21,2
20,26,3
</points>