* В данном примере функция PAD( ) используется для передачи в
* процедуру заголовка меню.

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

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

*** Name this program PADEXAM.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 padexam WITH PAD( ), MENU( )

PROCEDURE choice

PARAMETERS gcPad, gcMenu

WAIT WINDOW 'You chose ' + gcPad + ;

' from menu ' + gcMenu NOWAIT

IF gcPad = 'PADEXIT'

SET SYSMENU TO DEFAULT

ENDIF