📄 按钮库.tbl
字号:
</line>
<programe>
Private Function Initialize(Sender)
End Function
Private Function OnLButtonDown(Sender,X,Y)
Line1.MoveTo( Line1.Left + 2, Line1.Top + 2 )
End Function
Private Function OnLButtonUp(Sender,X,Y)
Line1.MoveTo( Line1.Left - 2, Line1.Top - 2 )
End Function
Private Function OnResize(Sender)
End Function
</programe>
</sheet>
<sheet name="按钮J" bounds="10,6,32,28">
<line name="Line2" origin="22,18" linecolor="$FFFFFF" backcolor="$808080" pattern="1">
<points>
32,18,6
22,8,2
22,13,2
12,13,2
12,23,2
22,23,2
22,28,3
</points>
</line>
<line name="Line1" origin="20,16" linecolor="$FFFFFF" backcolor="$0" pattern="1">
<points>
30,16,6
20,6,2
20,11,2
10,11,2
10,21,2
20,21,2
20,26,3
</points>
</line>
<programe>
Private Function Initialize(Sender)
End Function
Private Function OnLButtonDown(Sender,X,Y)
Line1.MoveTo( Line1.Left + 2, Line1.Top + 2 )
End Function
Private Function OnLButtonUp(Sender,X,Y)
Line1.MoveTo( Line1.Left - 2, Line1.Top - 2 )
End Function
Private Function OnResize(Sender)
End Function
</programe>
</sheet>
<sheet name="按钮K" 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="19,44" backcolor="$0" pattern="1">
<points>
29,14,6
34,34,2
24,34,2
</points>
</line>
<programe>
Private Function Initialize(Sender)
End Function
Private Function OnLButtonDown(Sender,X,Y)
Rect1.Visible = trueLine3.MoveTo( Line3.Left + 2, Line3.Top + 2 )
End Function
Private Function OnLButtonUp(Sender,X,Y)
Rect1.Visible = falseLine3.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="按钮L" 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="21,6" backcolor="$0" pattern="1">
<points>
31,36,6
36,16,2
26,16,2
</points>
</line>
<programe>
Private Function Initialize(Sender)
End Function
Private Function OnLButtonDown(Sender,X,Y)
Rect1.Visible = trueLine3.MoveTo( Line3.Left + 2, Line3.Top + 2 )
End Function
Private Function OnLButtonUp(Sender,X,Y)
Rect1.Visible = falseLine3.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="按钮M" 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="26,25" backcolor="$0" pattern="1">
<points>
16,25,6
36,20,2
36,30,2
</points>
</line>
<programe>
Private Function Initialize(Sender)
End Function
Private Function OnLButtonDown(Sender,X,Y)
Rect1.Visible = trueLine3.MoveTo( Line3.Left + 2, Line3.Top + 2 )
End Function
Private Function OnLButtonUp(Sender,X,Y)
Rect1.Visible = falseLine3.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="按钮N" 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
20,20,2
20,30,2
</points>
</line>
<programe>
Private Function Initialize(Sender)
End Function
Private Function OnLButtonDown(Sender,X,Y)
Rect1.Visible = trueLine3.MoveTo( Line3.Left + 2, Line3.Top + 2 )
End Function
Private Function OnLButtonUp(Sender,X,Y)
Rect1.Visible = falseLine3.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="按钮O" 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,24" backcolor="$0" pattern="1">
<points>
22,22,6
28,22,2
28,16,2
32,16,2
32,22,2
38,22,2
38,26,2
32,26,2
32,32,2
28,32,2
28,26,2
22,26,3
</points>
</line>
<programe>
Private Function Initialize(Sender)
End Function
Private Function OnLButtonDown(Sender,X,Y)
Rect1.Visible = trueLine3.MoveTo( Line3.Left + 2, Line3.Top + 2 )
End Function
Private Function OnLButtonUp(Sender,X,Y)
Rect1.Visible = falseLine3.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="按钮P" 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="28,24" backcolor="$0" pattern="1">
<points>
20,22,6
36,22,2
36,26,2
20,26,3
</points>
</line>
<programe>
Private Function Initialize(Sender)
End Function
Private Function OnLButtonDown(Sender,X,Y)
Rect1.Visible = trueLine3.MoveTo( Line3.Left + 2, Line3.Top + 2 )
End Function
Private Function OnLButtonUp(Sender,X,Y)
Rect1.Visible = falseLine3.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="框架" bounds="8,16,64,72">
<line name="Line1" origin="76,48" linecolor="$80000010" backcolor="$8000000F" pattern="1">
<points>
8,16,6
64,16,2
64,72,2
8,72,3
</points>
</line>
<line name="Line2" origin="8,40" linecolor="$80000014">
<points>
64,16,6
8,16,2
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -