RUS  ENG 

Delphi и Добавление Polyline

Страницы: 1
RSS
Delphi и Добавление Polyline
 
Здрасте!
Я пишу диплом и использую компоненты 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. И еще! Как сделать чтобы при нажатии на кнопке измерения расстояния
у меня в статус баре показывалось расстояние!
 
1. Объект PolyLine не создан. Просто заведена переменная Poly , хранящая ссылку на IPolyLine, и все. Надо еще Poly := CoPolyLine.Create; выполнить. А дальше уже с этим объектом выполнять Poly.Add(...).
2. Тоже и с "St" (IElemStyle) - создать COM-объект: St:=CoElemStyle.Create;
3. Слой, куда добавляется объект создан и добавлен в карту ? А то MapCtrl1.Map.Layers.Active вернет пустую ссылку, если слоев никаких нет -> ошибка.
4. Заполнить Polyline массивом точек: см. PolyLine.Fill. Дальше - Layer.AddPolyLine
5. Побольше примеров ? Надо бы, да руки не доходят...
6. Длину в статусбар так: Поместить компонент ZuluCtrl и отлавливать событие OnSetStatus: посылаемые текст отображать в статусбаре.
 
Спасибо большое за совет!
Блин, так то ведь оно есть и так!
Просто наверно уже запрограмировался!
Еще раз большое спасибо, диплом двинулся намного с места!
Щас буду делать сайт и потом скажу адрес!
 
Как сделаешь, сообщи, конечно, адрес. Интересно посмотреть.
Страницы: 1