Редактирование существующего меню

Необходимость в редактировании меню возникает, если нужно

• добавить или удалить пользовательское меню как пункт существующего меню;
• добавить или удалить элементы строки меню MapInfo;
• изменить состояние элемента меню.

Рассмотрим каждый из этих случаев отдельно.

Допустим, мы хотим установить наше меню «Тест» как подменю меню «Программы»

Пользовательское меню как пункт существующего меню

Include "mapbasic.def" Declare Sub Main Declare Sub TestPrint Declare Sub theEnd Sub Main Create Menu "Тест" As "Печать" ID 201 HelpMsg "Тестируем меню" Calling TestPrint, "Выход" ID 202 HelpMsg "Закрыть программу" Calling theEnd Alter Menu "Программы" Add "(-", "Тест" As "Тест" end sub Sub TestPrint print "Тест меню" end sub Sub theEnd End Program end sub

В код включены строки комментариев для обработчиков событий – при наведении

курсора на пункт меню, в строке состояния (Status bar) будет выведен соответствующий

комментарий.

Результатом работы программы будет появление меню Тест в конце списка пунктов

меню Программы. Если теперь в окне MapBasic выполнить оператор Alter Menu

"Программы" Remove "Тест", то меню Тест будет удалено.

Добавить или удалить заголовок меню Тест в строке меню окна MapInfo можно с

помощью следующих операторов:

Alter Menu Bar Add "Тест"

Alter Menu Bar Remove "Тест"

Рассмотрим вопрос о состоянии элемента меню на примере приведенного выше кода.

Добавим несколько операторов в конец процедуры Main.

Alter Menu Item ID 201 Text "Вывод сообщения"

Alter Menu Item ID 202 Disable

Alter Menu Item ID 201 Calling theEnd

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

меню Выход станет недоступным и после нажатия на Вывод сообщения программа будет

закрыта.

Порядок выполнения работы:

1. Изучить теорию.

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

3. В отчете отобразить теоретическую часть код программ и модулей

4 Выполненную работу показать преподавателю и сдать отчет на подпись.

МИНОБРНАУКИ РОССИИ

Федеральное государственное бюджетное образовательное учреждение

высшего профессионального образования

«Тульский государственный университет»

Кафедра геоинженерии и кадастра

Утверждаю Декан горно-строительного факультета __________________ Р.А. Ковалев “____”_________________ 20___ г.

Методические указания к

Лабораторной работе № 17