Расширенное управление надписью

Kostya_LeoG, добрый день!
надписи делаются на все объекты одного типа в структуре, как же можно скрыть элемент надписи для одного определенного объекта. Это надо тогда выдумывать надпись, состоящую из двух различных надписей. Скрывать надпись можно из контекстного меню в окне "Рабочее место", но на все объекты данного типа.

Программно видимость из объектной модели сделаем, раз из оболочки можно. А вот менять точки на запятые не обещаем.

Картинку пришлите или лучше пример со слоем

Здравствуйте. Спасибо за добавленное свойство для управления видимостью надписи из программы.

Можно полностью программно. Создаете LabelLayer, заполняете свойства, создаете LabelField, заполняете свойства и добавляете в коллекцию LabelLayer.LabelFields.AddItem
Когда все заполнено Добавляете вариант надписи в слой Layer.LabelLayers.AddItem либо через Layer.LabelLayers.SetLabelLayer (http://politerm.com/zuludoc/zuluax/LabelLayers_cls.htm)

Нужно имя поля задавать. В общих чертах так для участков тепловой сети (тип = 6) для поля длина ("L"):

Dim L As LabelLayer
Dim F As LabelField
Dim id As Long

Set L = New LabelLayer
Set F = New LabelField

L.BaseID = MapCtrl1.Map.Layers.Active.ObjectTypes.Item(6).BaseID

F.FieldName = "L"

L.LabelFields.AddItem F

L.UserName = "Lengths"
L.TypeID = 6

id = MapCtrl1.Map.Layers.Active.LabelLayers.SetLabelLayer(-1, L, True, True, 0, 0, 0)

MapCtrl1.Map.Layers.Active.LabelLayers.ItemById(id).Enable = True

Можно.

Dim L As LabelLayer

Set L = MapCtrl1.Map.Layers.Active.LabelLayers.ItemById(1)

Dim F1 As LabelField
'Получили существующее поле
Set F1 = L.LabelFields.Item(0)
'Добавили перенос строки
F1.LineBreak = True

'Обновили поле
L.LabelFields.RemoveItem 0
L.LabelFields.InsertItem 0, F1

'Добавили еще одно поле
Dim F As LabelField
Set F = New LabelField
F.FieldName = "Dpod"
L.LabelFields.AddItem F

'Обновили вариант надписей
MapCtrl1.Map.Layers.Active.LabelLayers.SetLabelLayer 1, L, False, True, 0, 0, 0

Здравствуйте. Можно ли программно изменить префикс (постфикс) для существующей надписи, например, так tmpLabelLayer.LabelFields.Item[i].Prefix := '+'; или для этого нужно каждый раз обновлять все поля LabelFields, как в предыдущем примере

Цитата:

---

Dim L As LabelLayer
Dim F1 As LabelField
.....
L.LabelFields.RemoveItem 0
L.LabelFields.InsertItem 0, F1

---

, тоже, наверное, относится и к настройке/изменению шрифтов в надписи. И еще: при создании надписи программно, видимо, по умолчанию настраивается ориентация, доступно только выравнивание, например так - tmpLabelLayer.align := eNorth; (Над объектом), а опция "Вдоль линии" недоступна для программного изменения.

Спасибо за разъяснение. Если сделаете

Цитата:

---

Для LabelFields можем добавить UpdateItem, чтобы Remove+Insert не вызывать.

---

, то будет здорово...

Подскажите еще пожалуйста, почему не присваивается префикс, постфикс, шрифт, размер шрифта и перенос строки от надписи, которая берется в качестве шаблона? Такое ощущение что RemoveItem/InsertItem не срабатывают. Привожу код ниже

---

lField:ILabelField;
lFields:ILabelFields;
...............
lFields := Layer.LabelLayer.LabelFields;
cnt := lFields.Count;
for i := 0 to cnt -1 do
begin
tmpLField[i] := CoLabelField.Create;
lField := lFields.Item[i];
tmpLField[i].FieldName := 'LabelPar' + IntToStr(1+i);
tmpLField[i].NumDigits := lField.NumDigits;
tmpLField[i].FontColor := lField.FontColor;
tmpLField[i].Prefix := lField.Prefix;
tmpLField[i].Postfix := lField.Postfix;
tmpLField[i].Font := lField.Font;
cnt > 1 then tmpLField[0].LineBreak := true;
tmpLabelLayer.LabelFields.RemoveItem(i); //удаляем старое поле и на его место новое
tmpLabelLayer.LabelFields.InsertItem(i,tmpLField[i]);

end;

---

Спасибо, вроде бы работает... tmpLField[i].Prefix := lField.Prefix; ShowMessage(tmpLField[i].Prefix);