gridmenu.tbl

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

<?xml version="1.0" encoding="utf-8"?>
<vg version="723" range="0,0,125,273" borderstyle="1" scrollbars="0" paperbounds="0,0,793.700787,1122.141732" papervisible="false">
<sheet name="sheet1" bounds="0,0,128,210">
<MenuPanel name="borderG1" lib="Menu.tbl" origin="89,49" bounds="0,0,124,272"/>
<MenuItem name="MenuItem1" lib="Menu.tbl" origin="78.5,13" bounds="2,2,122,24" id="4" Caption="4" Checked="false" Enable="true" Focused="false" Picture="" submenu="">
<programe>
<!--
published function OnClick(Sender)
Close( 0 )
Doc = CurSheet.Owner
Doc.GridSize = Sender.Id
end function
-->
</programe>
</MenuItem>
<MenuItem name="MenuItem2" lib="Menu.tbl" origin="78.5,35" bounds="2,24,122,46" id="8" Caption="8" Checked="false" Enable="true" Focused="false" Picture="" submenu="">
<programe>
<!--
published function OnClick(Sender)
Close( 0 )
Doc = CurSheet.Owner
Doc.GridSize = Sender.Id
end function
-->
</programe>
</MenuItem>
<MenuItem name="MenuItem3" lib="Menu.tbl" origin="78.5,57" bounds="2,46,122,68" id="10" Caption="10" Checked="false" Enable="true" Focused="false" Picture="" submenu="">
<programe>
<!--
published function OnClick(Sender)
Close( 0 )
Doc = CurSheet.Owner
Doc.GridSize = Sender.Id
end function
-->
</programe>
</MenuItem>
<MenuItem name="MenuItem4" lib="Menu.tbl" origin="78.5,79" bounds="2,68,122,90" id="12" Caption="12" Checked="false" Enable="true" Focused="false" Picture="" submenu="">
<programe>
<!--
published function OnClick(Sender)
Close( 0 )
Doc = CurSheet.Owner
Doc.GridSize = Sender.Id
end function
-->
</programe>
</MenuItem>
<MenuItem name="MenuItem5" lib="Menu.tbl" origin="78.5,101" bounds="2,90,122,112" id="16" Caption="16" Checked="false" Enable="true" Focused="false" Picture="" submenu="">
<programe>
<!--
published function OnClick(Sender)
Close( 0 )
Doc = CurSheet.Owner
Doc.GridSize = Sender.Id
end function
-->
</programe>
</MenuItem>
<MenuItem name="MenuItem6" lib="Menu.tbl" origin="78.5,123" bounds="2,112,122,134" id="20" Caption="20" Checked="false" Enable="true" Focused="false" Picture="" submenu="">
<programe>
<!--
published function OnClick(Sender)
Close( 0 )
Doc = CurSheet.Owner
Doc.GridSize = Sender.Id
end function
-->
</programe>
</MenuItem>
<KeyManager name="KeyManager1" lib="controls.tbl" origin="84,92" bounds="72,80,96,104" visible="false" protect="12" hint="璇峰湪椤甸潰鐨凮nKeyDown浜嬩欢閲屽啓KeyManager1.OnKeyDown( Sender, Key )"/>
<MenuItem name="MenuItem10" lib="Menu.tbl" origin="78.5,145" bounds="2,134,122,156" id="24" Caption="24" Checked="false" Enable="true" Focused="false" Picture="" submenu="">
<programe>
<!--
published function OnClick(Sender)
Close( 0 )
Doc = CurSheet.Owner
Doc.GridSize = Sender.Id
end function
-->
</programe>
</MenuItem>
<MenuItem name="MenuItem11" lib="Menu.tbl" origin="78.5,167" bounds="2,156,122,178" id="30" Caption="30" Checked="false" Enable="true" Focused="false" Picture="" submenu="">
<programe>
<!--
published function OnClick(Sender)
Close( 0 )
Doc = CurSheet.Owner
Doc.GridSize = Sender.Id
end function
-->
</programe>
</MenuItem>
<MenuItem name="MenuItem12" lib="Menu.tbl" origin="78.5,189" bounds="2,178,122,200" id="32" Caption="32" Checked="false" Enable="true" Focused="false" Picture="" submenu="">
<programe>
<!--
published function OnClick(Sender)
Close( 0 )
Doc = CurSheet.Owner
Doc.GridSize = Sender.Id
end function
-->
</programe>
</MenuItem>
<Separator name="Separator1" origin="78,224.5" bounds="4,224,120,225">
<line name="Line3" origin="82.909091,224.545455" linecolor="$80000010" backcolor="$8000000A" points="4,224,6 120,224,2"/>
<line name="Line4" origin="82.909091,225.545455" linecolor="$80000014" backcolor="$8000000A" points="4,225,6 120,225,2"/>
</Separator>
<MenuItem name="MenuItem7" lib="Menu.tbl" origin="78.5,211" bounds="2,200,122,222" id="-1" Caption="闂磋窛(S)..." Checked="false" Enable="true" Focused="false" Picture="" submenu="">
<programe>
<!--
published function OnClick(Sender)
Hide()
Close( 0 )
Doc = CurSheet.Owner
dlg = Create( Handle, "GridDlg.tbl", false, false )
dlg.ActiveSheet.CurSheet = CurSheet
dlg.ActiveSheet.ComboBox1.Value = CStr( Doc.GridSize )
ret = dlg.ShowModal()
if ret = 1 then
  Doc.GridSize = val( dlg.ActiveSheet.ComboBox1.Value )
