Настройка панелей и меню Автор: Дмитрий Кузан Доброе время суток ! Этой статьей я заканчиваю введение в интегрированную картографию MapInfo.Надеюсь, что данный цикл статей открыл вам возможность применять MapInfo в ваших программах. Перед началом я хочу дать вам ссылку на сайт пользователй MapInfo , где вы найдете исчерпывающеюся информацию по MapInfo и MapBasic в частности на русском языке. Многое что я дал вам по MapBasic в этих частях взято оттуда. Интеграция инструментальных панелей Maplnfo краткий вводный курс. Вы не можете переподчинить стандартные инструментальные панели MapInfo. Если Вы хотите, чтобы Ваша клиентская программа имела такие панели вы должны сами создать панели и кнопки на Delphi (например используя Tpanel и Tbutton) и их обработчике посылать специальные команды MapInfo для того что-бы MapInfo включало или переключала режимы работы (например с выбора объекта на перемещения окна карты (ладошка)). Если Вы хотите, чтобы кнопка панели эмулировала стандартную кнопку MapInfo, используйте метод MapInfo Run Menu Command. Например в обработчике OnClick пропишите следующею команду

KDMapInfoServer1.ExecuteCommandMapBasic('Run Menu Command 1702',[]);

Когда пользователь нажмет на эту кнопку, программа вызывовет метод MapInfo - Run Menu Command, который активизирует инструмент под номером 1702 (инструмент перемещение карты "рука" ).
"Магический" номер 1702 ссылается на инструмент "рука" служащий для перемещения (сдвига) карты.
Вместо того, чтобы использовать такие числа. Вы можете использовать идентификаторы, более понятные в тексте программы. MapBasic определяет стандартный идентификатор M_TOOLS_RECENTER который имеет значение 1702. Таким образом, этот пример можно записать так:

KDMapInfoServer1.ExecuteCommandMapBasic('Run Menu Command %S', [M_TOOLS_RECENTER]);

Использование идентификаторов (типа M_TOOLS_RECENTER) делает Вашу программу более читательной, но перед использование вы должны включить в программу (в Uses) соответствующий заголовочный файл MapBasic. Для Delphi я положил файл Global.pas (содержимое файла опубликовано в приложении 1).
В следующей таблице приведены кратко идентификаторы основных инструментальных кнопок MapInfo (для более побробной информации смотрите документацию по MapBasic).
Кнопки панели Операции
Номер
Идентификатор
Примечание
Выбор
1701
М_TOOLS_SELECTOR
Панель ОПЕРАЦИИ
Выбор в прямоугольнике
1722
M_TOOLS_SEARCH_RECT
Панель ОПЕРАЦИИ
Выбор в круге
1703
M_TOOLS_SEARCH_RADIUS
Панель ОПЕРАЦИИ
Выбор в области
1704
M_TOOLS_SEARCH_BOUNDARY
Панель ОПЕРАЦИИ
Увеличивающая лупа
1705
M_TOOLS_EXPAND
Панель ОПЕРАЦИИ
Уменьшающая лупа
1706
M_TOOLS_SHRINK
Панель ОПЕРАЦИИ
Ладошка (рука)
1702
M_TOOLS_RECENTER
Панель ОПЕРАЦИИ
Информация
1707
M_TOOLS_PNT_QUERY
Панель ОПЕРАЦИИ
Подпись
1708
M_TOOLS_LABELER
Панель ОПЕРАЦИИ
Линейка
1710
M_TOOLS_RULER
Панель ОПЕРАЦИИ
Переноска
1734
M_TOOLS_DRAGWINDOW
Панель ОПЕРАЦИИ
Символ
1711
M_TOOLS_POINT
Панель ПЕНАЛ
Линия
1712
M_TOOLS_LINE
Панель ПЕНАЛ
Полилиния
1713
M_TOOLS_POLYLINE
Панель ПЕНАЛ
Дуга
1716
M_TOOLS_ARC
Панель ПЕНАЛ
Полигон
1714
M_TOOLS_POLYGON
Панель ПЕНАЛ
Эллипс
1715
M_TOOLS_ELLIPSE
Панель ПЕНАЛ
Прямоугольник
1717
M_TOOLS_RECTANGLE
Панель ПЕНАЛ
Прямоугольник скругленный
1718
M_TOOLS_ROUNDEDRECT
Панель ПЕНАЛ
Текст
1709
M_TOOLS_TEXT
Панель ПЕНАЛ
Рамка
1719
M_TOOLS_FRAME
Панель ПЕНАЛ

Настройка "быстрых" меню Maplnfo
MapInfo вызывает "быстрые" меню, если пользователь нажимает правую кнопку мышки в окне MapInfo. Эти меню появляются даже во внедренных приложениях. В зависимости от характера Вашего приложения Вы можете захотеть модифицировать или даже удалить такое меню. Например, Вы, возможно, захотите удалить команду ДУБЛИРОВАТЬ ОКНО, так как эта команда не работает в OLE-приложении.
Чтобы удалить одну или несколько команд из локального меню, используйте оператор MapBasic Alter Menu... Remove или переопределите меню целиком, используя оператор Create Menu. Подробнее смотрите в Справочнике MapBasic.
Чтобы добавить команду к локальному меню, используйте оператор MapBasic Alter Menu ... Add и синтаксис предложений Calling OLE.
Чтобы удалить "быстрое" меню полностью, используйте оператор MapBasic Create Menu и управляющий код "(-" как новое определение меню. Например, следующий оператор разрушает "быстрое" меню для окон Карты:

KDMapInfoServer1.ExecuteCommandMapBasic(' "Create Menu ""MapperShortcut"" ID 17 As ""(-"" " ', []);

Создание собственных уведомляющих вызовов (Callbacks).
Во второй части мы рассмотрели возможность перехвата двух стандартных вызовов MapInfo - это дало нам возможность подключить к своей программе статус бар MapInfo и узнавать об изменениях окон MapInfo.Все это очень неплохо, но сразу возник вопрос, а как создавать и обрабатывать сообщения собственные, не входящие в MapInfo.
Если Вы хотите, чтобы MapInfo сообщало Вашей клиентской программе, когда пользователь применяет инструментальную кнопку, создайте такую кнопку оператором Alter ButtonPad... Add. Определите кнопку в соответствии с именем метода для обработки (прим. Этот метод определен мной как MyEnvent в OLE объекте)
Пример :

KDMapInfoServer1.ExecuteCommandMapBasic('Alter ButtonPad ID 1 Add ToolButton calling ole
"MyEvent" ID 1 Icon 0 Cursor 0 DrawMode 34 uncheck',[]);

Заметьте, что инструментальные панели MapInfo скрыты, подобно остальной части интерфейса пользователя MapInfo. Пользователь не будет видеть новую кнопку. Вы можете добавить иконку, кнопку или другой видимый элемент управления к интерфейсу пользователя Вашей клиентской программы. Когда пользователь укажет на него мышкой, пошлите MapInfo оператор Run Menu Command ID , c индентификатором созданной кнопки чтобы активизировать этот инструмент.

KDMapInfoServer1.ExecuteCommandMapBasic('Run Menu Command ID 1',[]);

Примечание:
Информацию по Alter Button Pad смотрите в документации.
Если Вы хотите, чтобы MapInfo сообщала Вашей клиентской программе, когда пользователь выбирает созданную Вами команду меню, определите такую кнопку оператором Alter Menu... Add с указанием имени OLE метода (см. выше).
Внутри метода (в данном случае в обработчике компонента MyEventChange) обработайте аргументы (Info), посланные MapInfo.
Обработка переданных данных
Когда пользователь использует команды или кнопки, MapInfo посылает Вашему OLE-методу строку, содержащую восемь элементов, разделенных запятыми. Например, строка, посланная MapInfo, может выглядеть так:

"MI:-73.5548,42.122,F,F,-72.867702,43.025,202,"

Содержание такой строки проще понять, если Вы уже знакомы с функцией MapBasic CommandInfo(). Когда Вы пишете приложения, Вы можете создать новые команды меню и кнопки, вызывающие MapBasic-процедуры. Внутри процедуры-обработчика вызовите функцию CommandInfo(), чтобы получить информацию. Например, следующее обращение к функции определяет, координату Х и У места на карте где пользователи применил инструмент.

Значения:
Код для событий, связанных с меню Код для событий, связанных с кнопкой
1 CMD_INFO_X
2 CMD_INFO_Y
3 CMD_INFO_SHIFT
4 CMD_INFO_CTRL
5 CMD_INFO_X2
6 CMD_INFO_Y2
7 CMD_INFO_TOOLBTN
8 CMD_INFO_MENUITEM

Когда Вы создаете команду меню или кнопку, которая использует синтаксис вызова OLE, MapInfo создает строку, содержащую разделенные запятой все восемь возвращаемых CommandInfo() значений. Строка начинается с префикса "MI:", чтобы Ваш OLE-сервер мог определять, что обращение метода было сделано MapInfo.
Строка, которую MapInfo посылает Вашему методу, выглядит следующим образом:

"MI:" +
CommandInfo(l) + "," + CommandInfo (2) + "," +
CommandInfo(3) + "," + CommandInfo (4) + "," +
CommandInfo(5) + "," + CommandInfo (6) + "," +
CommandInfo (7) + "," + CommandInfo (8)

Предположим, что Ваше приложение добавляет команду меню к локальному меню OLE-методу строку. Если команда меню имеет номер 101 , строка будут выглядеть следующим образом:

"Ml :,,,,,,, 101"

В этом случае большинство элементов строки пусто, потому что функция CommandInfo( ) может возвращать только эту одну часть информации.
Теперь предположим что вы создаете кнопку которая позволяет пользователю выбирать линии на карте.Строка теперь примет вид -

"MI:-73.5548,42.122,F,F,-72.867702,43.025,202,"

Теперь строка включает несколько элементов:
Первые два элемента содержат х- и у координаты точки на которые пользователь указал мышкой
Следующие два элемента сообщают, была ли нажата клавиша SHIFT или CTRL
Предпоследнии два элемента содержат координаты точки где пользователь отпустил кнопку мышки.
И последний - указывает номер идентификатора кнопки.
Совет:
Если Вы приписываете уникальный идентификатор каждой из Ваших кнопок, Вы можете сделать так, что все кнопки будут вызывать один и тот же метод. Ваш метод может определять, какая из кнопка вызвала его, используя седьмой аргумент в переданной строке.
Примечание 1: Описание констант MapInfo (Global.pas)
Примечание - данный файл был взят мной с Интернета. Хочу сразу сделать предупреждение - разработчики MapInfo заявляют что набор констант может быть подвергнут изменениям в следующих редакциях MapInfo.Данный набор констант адаптирован под пятую версию. К сожалению шестой версии у меня нет (может кто поделиться ;-) ) и соответственно нет возможности проверить изменился ли набор констант или нет.
Вот в принципе и все что нужно для работы с MapInfo в Delphi, дерзайте

DelphiWorld 6.0