splitter2.tbl

来自「一个不错的做图软件」· TBL 代码 · 共 33 行

<?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">
<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 p.y - 5 > FCurSheet.Rect1.Top and p.y + 5 <= FCurSheet.SubWindow2.Top then
    FCurSheet.SubWindow4.Height = FCurSheet.SubWindow4.Bottom - p.y - 5
    FCurSheet.OnResize( FCurSheet )
    FCurSheet.Owner.UpdateWindow()
  end if
end if
end function
-->
</programe>
</sheet>
</vg>