splitter3.tbl

一个不错的做图软件

<?xml version="1.0" encoding="utf-8"?>
<vg version="723" range="0,0,2000,6" borderstyle="1" scrollbars="0" backcolor="$8000000F" papervisible="false">
<sheet name="sheet1" cursor="9" visible="false">
<element name="element1" origin="4.5,4" bounds="0,0,32,6">
<line name="line1" origin="16,4" linecolor="$808080" frontcolor="$A0A0A0" pattern="245" points="0,0,6 32,0,2 32,6,2 0,6,3"/>
<rect name="rect2" origin="16,3" bounds="12.5,1,19.5,5" alpha="60" visible="false" linetype="0" picturedata="07TBitmap424DA600000000000000360000002800000007000000040000000100200000000000700000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000FFFFFF000000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF00000000000000000000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00"/>
<rect name="rect1" origin="16,3" bounds="12.5,1,19.5,5" alpha="60" linetype="0" picturedata="07TBitmap424DA6000000000000003600000028000000070000000400000001002000000000007000000000000000000000000000000000000000FFFFFF00FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000000000000000000000FFFFFF00FFFFFF00FFFFFF000000000000000000000000000000000000000000FFFFFF0000000000000000000000000000000000000000000000000000000000"/>
<programe>
<!--
public function DownVisible()
Units[1].Visible = false
Units[2].Visible = true
end function
published function OnClick(Sender)
if Element1.Units[2].Visible then
  FCurSheet.SubWindow1.SetBounds( 0, FCurSheet.Owner.ClientHeight, FCurSheet.Owner.ClientWidth - 1, 0 )
  Inspector = 0
  Element1.UpVisible()
else
  FCurSheet.SubWindow1.SetBounds( 0, 2 * FCurSheet.Owner.ClientHeight / 3, FCurSheet.Owner.ClientWidth - 1, FCurSheet.Owner.ClientHeight / 3 )
  Inspector = FCurSheet
  Element1.DownVisible()
end if
FCurSheet.OnResize( FCurSheet )
FCurSheet.Owner.UpdateWindow()
end function
private function OnMouseEnter(Sender)
line1.LineColor = $A0A0A0
end function
private function OnMouseExit(Sender)
line1.LineColor = $808080
end function
public function UpVisible()
Units[1].Visible = true
Units[2].Visible = false
end function
-->
</programe>
</element>
<programe>
<!--
property CurSheet read FCurSheet write FCurSheet
private function Initialize(Sender)
FCurSheet = 0
end function
private function OnLButtonDown(Sender,X,Y)
Sender.Tag = 1
end function
private function OnLButtonUp(Sender,X,Y)
Sender.Tag = 0
end function
private function OnMouseMove(Sender,X,Y)
if Sender.Tag = 1 then
  p = Point( 0, 0 )
  GetCursorPos( p )
  FCurSheet.Owner.ScreenToClient( p )
  FCurSheet.ClientToView( p )
  if FCurSheet.Owner.ClientHeight - p.y - 3 >= 50 then
    FCurSheet.SubWindow1.SetBounds( 0, p.y + 3, FCurSheet.Owner.ClientWidth - 1, FCurSheet.Owner.ClientHeight - p.y - 3 )
    Inspector = FCurSheet
    Element1.DownVisible()
  else
    FCurSheet.SubWindow1.SetBounds( 0, FCurSheet.Owner.ClientHeight, FCurSheet.Owner.ClientWidth - 1, 0 )
    Inspector = 0
    Element1.UpVisible()
  end if
  FCurSheet.OnResize( FCurSheet )
  FCurSheet.Owner.UpdateWindow()
end if
end function
private function OnResize(Sender)
Element1.MoveTo( Int( ClientWidth / 2 - Element1.Width / 2 ), 0 )
end function
-->
</programe>
</sheet>
</vg>