<?xml version="1.0" encoding="utf-8"?>
<vg version="723" range="0,0,1024,768" backcolor="$0" papervisible="false">
<sheet name="sheet1">
<A name="A1" origin="60,543" bounds="45,477,177,585" Houdu="8" Value="100">
<line name="Line1" origin="45,423" backcolor="$808080" pattern="1" points="169,485,6 169,585,2 177,577,2 177,477,2"/>
<line name="Line2" origin="45,423" backcolor="$C0C0C0" pattern="1" points="45,485,6 53,477,2 177,477,2 169,485,2"/>
<line name="Line3" origin="45,423" pattern="1" points="45,485,6 45,585,2 169,585,2 169,485,2 45,485,2"/>
<text name="Text1" origin="56,463.5" bounds="45,485,169,585" backcolor="$FF" pattern="1" border="15" fontname="瀹嬩綋" fontsize="16"/>
<programe>
<!--
private function GetValue()
return Line3.Height
end function
private function Get鍘氬害()
return F鍘氬害
end function
property Houdu read Get鍘氬害 write Set鍘氬害
private function Initialize(Sender)
F鍘氬害=8
end function
private function OnResize(Sender)
W=Width
if W < 18 then
  w = 18
end if
H=Height
if H < F鍘氬害 then
  h = F鍘氬害
end if
Line1.x[0] = Left + W - F鍘氬害
Line1.y[0] = Top + F鍘氬害
Line1.x[1] = Left + W - F鍘氬害
Line1.y[1] = Top + H
Line1.x[2] = Left + W
Line1.y[2] = Top + H - F鍘氬害
Line1.x[3] = Left + W
Line1.y[3] = Top
Line1.Refresh()
Line2.x[0] = Left
Line2.y[0] = Top + F鍘氬害
Line2.x[1] = Left + F鍘氬害
Line2.y[1] = Top
Line2.x[2] = Left + W
Line2.y[2] = Top
Line2.x[3] = Left + W - F鍘氬害
Line2.y[3] = Top + F鍘氬害
Line2.Refresh()
Line3.x[0] = Left
Line3.y[0] = Top + F鍘氬害
Line3.x[1] = Left
Line3.y[1] = Top + Height
Line3.x[2] = Left + W - F鍘氬害
Line3.y[2] = Top + Height
Line3.x[3] = Left + W - F鍘氬害
Line3.y[3] = Top + F鍘氬害
Line3.x[4]=Line3.x[0]
Line3.y[4]=Line3.y[0]
Line3.Refresh()
Text1.SetBounds( Line3.Left, Line3.Top, Line3.Width, Line3.Height )
Refresh()
end function
private function SetValue(AValue)
B=Bottom
Height = AValue + F鍘氬害
Top = B - Height
end function
private function Set鍘氬害(A鍘氬害)
F鍘氬害=A鍘氬害
if F鍘氬害 > 1000 then
  F鍘氬害 = 1000 then
end if
if F鍘氬害 < 3 then
  F鍘氬害=3
end if
OnResize( This )
end function
property Value read GetValue write SetValue
-->
</programe>
</A>
<鍧愭爣緋籝 name="YRuler1" origin="44,560.5" bounds="44,408,44,586" protect="4" GridColor="65280" HorzAlign="鍙沖