IDataAreaOwner.OwnerInnerStyleSheet

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

Sub UserProc;
Var
    mb: IMetabase;
    Report: IAdhocReport;
    DsoObj: IAdhocDataSourceObject;
    DaOwner: IDataAreaOwner;
    Style: IStyleSheet;
    StyleCont: IStyleContainer;
    StEntity: IStyledEntity;
Begin
    // Получаем текущий репозиторий
    mb := MetabaseClass.Active;
    // Получаем аналитическую панель
    Report := mb.ItemById("DASHBOARD_STYLE").Edit As IAdhocReport;
    // Получаем источник данных визуализатора
    DsoObj := Report.DataSourceObjects.Item(0);
    // Получаем объект для работы с областью данных
    DaOwner := DsoObj.GetSourceObject As IDataAreaOwner;
    // Получаем внутреннюю таблицу стилей
    Style := DaOwner.OwnerInnerStyleSheet;
    // Добавляем контейнер стилей в таблицу стилей
    StyleCont := Style.Add(0, "");
    // Получаем стиль оформления визуализатора
    StEntity := (DaOwner As IEaxAnalyzer).Chart.Chart As IStyledEntity;
    // Сохраняем стиль оформления визуализатора в контейнер стилей
    StEntity.SaveStyleToContainer(StyleCont);
    // Сохраняем изменения
    (Report As IMetabaseObject).Save;
End Sub UserProc;