pages.tbl

cShap控制云台运动

<?xml version="1.0" encoding="utf-8"?>
<vg version="701" range="0,0,1024,768" backcolor="$FFFFFF">
<page name="page" bounds="0,0,793.700787,1122.141732" visible="false" margin="100,100,100,100" paperwidth="2100" paperheight="2969"/>
<sheet name="Page1" protect="224" BottomMargin="10" LeftMargin="10" PaperHeight="2969" PaperWidth="2100" RightMargin="10" TopMargin="10">
<rect name="rect1" bounds="0,0,302,405.474104" origin="117.5,177.114433" pattern="1"/>
<rect name="rect2" bounds="302,5,307,410.474104" origin="242.5,184.614433" locked="true" linetype="0" backcolor="$0" pattern="1"/>
<rect name="rect3" bounds="5,405.474104,307,410.474104" origin="128,324.614433" locked="true" linetype="0" backcolor="$0" pattern="1"/>
<rect name="rect4" bounds="14.380952,13.656925,287.619048,391.817179" origin="115,177.114433" linetype="14" linecolor="$C0C0C0"/>
<programe>
private function Initialize(Sender)
FOrientation = 1
end function
private function OnResize(Sender)
Rect1.SetBounds( Left, Top, Width, Height )
Rect2.SetBounds( Right, Top + 5, 5, Rect1.Height )
Rect3.SetBounds( Left + 5, Bottom, Rect1.Width, 5 )
Rect4.SetBounds( Left + LeftMargin * 10 * Rect1.Width / PaperWidth, Top + TopMargin * 10 * Rect1.Height / PaperHeight, Width - ( LeftMargin + RightMargin ) * 10 * Rect1.Width / PaperWidth, Height - ( TopMargin + BottomMargin ) * 10 * Rect1.Height / PaperHeight )
end function
property Orientation read FOrientation write SetOrientation
private function SetOrientation(AValue)
if FOrientation &lt;&gt; AValue
  FOrientation = AValue
  SetPaper( PaperHeight, PaperWidth )
end if
end function
public function SetPaper(AWidth,AHeight)
PaperWidth = AWidth
PaperHeight = AHeight
w = Width
h = Height
if PaperHeight / PaperWidth &gt; Height / Width then
  w = PaperWidth * Height / PaperHeight
else
  h = PaperHeight * Width / PaperWidth
end if
SetBounds( Left, Top, w, h )
Fix()
end function
</programe>
</sheet>
</vg>