Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.06.06;
Скачать: CL | DM;

Вниз

Нарисовать объект на карте в ГИС ИнГео   Найти похожие ветки 

 
Иван Р.   (2004-05-20 01:30) [0]

Здравствуйте. Не могу никак нарисовать объект на карте в ИнГео, может я чего не так делаю, посмотрите:
Const
   idStyle:=’0001000004BD’;  //  Стиль
   idLayer:="0001000004BB";   // Слой

Var
       IdObj : TM2ID;    
       fContour: IM2Contour;  
       aShapeList: IM2ShapeList;
       x1,y1,x2,y2,x0,y0:double;

Begin
   x0:=1000;           // Вот с такими значениями X и Y  
   y0:=1000;          //  (и вообще с целочислен. знач.)   ничего не
   x1:=1500;          //  происходит, а когда им присваиваешь перемен-
   y1:=3300;          //   ные (real) – прога ругается, либо рисует ерунду.  
   x2:=4000;            
   y2:=-1200;
   fContour:=gAddOn.MapObjects.CreateContour;
   fContour.i_AddCommand(M2MoveToCommand(M2Point(x0,y0)));
   fContour.i_AddCommand(M2LineToCommand(M2Point(x1,y1)));
   fContour.i_AddCommand(M2ArcToCommand(M2Point(x2,y2),-0.45));
   fContour.i_AddCommand(M2CloseByLineCommand);
   aShapeList:=gAddOn.MapObjects.CreateShapeList;
   aShapeList.i_Add(fcontour,idStyle);
   IdObj:=gAddOn.MapObjects.AddObject(IdLayer,aShapeList);
end;  

TM2ID; IM2Contour; IM2ShapeList – из M2Addon.

P.S. Система W-s XP, Delphi 5, ИнГео 3.6.0.234


 
Германн ©   (2004-05-20 02:30) [1]

Да, давно тут не был ShaggyD...


 
Andrey007   (2004-05-21 15:09) [2]

Типа, не знает ли кто ИнГео??


 
имя   (2004-05-21 19:27) [3]

Удалено модератором



Страницы: 1 вся ветка

Текущий архив: 2004.06.06;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.043 c
14-1084700593
NOD
2004-05-16 13:43
2004.06.06
Отключение флэша в IE


11-1074954024
avakss
2004-01-24 17:20
2004.06.06
KOL Add dpk


3-1083317610
PalladinA
2004-04-30 13:33
2004.06.06
Зависит ли работа BDE от установленной версии Windows?


4-1083428532
Vin_Ghost
2004-05-01 20:22
2004.06.06
Создание полнокранного приложения


1-1085323590
Jymmi
2004-05-23 18:46
2004.06.06
String[n] & ShortString