Здрасте!
Я пишу диплом и использую компоненты Zulu.
Но у меня воникла проблема:
у меня есть StringGrid с координатами
объекта, мне нужно жобавить его на карту
вот код на delphi
_______________________________
procedure TDraw.Add;
var
i:Integer;
CoordX,CoordY:Array of Double;
elems:Elements;
elem:Element;
cn:Contour;
st:IElemStyle;
Poly:IPolyLine;
begin
st.PatColor:=RGB(255,0,0);
St.BorderStyle:=0;
St.BorderWidth:=1 ;
St.BorderColor:=RGB(0,0,255);
Poly.AddPoint(1000,3000);
Poly.AddPoint(6000,8000);
Poly.AddPoint(3000,3000);
MapCtrl1.Map.Layers.Active.AddPolyLine(Poly,St,-1,-1);
end;
_____________________________________
и у меня сыдается ошибка, может я чего то не то сделал!
Вы не могли бы обяснить как мне добавить
эту полилинию на карту используя массив точек!
Зарание благодарен!
P.S. Было бы очень замечательно, если было бы побольше примеров
для delphi. А компонент просто Супер!
P.S.S. И еще! Как сделать чтобы при нажатии на кнопке измерения расстояния
у меня в статус баре показывалось расстояние!
Я пишу диплом и использую компоненты Zulu.
Но у меня воникла проблема:
у меня есть StringGrid с координатами
объекта, мне нужно жобавить его на карту
вот код на delphi
_______________________________
procedure TDraw.Add;
var
i:Integer;
CoordX,CoordY:Array of Double;
elems:Elements;
elem:Element;
cn:Contour;
st:IElemStyle;
Poly:IPolyLine;
begin
st.PatColor:=RGB(255,0,0);
St.BorderStyle:=0;
St.BorderWidth:=1 ;
St.BorderColor:=RGB(0,0,255);
Poly.AddPoint(1000,3000);
Poly.AddPoint(6000,8000);
Poly.AddPoint(3000,3000);
MapCtrl1.Map.Layers.Active.AddPolyLine(Poly,St,-1,-1);
end;
_____________________________________
и у меня сыдается ошибка, может я чего то не то сделал!
Вы не могли бы обяснить как мне добавить
эту полилинию на карту используя массив точек!
Зарание благодарен!
P.S. Было бы очень замечательно, если было бы побольше примеров
для delphi. А компонент просто Супер!
P.S.S. И еще! Как сделать чтобы при нажатии на кнопке измерения расстояния
у меня в статус баре показывалось расстояние!