btnview.tbl

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

<?xml version="1.0" encoding="utf-8"?>
<vg version="723" range="0,0,1024,768" borderstyle="1" scrollbars="0" papervisible="false">
<sheet name="sheet1" visible="false">
<rect name="rect1" origin="10,10" bounds="0,0,20,20" linetype="0" backcolor="$C0C0C0" picturedata="07TBitmap424D6601000000000000760000002800000014000000140000000100040000000000F0000000000000000000000000000000000000000000000000008000008000000080800080000000800080008080000080808000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0088888888888888888888000088888888888778888888000088888888887998888888000088888888879998888888000088888777799978888888000088887888879777777888000088878EFEF87FFFFF7888000088878FEFE87FFFFF7888000088878FFEF87FFFFF7888000088878FFFE87FFFFF788800008888788887FFFFFF78880000888887777FFFFFFF7888000088888887FFFFFFFF7888000088888887FFFFFFFF7888000088888887FFFFF7777888000088888887FFFFF7F78888000088888887FFFFF77888880000888888877777778888880000888888888888888888880000888888888888888888880000">
<programe>
<!--
published function OnLButtonDown(Sender,X,Y)
sv = Create( Handle, SystemParams.DefaultPath + "smallview.tbl", true, false )
p = Point( Sender.Left, Sender.Bottom )
Sender.ViewToClient( p )
ClientToScreen( p )
sv.ActiveSheet.CurSheet = FCurSheet
sv.ActiveSheet.SetFrame()
sv.Popup( p.x, p.y )
sv.Free()
end function
-->
</programe>
</rect>
<programe>
<!--
property CurSheet read FCurSheet write FCurSheet
private function Initialize(Sender)
FCurSheet = 0
end function
private function OnResize(Sender)
x = Int( ClientWidth / 2 ) - 10
y = Int( ClientHeight / 2 ) - 10
rect1.SetBounds( x, y, 20, 20 )
end function
-->
</programe>
</sheet>
</vg>