Установили способ отображение объектов на карте с узлами.
При масштабировании карты их не видно.
Как изменить размер узлов.
Попробовал изменить их в файле mapedmet.pas
//Процедура отображения объекта
//========================================================== =======
procedure TMapEditMetric.IndRect;
var
dp1 : TDOUBLEPOINT;
mapwin1 : TMapViewWindow;
begin
// узнаем куда идет отображение
mapwin1 := TMapViewWindow(GetMapViewWindow);
if (mapwin1 = nil)// or (FMapView = nil)
then exit;
// определим координаты верх. лев. угла окна
// dp1.X := mapwin1.HorzScrollBar.Position; 11/11/2005
// dp1.Y := mapwin1.VertScrollBar.Position;
dp1.X := mapwin1.MapLeft;
dp1.Y := mapwin1.MapTop;
mapwin1.ConvertMetric(dp1.X, dp1.Y, PP_PICTURE, PP_PLANE);
// Отобразить объект на карте
mapViewMapObject(mapwin1.MapHandle, mapwin1.Handle, dp1, FImageParm, FObjTemp, cPP_PLANE);
// Надо дорисовать узлы?
if FShowNodes
then begin
FNodeCircle.Radius := 100000;
FNodeCircle.Color := RGB(10,10,10);
mapViewMapObject(mapwin1.MapHandle, mapwin1.Handle, dp1, FNodeParm, FObjTemp, cPP_PLANE);
FNodeCircle.Radius := 100000;
FNodeCircle.Color := RGB(10,10,10);
mapViewMapObject(mapwin1.MapHandle, mapwin1.Handle, dp1, FNodeParm, FObjTemp, cPP_PLANE);
end;
end;
Перекомпилировал программу,
ничего не изменилось.
Как можно изменить размер узлов,
для редактирования объектов?
При масштабировании карты их не видно.
Как изменить размер узлов.
Попробовал изменить их в файле mapedmet.pas
//Процедура отображения объекта
//==========================================================
procedure TMapEditMetric.IndRect;
var
dp1 : TDOUBLEPOINT;
mapwin1 : TMapViewWindow;
begin
// узнаем куда идет отображение
mapwin1 := TMapViewWindow(GetMapViewWindow);
if (mapwin1 = nil)// or (FMapView = nil)
then exit;
// определим координаты верх. лев. угла окна
// dp1.X := mapwin1.HorzScrollBar.Position; 11/11/2005
// dp1.Y := mapwin1.VertScrollBar.Position;
dp1.X := mapwin1.MapLeft;
dp1.Y := mapwin1.MapTop;
mapwin1.ConvertMetric(dp1.X, dp1.Y, PP_PICTURE, PP_PLANE);
// Отобразить объект на карте
mapViewMapObject(mapwin1.MapHandle, mapwin1.Handle, dp1, FImageParm, FObjTemp, cPP_PLANE);
// Надо дорисовать узлы?
if FShowNodes
then begin
FNodeCircle.Radius := 100000;
FNodeCircle.Color := RGB(10,10,10);
mapViewMapObject(mapwin1.MapHandle, mapwin1.Handle, dp1, FNodeParm, FObjTemp, cPP_PLANE);
FNodeCircle.Radius := 100000;
FNodeCircle.Color := RGB(10,10,10);
mapViewMapObject(mapwin1.MapHandle, mapwin1.Handle, dp1, FNodeParm, FObjTemp, cPP_PLANE);
end;
end;
Перекомпилировал программу,
ничего не изменилось.
Как можно изменить размер узлов,
для редактирования объектов?