* В данном примере команда ON SELECTION MENU используется для
* выполнения определенной процедуры при выборе заголовка меню из
* системной строки меню Visual FoxPro.

* Текущая системная строка меню сохраняется в памяти по команде SET
* SYSMENU SAVE, и все заголовки системных меню удаляются командой
* SET SYSMENU TO.

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

*** Name this program ONMENU.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 onmenu 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