📄 边框.tbl
字号:
<?xml version="1.0" encoding="gb2312"?>
<vg version="452" gridsize="8" 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="16,16,192,112">
<line name="Line1" origin="104,64" linecolor="$80000014">
<points>
16,112,6
16,16,2
192,16,2
</points>
</line>
<line name="Line2" origin="104,64" linecolor="$80000010">
<points>
16,112,6
192,112,2
192,16,2
</points>
</line>
</sheet>
<sheet name="边框B" bounds="16,16,192,112">
<line name="Line1" origin="104,64" linecolor="$80000010">
<points>
16,112,6
16,16,2
192,16,2
</points>
</line>
<line name="Line2" origin="104,64" linecolor="$80000014">
<points>
16,112,6
192,112,2
192,16,2
</points>
</line>
</sheet>
<sheet name="边框C" bounds="11,12,281,152">
<line name="Line1" origin="11,12" linetype="0" backcolor="$80000014" pattern="1">
<points>
11,12,6
11,152,2
15,148,2
15,16,2
277,16,2
281,12,2
11,12,2
</points>
</line>
<line name="Line2" origin="11,12" linetype="0" backcolor="$80000010" pattern="1">
<points>
281,152,6
281,12,2
277,16,2
277,148,2
15,148,2
11,152,2
281,152,2
</points>
</line>
<programe>
Property BorderWidth read GetBorderWidth write SetBorderWidth
Private Function GetBorderWidth()
return FBorderWidth
End Function
Private Function Initialize(Sender)
FBorderWidth=2
End Function
Private Function OnResize(Sender)
if Width < 3 * FBorderWidth then
Width = 3 * FBorderWidth
end if
if Height < 3 * FBorderWidth then
Height = 3 * FBorderWidth
end if
Line1.Points[0].x = Left
Line1.Points[0].y = Top
Line1.Points[1].x = Left
Line1.Points[1].y = Top + Height
Line1.Points[2].x = Left + FBorderWidth
Line1.Points[2].y = Top + Height - FBorderWidth
Line1.Points[3].x = Left + FBorderWidth
Line1.Points[3].y = Top + FBorderWidth
Line1.Points[4].x = Left + Width - FBorderWidth
Line1.Points[4].y = Top + FBorderWidth
Line1.Points[5].x = Left + Width
Line1.Points[5].y = Top
Line1.Points[6].x = Left
Line1.Points[6].y = Top
Line1.Refresh()
Line2.Points[0].x = Left + Width
Line2.Points[0].y = Top + Height
Line2.Points[1].x = Left + Width
Line2.Points[1].y = Top
Line2.Points[2].x = Left + Width - FBorderWidth
Line2.Points[2].y = Top + FBorderWidth
Line2.Points[3].x = Left + Width - FBorderWidth
Line2.Points[3].y = Top + Height - FBorderWidth
Line2.Points[4].x = Left + FBorderWidth
Line2.Points[4].y = Top + Height - FBorderWidth
Line2.Points[5].x = Left
Line2.Points[5].y = Top + Height
Line2.Points[6].x = Left + Width
Line2.Points[6].y = Top + Height
Line2.Refresh()
End Function
Private Function SetBorderWidth(ABorderWidth)
if ABorderWidth >= 0 then
FBorderWidth = ABorderWidth
OnResize( This )
end if
End Function
</programe>
</sheet>
<sheet name="边框D" bounds="11,32,261,152">
<line name="Line1" origin="1,22" linetype="0" backcolor="$80000010" pattern="1">
<points>
11,32,6
11,152,2
17,146,2
17,38,2
255,38,2
261,32,2
11,32,2
</points>
</line>
<line name="Line2" origin="1,22" linetype="0" backcolor="$80000014" pattern="1">
<points>
261,152,6
261,32,2
255,38,2
255,146,2
17,146,2
11,152,2
261,152,2
</points>
</line>
<programe>
Property BorderWidth read GetBorderWidth write SetBorderWidth
Private Function GetBorderWidth()
return FBorderWidth
End Function
Private Function Initialize(Sender)
FBorderWidth=2
End Function
Private Function OnResize(Sender)
if Width < 3 * FBorderWidth then
Width = 3 * FBorderWidth
end if
if Height < 3 * FBorderWidth then
Height = 3 * FBorderWidth
end if
Line1.Points[0].x = Left
Line1.Points[0].y = Top
Line1.Points[1].x = Left
Line1.Points[1].y = Top + Height
Line1.Points[2].x = Left + FBorderWidth
Line1.Points[2].y = Top + Height - FBorderWidth
Line1.Points[3].x = Left + FBorderWidth
Line1.Points[3].y = Top + FBorderWidth
Line1.Points[4].x = Left + Width - FBorderWidth
Line1.Points[4].y = Top + FBorderWidth
Line1.Points[5].x = Left + Width
Line1.Points[5].y = Top
Line1.Points[6].x = Left
Line1.Points[6].y = Top
Line1.Refresh()
Line2.Points[0].x = Left + Width
Line2.Points[0].y = Top + Height
Line2.Points[1].x = Left + Width
Line2.Points[1].y = Top
Line2.Points[2].x = Left + Width - FBorderWidth
Line2.Points[2].y = Top + FBorderWidth
Line2.Points[3].x = Left + Width - FBorderWidth
Line2.Points[3].y = Top + Height - FBorderWidth
Line2.Points[4].x = Left + FBorderWidth
Line2.Points[4].y = Top + Height - FBorderWidth
Line2.Points[5].x = Left
Line2.Points[5].y = Top + Height
Line2.Points[6].x = Left + Width
Line2.Points[6].y = Top + Height
Line2.Refresh()
End Function
Private Function SetBorderWidth(ABorderWidth)
if ABorderWidth >= 0 then
FBorderWidth = ABorderWidth
OnResize( This )
end if
End Function
</programe>
</sheet>
<sheet name="边框E" bounds="16,16,194,114">
<line name="Line1" origin="104,64" linecolor="$80000014">
<points>
16,114,6
16,16,2
194,16,2
</points>
</line>
<line name="Line2" origin="104,64" linecolor="$80000010">
<points>
16,114,6
194,114,2
194,16,2
</points>
</line>
<line name="Line3" origin="105,65" linecolor="$80000010">
<points>
17,113,6
17,17,2
193,17,2
</points>
</line>
<line name="Line4" origin="105,65" linecolor="$80000014">
<points>
17,113,6
193,113,2
193,17,2
</points>
</line>
<programe>
Private Function OnResize(Sender)
if Width < 3 then Width = 3end ifif Height < 3 then Height = 3end ifLine1.SetBounds( Left, Top, Width, Height )Line2.SetBounds( Left, Top, Width, Height )Line3.SetBounds( Left + 1, Top + 1, Width - 2, Height - 2 )Line4.SetBounds( Left + 1, Top + 1, Width - 2, Height - 2 )
End Function
</programe>
</sheet>
<sheet name="边框F" bounds="0,0,200,104">
<line name="Line1" origin="90,50" linecolor="$80000014">
<points>
1,103,6
1,1,2
199,1,2
</points>
</line>
<line name="Line2" origin="88,48" linecolor="$80000010">
<points>
1,103,6
199,103,2
199,1,2
</points>
</line>
<line name="Line3" origin="89,49" linecolor="$80000010">
<points>
0,104,6
0,0,2
200,0,2
</points>
</line>
<line name="Line4" origin="91,51" linecolor="$80000014">
<points>
0,104,6
200,104,2
200,0,2
</points>
</line>
<programe>
Private Function OnResize(Sender)
if Width < 3 then Width = 3end ifif Height < 3 then Height = 3end ifLine3.SetBounds( Left, Top, Width, Height )Line4.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 )
End Function
</programe>
</sheet>
<sheet name="边框G" bounds="15,15,193,113">
<shape name="Rect1" bounds="15,15,193,113" origin="103,63" backcolor="$8000000F" pattern="1"/>
<line name="Line1" origin="104,64" linecolor="$80000014">
<points>
16,112,6
16,16,2
192,16,2
</points>
</line>
<line name="Line2" origin="104,64" linecolor="$80000010">
<points>
16,112,6
192,112,2
192,16,2
</points>
</line>
<programe>
Private Function OnResize(Sender)
if Width < 3 then Width = 3end ifif Height < 3 then height = 3end ifRect1.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 )
End Function
</programe>
</sheet>
<sheet name="边框H" bounds="15,15,193,113" label="Text1">
<shape name="Rect1" bounds="15,15,193,113" origin="103,63" backcolor="$8000000F" pattern="1"/>
<line name="Line1" origin="104,64" linecolor="$80000014">
<points>
16,112,6
16,16,2
192,16,2
</points>
</line>
<line name="Line2" origin="104,64" linecolor="$80000010">
<points>
16,112,6
192,112,2
192,16,2
</points>
</line>
<text name="Text1" bounds="16,16,192,112" origin="104,64" frontcolor="$80000012" border="$0" fontname="宋体" fontsize="16"/>
<programe>
Private Function OnResize(Sender)
if Width < 3 then Width = 3end ifif Height < 3 then height = 3end ifRect1.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 )Text1.SetBounds( Line1.Left, Line1.Top, Line1.Width, Line1.Height )
End Function
</programe>
</sheet>
<sheet name="边框I" bounds="7,2,185,100">
<elliment name="边框G1" type="边框G" bounds="7,2,185,100" origin="96,51">
<shape name="Rect1" bounds="7,2,185,100" origin="95,50" backcolor="$8000000F" pattern="1"/>
<line name="Line1" origin="96,51" linecolor="$80000014">
<points>
8,99,6
8,3,2
184,3,2
</points>
</line>
<line name="Line2" origin="96,51" linecolor="$80000010">
<points>
8,99,6
184,99,2
184,3,2
</points>
</line>
<programe>
Private Function OnResize(Sender)
if Width < 3 then Width = 3end ifif Height < 3 then height = 3end ifRect1.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 )
End Function
</programe>
</elliment>
<elliment name="边框B1" type="边框B" bounds="16,13,173,88" origin="104,61">
<line name="Line1" origin="104,61" linecolor="$80000010">
<points>
16,88,6
16,13,2
173,13,2
</points>
</line>
<line name="Line2" origin="104,61" linecolor="$80000014">
<points>
16,88,6
173,88,2
173,13,2
</points>
</line>
</elliment>
<programe>
Property BevelWidth read FBevelWidth write SetBevelWidth
Private Function Initialize(Sender)
FBevelWidth=5
End Function
Private Function OnResize(Sender)
if ( Width > 2 + 2 * FBevelWidth ) and ( Height > 2 + 2 * FBevelWidth ) then 边框G1.SetBounds( Left, Top, Width, Height ) 边框B1.SetBounds( Left + 1 + FBevelWidth, Top + 1 + FBevelWidth, Width - 2 - 2 * FBevelWidth, Height - 2 - 2 * FBevelWidth )end if
End Function
Private Function SetBevelWidth(AValue)
if( AValue >= 0 ) and ( AValue < 20 ) then FBevelWidth=AValue OnResize( this )end if
End Function
</programe>
</sheet>
<sheet name="边框J" bounds="40,48,184,49" protect="8">
<line name="Line1" origin="112,48" linecolor="$80000010">
<points>
40,48,6
184,48,2
</points>
</line>
<line name="Line2" origin="112,49" linecolor="$80000014">
<points>
40,49,6
184,49,2
</points>
</line>
</sheet>
</vg>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -