Статьи Королевства Дельфи


Часть 2. Создание собственных инструментов, строка состояния - вывод координат. - часть 3


MapX.CreateCustomTool(ToolCustomArrow,miToolTypePoint,miDefaultCursor); MapX.CreateCustomTool(ToolCustomCircle,miToolTypeCircle, miDefaultCursor);

Константы ID инструментов я определил так :

Const ToolCustomArrow = 1; ToolCustomCircle = 2;

Обработчики выбора инструментов так :

MapX.MousePointer := miDefaultCursor; MapX.CurrentTool := miArrowTool;

И обратите внимание так

MapX.MousePointer := miCustomCursor; MapX.MouseIcon := 'Icon2.ico'; MapX.CurrentTool := ToolCustomCircle;

Т.е при выборе инструмента окружность стандартный курсор на карте заменяется собственным выбранным из иконки 'Icon2.ico' т.е сразу ответ и на вопрос как создать собственный указатель в MapX. Видите, ничего сложного тоже нет.



Ну и наконец в обработчике инструментов пользователя MapXToolUsed я прописал следующий демо-код.

procedure TForm1.MapXToolUsed(Sender: TObject; ToolNum: Smallint; X1, Y1, X2, Y2, Distance: Double; Shift, Ctrl: WordBool; var EnableDefault: WordBool); begin IF ToolNum = ToolCustomArrow Then ShowMessage('Использован собственный инструмент - стрелка'); IF ToolNum = ToolCustomCircle Then ShowMessage('Использован собственный инструмент - Круг'); end;

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

С уважением к коллегам,
.

Скачать проект: (11 K)




Начало  Назад  Вперед