Символьного типа (Character)

Подсистема Меню создается с помощью команды DEFINE MENU, в котором может быть создано Подменю с помощью команды DEFINE PAD, которая определяет требуемый подраздел основного меню (menu bar). Функция PRMPAD( ) работает также с основным Меню системы Visual FoxPro. Для успешного выполнения функции PRMPAD( ) требуется наличие активного Меню, указываемого в параметрах данной функции.

Если Заголовок подраздела Меню создан с использованием специальных символов:  (\<) - для указания "горячей" клавиши активации данного раздела меню, или  (\)  - для отключения данного подраздела Меню, функция PRMPAD( ) возвращает только текст Заголовка Подраздела Меню, без рассмотренных выше, специальных, форматирующих символов.

В представленном ниже примере: создается подсистема Меню с именем mnuExample,в котором создается три подраздела Меню. Указанные "активные" клавиши и специальные символы отключения Подменю - не отображаются при использовании рассмотренной выше функции, это касается пунктов с именами titleTwo / titleThree. Построенное меню активируется, после завершения - удаляется с экрана.

Копировать Код

CLEAR SET TALK OFF STORE 'mnuExample' TO gcPopName DEFINE MENU mnuExample BAR AT LINE 1 DEFINE PAD titleOne OF mnuExample PROMPT 'This will be returned' DEFINE PAD titleTwo OF mnuExample PROMPT '\<As will this' DEFINE PAD titleThree OF mnuExample PROMPT '\And this, too' =messagebox( PRMPAD('mnuExample', 'titleOne') ) =messagebox( PRMPAD('mnuExample', 'titleTwo') ) =messagebox( PRMPAD(gcPopName, 'titleThree') ) ACTIVATE MENU mnuExample DEACTIVATE MENU mnuExample RELEASE MENU mnuExample

Описание

Другие ссылки