* В следующем примере команда DEFINE PAD используется для
* размещения заголовков меню в системной строке меню Visual FoxPro.
* Сначала текущая системная строка меню сохраняется в памяти с
* помощью команды SET SYSMENU SAVE, а затем все системные заголовки
* меню удаляются командой SET SYSMENU TO.

* С помощью команды DEFINE PAD создаются заголовки системных меню.
* Когда выбирается заголовок меню, выполняется процедура CHOICE. Она
* отображает имя выбранного заголовка меню и имя строки меню, а также
* устанавливает или сбрасывает символ маркировки для заголовков меню.
* Если выбрать заголовок меню Exit, восстанавливается первоначальная
* система меню Visual FoxPro.

*** Name this program DEFINPAD.PRG ***

CLEAR

SET TALK OFF

SET SYSMENU SAVE

SET SYSMENU TO

PUBLIC markpad

markpad = .T.

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

KEY ALT+S, ''

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

KEY ALT+E, ''

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

KEY ALT+R, ''

DEFINE PAD windowpad OF _MSYSMENU PROMPT '\<Window' COLOR SCHEME 3 ;
KEY ALT+W, ''

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

KEY ALT+P, ''

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

KEY ALT+X, ''

ON SELECTION MENU _MSYSMENU ;

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

PROCEDURE choice

PARAMETER mpad, mmenu

WAIT WINDOW 'You chose ' + mpad + ;

' from menu ' + mmenu NOWAIT

SET MARK OF PAD (mpad) OF _MSYSMENU TO ;

! MRKPAD('_MSYSMENU', mpad)

markpad = ! markpad

IF mpad = 'EXITPAD'

SET SYSMENU TO DEFAULT

ENDIF