gridmenu.tbl

cShap控制云台运动

<?xml version="1.0" encoding="utf-8"?>
<vg version="702" range="0,0,125,207" borderstyle="1" scrollbars="0" backcolor="$FFFFFF">
<page name="page" bounds="0,0,793.700787,1122.141732" visible="false"/>
<sheet name="sheet1" bounds="0,0,128,210" CurSheet="0">
<MenuPanel name="borderG1" lib="Menu.tbl" bounds="0,0,124,206" origin="89,49"/>
<MenuItem name="MenuItem1" lib="Menu.tbl" bounds="2,2,122,24" origin="78.5,13" id="4" Caption="&apos;4&apos;" Checked="false" Enable="true" Focused="false" Picture="&apos;&apos;" submenu="&apos;&apos;"/>
<MenuItem name="MenuItem2" lib="Menu.tbl" bounds="2,24,122,46" origin="78.5,35" id="8" Caption="&apos;8&apos;" Checked="false" Enable="true" Focused="false" Picture="&apos;&apos;" submenu="&apos;&apos;"/>
<MenuItem name="MenuItem3" lib="Menu.tbl" bounds="2,46,122,68" origin="78.5,57" id="10" Caption="&apos;10&apos;" Checked="false" Enable="true" Focused="false" Picture="&apos;&apos;" submenu="&apos;&apos;"/>
<MenuItem name="MenuItem4" lib="Menu.tbl" bounds="2,68,122,90" origin="78.5,79" id="12" Caption="&apos;12&apos;" Checked="false" Enable="true" Focused="false" Picture="&apos;&apos;" submenu="&apos;&apos;"/>
<MenuItem name="MenuItem5" lib="Menu.tbl" bounds="2,90,122,112" origin="78.5,101" id="16" Caption="&apos;16&apos;" Checked="false" Enable="true" Focused="false" Picture="&apos;&apos;" submenu="&apos;&apos;"/>
<MenuItem name="MenuItem6" lib="Menu.tbl" bounds="2,112,122,134" origin="78.5,123" id="20" Caption="&apos;20&apos;" Checked="false" Enable="true" Focused="false" Picture="&apos;&apos;" submenu="&apos;&apos;"/>
<Separator name="Separator1" bounds="4,158,120,159" origin="78,158.5">
<line name="Line3" origin="82.909091,158.545455" linecolor="$80000010" backcolor="$8000000A">
<points>
4,158,6
120,158,2
</points>
</line>
<line name="Line4" origin="82.909091,159.545455" linecolor="$80000014" backcolor="$8000000A">
<points>
4,159,6
120,159,2
</points>
</line>
</Separator>
<KeyManager name="KeyManager1" lib="controls.tbl" bounds="72,80,96,104" origin="84,92" visible="false" hint="璇峰湪椤甸潰鐨凮nKeyDown浜嬩欢閲屽啓KeyManager1.OnKeyDown( Sender, Key )"/>
<MenuItem name="MenuItem7" lib="Menu.tbl" bounds="2,134,122,156" origin="78.5,145" id="-1" Caption="&apos;闂磋窛(S)...&apos;" Checked="false" Enable="true" Focused="false" Picture="&apos;&apos;" submenu="&apos;&apos;"/>
<MenuItem name="MenuItem8" lib="Menu.tbl" bounds="2,160,122,182" origin="78.5,171" id="-2" Caption="&apos;缃戠偣(D)&apos;" Checked="false" Enable="true" Focused="false" Picture="&apos;&apos;" submenu="&apos;&apos;"/>
<MenuItem name="MenuItem9" lib="Menu.tbl" bounds="2,182,122,204" origin="78.5,193" id="-3" Caption="&apos;缃戞牸(G)&apos;" Checked="false" Enable="true" Focused="false" Picture="&apos;&apos;" submenu="&apos;&apos;"/>
<programe>
public function HandleCommand(AId)
Hide()
Close( 0 )
Doc = CurSheet.Owner
if AId &gt; 0 then
  Doc.GridSize = AId
else if AId = -1 then
  dlg = Create( Handle, &quot;GridDlg.tbl&quot;, 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()
else if AId = -2 then
  SystemParams.GridMode = 0
else if AId = -3 then
  SystemParams.GridMode = 1
end if
Doc.ActiveSheet.Refresh()
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 &lt;&gt; 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 )
end if
end function
</programe>
</sheet>
</vg>