Возвращает самый последний заголовок меню, выбранный из строки меню, в виде строки прописных символов, или возвращает логическое значение, указывающее, если заголовок меню определен для активной строки меню.

PAD([cMenuTitle [, cMenuBarName]])

Параметры

cMenuTitle

Определяет имя заголовка меню в строке меню. Включите этот параметр, чтобы проверить, если заголовок меню определен для активной строки меню. Вернет логическую истину (.T.), если заголовок меню определен; иначе вернет логическую ложь (.F.) возвращен.
cMenuBarName

Определяет имя строки меню, содержащей заголовок меню cMenuTitle. Если cMenuBarName опущен, заголовок меню находиться в в настоящее время активной строке меню.

Результат

Символьный или логический

Комментарии

Чтобы функция PAD( ) могла возвратить заголовок меню, строка меню должна быть определена и активна. Строки меню создаются и активизируются с помощью команд DEFINE MENU и ACTIVATE MENU.

Функцию PAD( ) можно также использовать по отношению к системной строке меню Visual FoxPro.

Функция PAD( ) возвращает пустую строку, если строка меню не определена или не активна или если PAD( ) выдана из окна команд.

Пример

В данном примере функция 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

Смотреть также