E
esri
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.FormCreate(Sender: TObject);
begin
map1.TrackingLayer.SymbolCount:=1;
with map1.TrackingLayer.Symbol[0]do
begin
style:=mocirclemarker;
size:=10;
end;
procedure TForm1.Map1MouseDown(Sender: TObject;
Button: TMouseButton;
Shift: TShiftState;
X, Y: Integer);
begin
pt:=imopoint(createoleobject('mapobjects2.point'));
pt:=map1.ToMapPoint(x,y);
map1.TrackingLayer.AddEvent(pt,0)
end;
begin
map1.TrackingLayer.SymbolCount:=1;
with map1.TrackingLayer.Symbol[0]do
begin
style:=mocirclemarker;
size:=10;
end;
procedure TForm1.Map1MouseDown(Sender: TObject;
Button: TMouseButton;
Shift: TShiftState;
X, Y: Integer);
begin
pt:=imopoint(createoleobject('mapobjects2.point'));
pt:=map1.ToMapPoint(x,y);
map1.TrackingLayer.AddEvent(pt,0)
end;