Здравствуйте!
Мы вместо имеющейся у нас ранее версии GIS ToolKit 14.1 Free
получили GIS ToolKit 14.2 Free
Похоже, что в ней изменен порядок создания подобъекта.
У нас ранее было так и работало:
// Создание подобъекта
n := MapObj2.Metric.SubObjCount;
n := MapObj2.Metric.CreateSubject;
pc := MapObj1.Metric.PointCount[0];
For i := 1 to pc do
begin
px := MapObj1.Metric.Points[0,i].X;
py := MapObj1.Metric.Points[0,i].Y;
mapAppendPointPlane(MapObj2.ObjHandle,px,py,n);
end;
mapCommitObject(form_main.MapObj2.ObjHandle);
form_main.MapObj1.Style := OS_NORMAL;
form_main.MapObj1.Repaint;
form_main.MapObj2.Style := OS_NORMAL;
form_main.mvMap.Repaint;
В версии 14.2 это перестало работать.
Вместо создания подобъекта по шаблону в редактируемом объекта,
вырезается в редактируемом объекта вся площадь по контуру.
Как теперь создаем подобъект,
просим подсказать,
что в вышеприведенном исходном коде не правильно?
Мы вместо имеющейся у нас ранее версии GIS ToolKit 14.1 Free
получили GIS ToolKit 14.2 Free
Похоже, что в ней изменен порядок создания подобъекта.
У нас ранее было так и работало:
// Создание подобъекта
n := MapObj2.Metric.SubObjCount;
n := MapObj2.Metric.CreateSubject;
pc := MapObj1.Metric.PointCount[0];
For i := 1 to pc do
begin
px := MapObj1.Metric.Points[0,i].X;
py := MapObj1.Metric.Points[0,i].Y;
mapAppendPointPlane(MapObj2.ObjHandle,px,py,n);
end;
mapCommitObject(form_main.MapObj2.ObjHandle);
form_main.MapObj1.Style := OS_NORMAL;
form_main.MapObj1.Repaint;
form_main.MapObj2.Style := OS_NORMAL;
form_main.mvMap.Repaint;
В версии 14.2 это перестало работать.
Вместо создания подобъекта по шаблону в редактируемом объекта,
вырезается в редактируемом объекта вся площадь по контуру.
Как теперь создаем подобъект,
просим подсказать,
что в вышеприведенном исходном коде не правильно?