📄 border.xml
字号:
<?xml version="1.0" encoding="utf-8"?>
<vg version="702" activesheetIndex="7" range="0,0,800,553" backcolor="$8000000F">
<page name="Page" bounds="0,0,827,1169" visible="false"/>
<sheet name="borderA" 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="borderB" 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>
<programe>
private function OnResize(Sender)
Line1.x[0] = Left
Line1.y[0] = Bottom
Line1.x[1] = Left
Line1.y[1] = Top
Line1.x[2] = Right
Line1.y[2] = Top
Line1.Refresh()
Line2.x[0] = Left
Line2.y[0] = Bottom
Line2.x[1] = Right
Line2.y[1] = Bottom
Line2.x[2] = Right
Line2.y[2] = Top
Line2.Refresh()
end function
</programe>
</sheet>
<sheet name="borderC" 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.x[0] = Left
Line1.y[0] = Top
Line1.x[1] = Left
Line1.y[1] = Top + Height
Line1.x[2] = Left + FBorderWidth
Line1.y[2] = Top + Height - FBorderWidth
Line1.x[3] = Left + FBorderWidth
Line1.y[3] = Top + FBorderWidth
Line1.x[4] = Left + Width - FBorderWidth
Line1.y[4] = Top + FBorderWidth
Line1.x[5] = Left + Width
Line1.y[5] = Top
Line1.x[6] = Left
Line1.y[6] = Top
Line1.Refresh()
Line2.x[0] = Left + Width
Line2.y[0] = Top + Height
Line2.x[1] = Left + Width
Line2.y[1] = Top
Line2.x[2] = Left + Width - FBorderWidth
Line2.y[2] = Top + FBorderWidth
Line2.x[3] = Left + Width - FBorderWidth
Line2.y[3] = Top + Height - FBorderWidth
Line2.x[4] = Left + FBorderWidth
Line2.y[4] = Top + Height - FBorderWidth
Line2.x[5] = Left
Line2.y[5] = Top + Height
Line2.x[6] = Left + Width
Line2.y[6] = 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="borderD" 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.x[0] = Left
Line1.y[0] = Top
Line1.x[1] = Left
Line1.y[1] = Top + Height
Line1.x[2] = Left + FBorderWidth
Line1.y[2] = Top + Height - FBorderWidth
Line1.x[3] = Left + FBorderWidth
Line1.y[3] = Top + FBorderWidth
Line1.x[4] = Left + Width - FBorderWidth
Line1.y[4] = Top + FBorderWidth
Line1.x[5] = Left + Width
Line1.y[5] = Top
Line1.x[6] = Left
Line1.y[6] = Top
Line1.Refresh()
Line2.x[0] = Left + Width
Line2.y[0] = Top + Height
Line2.x[1] = Left + Width
Line2.y[1] = Top
Line2.x[2] = Left + Width - FBorderWidth
Line2.y[2] = Top + FBorderWidth
Line2.x[3] = Left + Width - FBorderWidth
Line2.y[3] = Top + Height - FBorderWidth
Line2.x[4] = Left + FBorderWidth
Line2.y[4] = Top + Height - FBorderWidth
Line2.x[5] = Left
Line2.y[5] = Top + Height
Line2.x[6] = Left + Width
Line2.y[6] = 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="borderE" 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 = 3
end if
if Height < 3 then
Height = 3
end if
Line1.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="borderF" 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 = 3
end if
if Height < 3 then
Height = 3
end if
Line3.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="borderG" bounds="15,15,193,113">
<rect 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 = 3
end if
if Height < 3 then
height = 3
end if
Rect1.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="borderH" bounds="15,15,193,113" label="Text1">
<rect 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>
property Caption read GetCaption write SetCaption
private function GetCaption()
return Text1.Text
end function
private function OnResize(Sender)
if Width < 3 then
Width = 3
end if
if Height < 3 then
height = 3
end if
Rect1.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
private function SetCaption(AValue)
Text1.Text = AValue
end function
</programe>
</sheet>
<sheet name="borderI" bounds="7,2,185,100">
<borderg name="borderG1" bounds="7,2,185,100" origin="96,51">
<rect 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 = 3
end if
if Height < 3 then
height = 3
end if
Rect1.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>
</borderg>
<borderb name="borderB1" 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>
</borderb>
<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
borderG1.SetBounds( Left, Top, Width, Height )
borderB1.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="borderJ" 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 + -