* В следующем примере функция MENU( ) использована для передачи в
* процедуру имени строки меню. Текущая системная строка меню
* сохраняется в памяти по команде SET SYSMENU SAVE, а затем все
* заголовки системных меню удаляются командой SET SYSMENU TO.

* С помощью команды DEFINE PAD создаются заголовки системных меню.
* При выборе заголовка меню MENU( ) передает процедуре choice имя
* системной строки меню Visual FoxPro _MSYSMENU. Процедура choice
* отображает на экране имя выбранного заголовка меню и имя системной
* строки меню. Если выбрать меню Exit, восстанавливается
* первоначальная система меню Visual FoxPro.

*** Name this program MENUEXAM.PRG ***

CLEAR

SET SYSMENU SAVE

SET SYSMENU TO

DEFINE PAD padSys OF _MSYSMENU PROMPT '\<System' COLOR SCHEME 3 ;

KEY ALT+S, ''

DEFINE PAD padEdit OF _MSYSMENU PROMPT '\<Edit' COLOR SCHEME 3 ;

KEY ALT+E, ''

DEFINE PAD padRecord OF _MSYSMENU PROMPT '\<Record' COLOR SCHEME 3 ;

KEY ALT+R, ''

DEFINE PAD padWindow OF _MSYSMENU PROMPT '\<Window' COLOR SCHEME 3 ;

KEY ALT+W, ''

DEFINE PAD padReport OF _MSYSMENU PROMPT 'Re\<ports' COLOR SCHEME 3 ;

KEY ALT+P, ''

DEFINE PAD padExit OF _MSYSMENU PROMPT 'E\<xit' COLOR SCHEME 3 ;

KEY ALT+X, ''

ON SELECTION MENU _MSYSMENU ;

DO choice IN menuexam WITH PAD( ), MENU( )

PROCEDURE choice

PARAMETER gcPad, gcMenu

WAIT WINDOW 'You chose ' + gcPad + ;

' from menu ' + gcMenu NOWAIT

IF gcPad = 'PADEXIT'

SET SYSMENU TO DEFAULT

ENDIF