При нанесении объекта на карту,
шлейф.
Это так и должно быть?
Код:
procedure Tform_main.N69Click(Sender: TObject);
begin
MapCreateObject.ShowDialog := false;
MapCreateObject.Local := L_SQUARE;
MapCreateObject.ExCode := 10000167;
MapCreateObject.DrawMode := DM_POLYLINE;
MapCreateObject.Execute;
end;
шлейф.
Это так и должно быть?
Код:
procedure Tform_main.N69Click(Sender: TObject);
begin
MapCreateObject.ShowDialog := false;
MapCreateObject.Local := L_SQUARE;
MapCreateObject.ExCode := 10000167;
MapCreateObject.DrawMode := DM_POLYLINE;
MapCreateObject.Execute;
end;