TMapEditMetric.OnGetPoint

 

TMapEditMetric

 Top

 

Вызывается при перемещении по контуру объекта, если установлен режим emGetPoint

 

TMapGetPointEvent = procedure(aObject : TObject; aShift : TShiftState;

                               aMapPoint : TMapPoint) of object;

 

OnGetPoint : TMapGetPointEvent;

 

Описание:

Событие вызывается после изменения местоположения текущей точки на контуре объекта. ; Параметр  aShift передает состояние клавиш в момент перемещения, aMapObj – содержит координаты точки.