Добрый день!
Есть задача программно расставить запорную арматуру на слое теплоснабжения.
Zulu 6.0, Delphi 2007.
Если вставляю символьный объект через интерфейс Zulu, все отлично работает.
Программно - ничего не происходит, никаких сообщений об ошибке тоже нет.
Не подскажете, в чем может быть причина?
Спасибо.
Код следующий:
var
x,y: Double; // координаты внедряемого символа
id,elType,elMode,Number: Integer; // id - ключ участка, который разбивается арматурой
// elType - тип вставляемого символьного элемента
// elMode - режим вставляемого элемента
// Number - номер сегмента участка
begin
MapCtrl1.Map.Layers.Activate(IndexLayerTeplo); // активируем слой теплоснабжения
MapCtrl1.Map.Layers.Active.StartEdit; // делаем слой редактируемым
...
MapCtrl1.Map.Layers.Active.InsertSymbol(id,Number,0,x,y,elType,elMode);
...
MapCtrl1.Map.Layers.Active.StopEdit;
end;
Есть задача программно расставить запорную арматуру на слое теплоснабжения.
Zulu 6.0, Delphi 2007.
Если вставляю символьный объект через интерфейс Zulu, все отлично работает.
Программно - ничего не происходит, никаких сообщений об ошибке тоже нет.
Не подскажете, в чем может быть причина?
Спасибо.
Код следующий:
var
x,y: Double; // координаты внедряемого символа
id,elType,elMode,Number: Integer; // id - ключ участка, который разбивается арматурой
// elType - тип вставляемого символьного элемента
// elMode - режим вставляемого элемента
// Number - номер сегмента участка
begin
MapCtrl1.Map.Layers.Activate(IndexLayerTeplo); // активируем слой теплоснабжения
MapCtrl1.Map.Layers.Active.StartEdit; // делаем слой редактируемым
...
MapCtrl1.Map.Layers.Active.InsertSymbol(id,Number,0,x,y,elType,elMode);
...
MapCtrl1.Map.Layers.Active.StopEdit;
end;