|
|
| used for top level menu description. Not used in hal-customisations |
 |
| menuid |
internal menu code (from haldefs.h) |
| menuname |
name of menu in interface |
|
event startup
begin
SetLangMode(LangEnglish,"ENG",0);
StartNrMenu(FileMenu,"File");
MenuItem("Company...",'O','O',mFileOpen);
MenuItem("(-",' ',0,mFileSpace1);
MenuItem("Master Control",'M','M',mFileMasterControl);
MenuItem("(-",' ',0,mFileSpace2);
MenuItem("Exports...",'E','E',mFileExport);
MenuItem("Imports...",'i','i',mFileImport);
MenuItem("Maintenance...",' ',0,mFileMaint);
MenuItem("(-",' ',0,mFileSpace3);
MenuItem("Reports...",'R','R',mFileReport);
MenuItem("Documents...",'D','D',mFileDocument);
MenuItem("Settings...",'S','S',mFileSetup);
MenuItem("(-",' ',0,mFileSpace4);
MenuItem("Page Setup...",' ',0,mFilePageSetup);
MenuItem("Print",'P','P',mFileHCopy);
MenuItem("(-",' ',0,mFileSpace5);
MenuItem("Quit",'Q',0,mFileQuit);
EndMenu;
StartNrMenu(EditMenu,"Edit");
MenuItem("Undo",'Z','Z',mEditUndo);
MenuItem("(-",' ',0,1);
MenuItem("Cut",'X','X',mEditCut);
MenuItem("Copy",'C','C',mEditCopy);
MenuItem("Paste",'V','V',mEditPaste);
MenuItem("Clear",'#',0,mEditClear);
MenuItem("Select All",'A',0,mEditMarkAll);
MenuItem("Select Row",' ',0,mEditMarkRow);
//## MenuItem("Windows !C",' ',0,mEditWC);
EndMenu;
StartNrMenu(CmdMenu,"Record");
MenuItem("Next",'+',0,mCmdNext);
MenuItem("Previous",'-',0,mCmdPrev);
MenuItem("(-",' ',0,2);
MenuItem("Save",'$',0,mCmdSave);
MenuItem("Cancel",' ',0,mCmdCancel);
MenuItem("New",'N','N',mCmdNew);
MenuItem("Duplicate",'Y','K',mCmdDupl);
MenuItem("Delete",'d',0,mCmdDel);
EndMenu;
StartNrMenu(WCMenu,"Window");
MenuItem("Close",'W',0,0);
MenuItem("Save Position",'s',0,1);
MenuItem("Restore Position",'t',0,2);
MenuItem("Next Window",'n',0,3);
EndMenu;
return;
end;
|
««