IStyledEntity.SaveStyleToContainer

Копировать пример

Sub UserProc;
Var
    Mb: IMetabase;
    StyleSheet: IStyleSheet;
    Container: IStyleContainer;
    Report: IEaxAnalyzer;
    Entity: IStyledEntity;
Begin
    // Получаем текущий репозиторий
    Mb := MetabaseClass.Active;
    // Получаем таблицу стилей
    StyleSheet := Mb.ItemById("STYLE_TB").Edit As IStyleSheet;
    // Получаем экспресс-отчет
    Report := Mb.ItemById("EAX_STYLE_MAP").Edit As IEaxAnalyzer;
    // Получаем стиль карты
    Entity := Report.MapChart.MapChart As IStyledEntity;
    // Выводим текстовую метку стиля в окно консоли
    Debug.WriteLine(Entity.ContainerTag);
    // Задаем тип используемой таблицы стилей
    Entity.SheetType := StyleSheetType.InternalObject;
    // Добавляем контейнер стилей в таблицу стилей
    Container := StyleSheet.Add;
    // Указываем ключ контейнера
    Entity.ContainerKey := Container.Key;
    // Задаем имя контейнера стилей
    Container.Name := "Стиль для карты из экспресс-отчета";
    // Выгружаем стиль карты в контейнер
    Entity.SaveStyleToContainer(container);
    // Сохраняем представление стиля
    Container.Preview.SaveToFile("C:\MapStylePreview.png");
    // Сохраняем таблицу стилей
    (StyleSheet As IMetabaseObject).Save;
End Sub UserProc;