popupmenu5.tbl

来自「cShap控制云台运动」· TBL 代码 · 共 20 行

<?xml version="1.0" encoding="utf-8"?>
<vg version="700" range="0,0,157,49" borderstyle="1" scrollbars="0" backcolor="$80000004">
<page name="Page" bounds="0,0,827,1169" visible="false" margin="100,100,100,100" paperwidth="2100" paperheight="2969"/>
<sheet name="Sheet1" bounds="0,0,160,122" tag="13">
<MenuPanel name="borderG1" lib="Menu.tbl" bounds="0,0,156,48" origin="89,49"/>
<menuitem name="MenuItem1" lib="Menu.tbl" bounds="2,2,154,24" origin="78.5,13" id="1" Caption="&apos;淇濆瓨(S)&apos;" Checked="false" Enable="true" Focused="false" Picture="&apos;Icon\save.bmp&apos;" submenu="&apos;&apos;"/>
<menuitem name="MenuItem2" lib="Menu.tbl" bounds="2,24,154,46" origin="78.5,35" id="2" Caption="&apos;鍏抽棴(C)&apos;" Checked="false" Enable="true" Focused="false" Picture="&apos;&apos;" submenu="&apos;&apos;"/>
<KeyManager name="KeyManager1" lib="controls.tbl" bounds="120,4,144,28" origin="132,16" visible="false" hint="璇峰湪椤甸潰鐨凮nKeyDown浜嬩欢閲屽啓KeyManager1.OnKeyDown( Sender, Key )"/>
<programe>
public function HandleCommand(AId)
Close( AId )

end function
private function OnKeyDown(Sender,Key)
KeyManager1.OnKeyDown( Sender, Key )
end function
</programe>
</sheet>
</vg>