mainmenu3.tbl

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

<?xml version="1.0" encoding="utf-8"?>
<vg version="723" range="0,0,157,120" borderstyle="1" scrollbars="0" backcolor="$80000004" paperbounds="0,0,793.700787,1122.141732" papervisible="false">
<sheet name="mainmenu3" origin="418,88" bounds="0,0,156,163">
<borderG name="borderG1" origin="89,49" bounds="0,0,156,119">
<rect name="Rect1" origin="88,48" bounds="0,0,156,119" backcolor="$80000004" pattern="1"/>
<line name="Line1" origin="89,49" linecolor="$80000014" points="1,118,6 1,1,2 155,1,2"/>
<line name="Line2" origin="89,49" linecolor="$80000010" points="1,118,6 155,118,2 155,1,2"/>
<programe>
<!--
private function OnResize(Sender)
if Width < 3 then
  Width = 3
end if
if Height < 3 then
  height = 3
end if
Rect1.SetBounds( Left, Top, Width, Height )
Line1.SetBounds( Left + 1, Top + 1, Width - 2, Height - 2 )
Line2.SetBounds( Left + 1, Top + 1, Width - 2, Height - 2 )
end function
-->
</programe>
</borderG>
<MenuItem name="mNewSheet" lib="Menu.tbl" origin="75.5,22" bounds="1,2,154,24" id="124" Caption="鏂板缓椤甸潰(N)..." Checked="false" Enable="true" Focused="false" Picture="Icon\NewSheet.bmp" submenu="">
<programe>
<!--
published function OnClick(Sender)
Close( 0 )
if Inspector <> 0 then
  Inspector.Help( "cmnewsheet" )
end if
Doc = IDE_GetDocument()
dlg = Create( Doc.Handle, SystemParams.DefaultPath + "inputbox.tbl", false, false )
dlg.ActiveSheet.input( "鏂板