Code: Select all
MENUITEM "Modification Log-On Ctrl-P" ;
ACTION LogOn () ACCELERATOR ACC_CONTROL, ASC("P")
MENUITEM "E&xit Alt-X”;
ACTION oWndMain:end() ACCELERATOR ACC_ALT, ASC("X")
Code: Select all
MENUITEM "Modification Log-On Ctrl-P" ;
ACTION LogOn () ACCELERATOR ACC_CONTROL, ASC("P")
MENUITEM "E&xit Alt-X”;
ACTION oWndMain:end() ACCELERATOR ACC_ALT, ASC("X")
Code: Select all
MENUITEM "Next Record" + CHR(9) + "PgDn" MESSAGE "Look at next member" ;
ACTION Dn() ACCELERATOR 0, VK_NEXT
MENUITEM "Previous Record" + CHR(9) + "PgUp" MESSAGE "Look at previous member" ;
ACTION Up() ACCELERATOR 0, VK_PRIOR
MENUITEM "Locate Record" + CHR(9) + "Alt-L" MESSAGE "Look for a specific member" ;
ACTION What := Find_Fld() ACCELERATOR ACC_ALT, ASC("L")
Code: Select all
MENUITEM "Item 1" + CHR(9) + "Sub 1" MESSAGE "Item 1 - Sub 1" ;
ACTION MsgInfo( "any action" ) ;
ACCELERATOR 0, VK_F2
MENUITEM "Item 1" + CHR(9) + "Sub 2" MESSAGE "Item 1 - Sub 2" DISABLED