mainmenu1.tbl

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

<?xml version="1.0" encoding="utf-8"?>
<vg version="724" range="0,0,157,263" borderstyle="1" scrollbars="0" backcolor="$80000004" paperbounds="0,0,793,1122.141732" papervisible="false">
<sheet name="mainmenu1" visible="false">
<MenuPanel name="borderG1" lib="Menu.tbl" origin="89,49" bounds="0,0,156,262"/>
<menuitem name="mNew" lib="Menu.tbl" origin="78,13" bounds="2,2,154,24" id="101" Caption="鏂板缓(N)" Checked="false" Enable="true" Focused="false" Picture="icon\New.bmp" submenu="">
<programe>
<!--
published function OnClick(Sender)
Close( 0 )
IDE_OpenDocument( "" )
if Inspector <> 0 then
  Inspector.Help( "cmnew" )
end if
end function
-->
</programe>
</menuitem>
<menuitem name="mOpen" lib="Menu.tbl" origin="76,35" bounds="2,24,154,46" id="102" Caption="鎵撳紑鏂囦欢(O)..." Checked="false" Enable="true" Focused="false" Picture="icon\Open.bmp" submenu="">
<programe>
<!--
published function OnClick(Sender)
Close( 0 )
if Inspector <> 0 then
  Inspector.Help( "cmopen" )
end if
fname = GetOpenFileName( "visual graph files (*.tbl)|*.tbl|visual graph binary files (*.bin)|*.bin|all files (*.*)|*.*|" )
if Len( fname ) > 0 then
  IDE_OpenDocument( fname )
end if
end function
-->
</programe>
</menuitem>
<inifile name="IniFile1" lib="controls.tbl" origin="108,54.5" bounds="72,32,104,56" visible="false" filename="project.ini" section="LIB"/>
<menuitem name="mOpen1" lib="Menu.tbl" origin="76,57" bounds="2,46,154,68" id="102" Caption="鎵撳紑鍥惧簱鏂囦欢(L)..." Checked="false" Enable="true" Focused="false" Picture="" submenu="">
<programe>
<!--
published function OnClick(Sender)
Close( 0 )
if Inspector <> 0 then
  Inspector.Help( "cmopenlibrary" )
end if
fname = GetOpenFileName( "visual graph files (*.tbl)|*.tbl|visual graph binary files (*.bin)|*.bin|all files (*.*)|*.*|" )
if Len( fname ) > 0 then
  LibView.ActiveSheet.LoadLibFromFile( fname )
end if
end function
-->
</programe>
</menuitem>
<menuitem name="MenuItem3" lib="Menu.tbl" origin="76,79" bounds="2,68,154,90" id="3" Caption="鎵撳紑鍘嗗彶鏂囦欢(R)" Checked="false" Enable="false" Focused="false" Picture="" submenu="historyfile">
<programe>
<!--
published function OnLoadSubMenu(Sender,ASheet)
Sender.Enable = ( ASheet.UnitCount > 5 )
end function
-->
</programe>
</menuitem>
<Separator name="Separator1" lib="Menu.tbl" origin="80,92.5" bounds="4,92,152,93"/>
<menuitem name="mSave" lib="Menu.tbl" origin="78,105" bounds="2,94,154,116" id="104" Caption="淇濆瓨(S)     Ctrl+S" Checked="false" Enable="true" Focused="false" Picture="icon\Save.bmp" submenu="">
<programe>
<!--
published function OnClick(Sender)
Close( 0 )
if Inspector <> 0 then
  Inspector.Help( "cmsave" )
end if
IDE_DispatchCommand( Sender.Id )
end function
-->
</programe>
</menuitem>
<menuitem name="mSaveAs" lib="Menu.tbl" origin="78,127" bounds="2,116,154,138" id="105" Caption="鍙﹀瓨涓