Как в Delphi нарисовать точку с надписью?

Question

Здравствуйте.

Помогите, пожалуйста со следующей задачей - мне необходимо в Delphi нарисовать в векторном и в растровом слоях карты точку с какой-то надписью. Я благодаря примерам на форуме получил указатель на

pFeatureClass: IFeatureClass;

Что мне нужно далее делать для рисования точки с надписью, если можно, пришлите пример кода, спасибо!

Answer 1

Экран надо обновлять, очевидно, после сохранения фигурки.

И аккуратнее - если слой версионный, надо ловить исключение.

Почитайте:
http://resources.esri.com/help/9.3/ArcGISDesktop/ArcObjects/esriGeoDatabase/IFeatureClass_CreateFeature.htm

Answer 2

Забыл дописать:var  pHook : IHookHelper; //объявлена как глобальная переменнаяprocedure TMAP.OnCreate(const hook: IDispatch);begin  pHook := CoHookHelper.Create as IHookHelper;  pHook.hook := hook;end;

1. pActiveView.partialRefresh()
надо вызывать ПОСЛЕ Store.
2. Хоть и pActiveView := phook.FocusMap as IActiveView; не выдает ошибки приведения интерфейсов, следует поменять на pActiveView := phook.ActiveView;
3. Проверьте таблицу аттрибутов, там в любом случае должны быть записи...

Answer 3

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