2.4.20.4. Двухуровневое Pulldown-меню

Двухуровневое меню создается в следующей последовательности.

Командами Define Menu и Define описывается главное горизон­таль­ное меню.

Командой On Selection Pad обычно описываются реакции тех пунктов меню, которые вызывают процедуры.

Командами On Pad с опцией Activate Popup устанавливается связь горизонтального меню с вертикальными Popup-меню, т.е. выход на второй уровень меню.

Командами Define Popup и Define Bar описываются сами Popup-меню, а их реакции - командой On Selection Popup.

Активизация всей конструкции меню осуществляется командой Activate Menu, деактивизация - командой Deactivate Menu.

Анализ выбора пользователя может выполняться с помощью функций Bar( ), Popup( ), Prompt( ), Menu( ), Pad( ).

Пример двухуровневого меню

Set Talk Off && отключение вывода отладочной информации

Set Escape Off && отключение обработки прерываний по клавише Esc

Define Menu Menu0 && определение главного Bar-меню Menu0

Define Pad Baza Of Menu0 Prompt '\<Таблицы' At 0,0 && первый пункт

Define Pad Othet Of Menu0 Prompt '\<Отчеты' At 0,6 && второй пункт

On Pad Baza Of Menu0 Activate Popup Baza && обработка первого пункта

On Pad Othet Of Menu0 Activate Popup Othet && обработка второго пункта

Define Popup Baza && определение подменю baza

Define Bar 1 Of Baza Prompt '\<1 Таблица поставок товаров' ;

Key Ctrl+F1,'^F1'; && клавиши прямого вызова

Message 'Просмотр и корректировка таблицы поставок товаров'

Define Bar 2 Of Baza Prompt '\<2 Таблица поставок товаров (документ)' ;

Key Ctrl+F2, '^F2'; && клавиши прямого вызова

Message ' Корректировка таблицы поставок товаров в форме документа'

Define Bar 3 Of Baza Prompt '\<3 Таблица наименований товаров' ;

Key Ctrl+F3, '^F3'; && клавиши прямого вызова

Message 'Просмотр и корректировка таблицы наименований товаров'

On Selection Bar 1 Of Baza Do Ptovar && обработка 1 пункта подменю baza

On Selection Bar 2 Of Baza Do Ptovard && обработка 2 пункта подменю baza

On Selection Bar 3 Of Baza Do Stovar && обработка 3 пункта подменю baza

Define Popup Othet && Определение подменю othet

Define Bar 1 Of Othet Prompt '\<1 Ведомость поставок' Key Ctrl+F4, '^F4';

Message 'Формирование и вывод ведомости поставок товаров'

On Selection Bar 1 Of Othet Do Othet && обработка 1 пункта подменю othet

Activate Menu Menu0 && активизация главного меню

2.4.20.5. Управление доступом к меню

Set Skip Of Menu <Bar-меню> <ВырL>

Set Skip Of Pad <Pad-пункт> Of <Ваr-меню> <ВырL>

Set Skip Of Popup <Рорuр-меню> <ВырL>

Set Skip Of Bar <BырN> Of <Рорuр-меню> <ВырL>

Эти команды позволяют в зависимости от условия (<вырL>) вклю­чать/вык­лючать <Ваr-меню>, <Pad-пункты>, <Рорuр-меню> и отдельные (имеющие номер <ВырN>) Bar-строки Popup-меню соответственно. Эти элементы будут показаны на экране приглушенным цветом. Они не могут быть выбраны, если <вырL>=.Т.. Отмена блокировки выполняется той же командой, но с аргументом .F..