8. 3.2. Создание пользовательских меню с помощью своей панели инструментов

Созданное таким способом меню не заменит линейку системного меню, а будет существовать на отдельной панели (пользовательской панели инструментов).

Рассмотрим пример.

Пример 32. Пусть требуется создать пользовательскую панель инструментов с таким же меню, как в примере 31.

Для этого нужно выполнить следующую последовательность действий:

• Открыть окно для создания пользовательской ПИ командой системного меню: Вид/Панели инструментов/Настройка

• 1спо кнопкеСоздать. Откроется окно создания ПИ:

• Переименовать ПИ, назвав ее Моя панель. По кнопкеОКзакроется текущее окно и появится созданная ПИ. Передвинуть, схватив мышью за заголовок, ПИ так, чтобы она располагалась справа от окна БД. Окно настройки осталось открытым.

• В окне настройки открыть вкладку Командыи в областиКатегориивыделить командуНовое меню. Получим:

• Не закрывая окна настройки, захватим мышью Новое менюиз областиКомандыокнаНастройка, протащим и бросим на нашу ПИ. Получим:

• Повторим это действие еще раз так, чтобы наша панель приняла вид:

• На открытьк.з. меню и набрать с помощью клавиатуры Имя:Форма. Аналогично на втором новом меню дать имяТаблица. Получим:Таким образом мы создали пункты горизонтального меню (см. рисунок меню в начале примера). Теперь нужно создать вертикальные всплывающие пункты меню.

• 1спо кнопке раскрывающего меню на пунктеФормы. Получим:

• Перетащим Новое меню, как показано ниже

• На новом меню откроем к.з.меню и изменим Имя наЗакрыть форму. Получим:

• Действуя аналогично для таблиц, в результате получим: и

• Теперь каждый пункт меню нужно связать с определенным действием (макросом).

• Создадим групповой макрос по имени Открыть таблицы, который будет иметь вид:

Имя макроса	Макрокоманда	Примечание
Поставщики	ОткрытьТаблицу (Имя таблицы: Поставщики)
Поставки	ОткрытьТаблицу (Имя таблицы:Поставки)

• Создадим групповой макрос по имени Закрыть таблицы, который будет иметь вид:

Имя макроса	Макрокоманда	Примечание
Поставщики	Закрыть (Тип объекта: Таблица Имя объекта: Поставщики)
Поставки	Закрыть (Тип объекта: Таблица Имя объекта: Поставки)

• Создадим макрос по имени Закрыть форму:

Макрокоманда	Примечание
Закрыть (Тип объекта: Форма Имя объекта: Детали)

• Теперь свяжем созданные макросы с пунктами меню на нашей панели. Для этого при открытом окне настройки ПИизк.з.меню на пунктеФормынашей панели откроем окно свойств и в качестве действия выберем из списка макросЗакрыть форму:

• Аналогично выберем действия для остальных пунктов меню нашей панели.

• Теперь сделаем так, чтобы Моя панельпоявлялась при открытии формыДеталии исчезала при закрытии формыДетали. Для этого создадим макросы по имениПоказать мою панель, который будет таким:

Макрокоманда	Примечание
ПанельИнструментов (Панель инструментов: Моя панель, Показать: Да)

и макрос по имени Закрыть мою панель:

Макрокоманда	Примечание
ПанельИнструментов (Панель инструментов: Моя панель, Показать: Нет)

• Связать событие Открытиедля формыДеталис макросомПоказать мою панель, а свойствоЗакрытие– с макросомЗакрыть мою панель.

• Проверить работоспособность созданного меню.