menubar.tbl

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

<?xml version="1.0" encoding="utf-8"?>
<vg version="724" range="0,0,2000,2000" borderstyle="1" scrollbars="0" backcolor="$8000000F" paperbounds="0,0,793.70078,1122.141732" papervisible="false">
<sheet name="sheet1" bounds="0,0,828,24">
<MainMenuItem name="MainMenuItem1" lib="Menu.tbl" origin="79,11" bounds="8,1,62,21" Caption="鏂囦欢(F)" Enable="true" Focused="false" submenu="mainmenu1"/>
<MainMenuItem name="MainMenuItem2" lib="Menu.tbl" origin="133,11" bounds="62,1,116,21" Caption="缂栬緫(E)" Enable="true" Focused="false" submenu="mainmenu2"/>
<KeyManager name="KeyManager1" lib="controls.tbl" origin="364,105" bounds="352,93,376,117" visible="false" protect="12" hint="璇峰湪椤甸潰鐨凮nKeyDown浜嬩欢閲屽啓KeyManager1.OnKeyDown( Sender, Key )"/>
<IniFile name="IniFile1" lib="controls.tbl" origin="320,83" bounds="312,88,347,106" visible="false" filename="" section="Desktop"/>
<MenuSpeedbutton name="btnGrid" lib="controls.tbl" origin="739,37" bounds="720,24,758,50" alpha="20" enabled="false" protect="12" hint="鏍呮牸" ContextMenu="鍥剧墖(M)..." Down="false" Enable="false" PictureData="07TBitmap424D6601000000000000760000002800000014000000140000000100040000000000F0000000C40E0000C40E0000000000000000000000000000000080000080000000808000800000008000800080800000C0C0C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777777777770000777777777777777777770000777777777777777777770000777777777777777777770000777077077077077077770000777777777777777777770000777777777777777777770000777077077077077077770000777777777777777777770000777777777777777777770000777077077077077077770000777777777777777777770000777777777777777777770000777077077077077077770000777777777777777777770000777777777777777777770000777077077077077077770000777777777777777777770000777777777777777777770000777777777777777777770000">
<programe>
<!--
published function IpopupMenu(x,y)
dlg = Create( Handle, "gridmenu.tbl", true, false )
dlg.ActiveSheet.CurSheet = CurSheet
dlg.Popup( x, y )
dlg.Free()
end function
published function OnClick(Sender)
if Inspector <> 0 then
  Inspector.Help( "cmgrid" )
end if
Sender.Down = not Sender.Down
SystemParams.ShowGrid = not SystemParams.ShowGrid
CurSheet.Refresh()
end function
-->
</programe>
</MenuSpeedbutton>
<speedbutton name="btnNew" lib="controls.tbl" origin="18,34" bounds="8,24,34,50" hint="鏂板缓瑙嗗浘鏂囦欢" Caption="" ContextMenu="鍥剧墖..." Enable="true" PictureData="07TBitmap424D6601000000000000760000002800000014000000140000000100040000000000F0000000C40E0000C40E000000000000000000000000000000008000008000000080800080000000800080008080000080808000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0088888888888888888888000088888888888888888888000088888888888888888888000088888888888888888888000088880000000000088888000088880FFFFFFFFF088888000088880FFFFFFFFF088888000088880FFFFFFFFF088888000088880FFFFFFFFF088888000088880FFFFFFFFF088888000088880FFFFFFFFF088888000088880FFFFFFFFF088888000088880FFFFFFFFF088888000088880FFFFFF000088888000088880FFFFFF0F0888888000088880FFFFFF0088888880000888800000000888888880000888888888888888888880000888888888888888888880000888888888888888888880000">
<programe>
<!--
published function OnClick(Sender)
if IDE then
	IDE_OpenDocument( "" )
else
	Doc.LoadFromFile( "" )
end if
if Inspector <> 0 then
  Inspector.Help( "cmnew" )
end if
end function
-->
</programe>
</speedbutton>
<speedbutton name="btnSave" lib="controls.tbl" origin="74,34" bounds="64,24,90,50" alpha="20" enabled="false" hint="淇濆瓨鏂囦欢" Caption="" ContextMenu="鍥剧墖..." Enable="false" PictureData="07TBitmap424D6601000000000000760000002800000014000000140000000100040000000000F0000000C40E0000C40E0000000000000000000000000000000080000080000000808000800000008000800080800000C0C0C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777777777770000777777777777777777770000777777777777777777770000777700000000000007770000777033000000770307770000777033000000770307770000777033000000770307770000777033000000000307770000777033333333333307770000777033000000003307770000777030777777770307770000777030777777770307770000777030777777770307770000777030777777770307770000777030777777770007770000777030777777770707770000777000000000000007770000777777777777777777770000777777777777777777770000777777777777777777770000">
<programe>
<!--
published function OnClick(Sender)
if Inspector <> 0 then
  Inspector.Help( "cmsave" )
end if
if IDE then
  IDE_DispatchCommand( 104 )
else
  Doc.SaveToFile( Doc.FileName )
end if
end function
-->
</programe>
</speedbutton>
<speedbutton name="btnPrint" lib="controls.tbl" origin="102,34" bounds="92,24,118,50" alpha="20" enabled="false" hint="鎵撳嵃鏂囦欢" Caption="" ContextMenu="鍥剧墖..." Enable="false" PictureData="07TBitmap424D6601000000000000760000002800000014000000140000000100040000000000F0000000C40E0000C40E0000000000000000000000000000000080000080000000808000800000008000800080800000C0C0C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0077777777777777777777000077777777777777777777000077000777777777700077000070000000000000000007000070F77777777777777707000070F77777777777777707000070F77777777777997707000070FFFFFFFFFFFFFFFF07000078008888888888880087000077700000000000000777000077700FFFFFFFFFF00777000077770F00000000F07777000077770FFFFFFFFFF07777000077770F00000000F07777000077770FFFFFFFFFF07777000077770F00FFFFFFF07777000077770FFFFFFFFFF077770000777700000000000077770000777777777777777777770000777777777777777777770000">
<programe>
<!--
published function OnClick(Sender)
if Inspector <> 0 then
  Inspector.Help( "cmprint" )
end if
Doc.Print()
end function
-->
</programe>
</speedbutton>
<speedbutton name="btnUndo" lib="controls.tbl" origin="133,34" bounds="123,24,149,50" alpha="20" enabled="false" hint="鎾ら攢鎿嶄綔" Caption="" ContextMenu="鍥剧墖..." Enable="false" PictureData="07TBitmap424D6601000000000000760000002800000014000000140000000100040000000000F0000000C40E0000C40E0000000000000000000000000000000080000080000000808000800000008000800080800000C0C0C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777777777770000777777777777777777770000777777777777777777770000777777777777777777770000777777777777777777770000777777777777777777770000777777777777777777770000777777777777784777770000777744444777774877770000777744447777777477770000777744477777777477770000777744747777777477770000777747774477774877770000777777777744448777770000777777777777777777770000777777777777777777770000777777777777777777770000777777777777777777770000777777777777777777770000777777777777777777770000">
<programe>
<!--
published function OnClick(Sender)
if Inspector <> 0 then
  Inspector.Help( "cmundo" )
end if
if IDE then
  IDE_DispatchCommand( 113 )
else
  Doc.Undo()
end if
end function
-->
</programe>
</speedbutton>
<speedbutton name="btnRedo" lib="controls.tbl" origin="161,34" bounds="151,24,177,50" alpha="20" enabled="false" hint="鎭㈠