end if
dlg.Free()
end function
-->
</programe>
</MenuItem>
<MenuItem name="MenuItem8" lib="Menu.tbl" origin="78.5,237" bounds="2,226,122,248" id="-2" Caption="缃戠偣(D)" Checked="false" Enable="true" Focused="false" Picture="" submenu="">
<programe>
<!--
published function OnClick(Sender)
Close( 0 )
Doc = CurSheet.Owner
SystemParams.GridMode = 0
Doc.ActiveSheet.Refresh()
end function
-->
</programe>
</MenuItem>
<MenuItem name="MenuItem9" lib="Menu.tbl" origin="78.5,259" bounds="2,248,122,270" id="-3" Caption="缃戞牸(G)" Checked="false" Enable="true" Focused="false" Picture="" submenu="">
<programe>
<!--
published function OnClick(Sender)
Close( 0 )
Doc = CurSheet.Owner
SystemParams.GridMode = 1
Doc.ActiveSheet.Refresh()
end function
-->
</programe>
</MenuItem>
<programe>
<!--
property CurSheet read FCurSheet write FCurSheet
private function Initialize(Sender)
FCurSheet = 0
end function
private function OnKeyDown(Sender,Key)
KeyManager1.OnKeyDown( KeyManager1, Key )
end function
private function OnShow(Sender)
MenuItem8.Checked = SystemParams.GridMode = 0
MenuItem9.Checked = SystemParams.GridMode = 1
if CurSheet <> 0 then
	Doc = CurSheet.Owner
	MenuItem1.Checked = ( Doc.GridSize = 4 )
	MenuItem2.Checked = ( Doc.GridSize = 8 )
	MenuItem3.Checked = ( Doc.GridSize = 10 )
	MenuItem4.Checked = ( Doc.GridSize = 12 )
	MenuItem5.Checked = ( Doc.GridSize = 16 )
	MenuItem6.Checked = ( Doc.GridSize = 20 )
	MenuItem10.Checked = ( Doc.GridSize = 24 )
	MenuItem11.Checked = ( Doc.GridSize = 30 )
	MenuItem12.Checked = ( Doc.GridSize = 32 )
end if
end function
-->
</programe>
</sheet>
</vg>