IDataAreaOwner.OwnerInnerStyleSheet

Синтаксис Fore

OwnerInnerStyleSheet: IStyleSheet;

Синтаксис Fore.NET

OwnerInnerStyleSheet: Prognoz.Platform.Interop.Drawing.StyleSheetClass;

Описание

Свойство OwnerInnerStyleSheet возвращает внутреннюю таблицу стилей объекта.

Комментарии

Для работы с внешней таблицей стилей используйте свойство IDataAreaOwner.OwnerStyleSheet.

Пример Fore

Для выполнения примера в репозитории предполагается наличие аналитической панели с идентификатором «DASHBOARD_STYLE». Данная панель должна содержать только визуализатор «Диаграмма».

Добавьте ссылки на системные сборки: Adhoc, Drawing, Express, Metabase.

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;

В результате выполнения примера во внутренней таблице стилей аналитической панели будет сохранен стиль оформления диаграммы.

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.

Imports Prognoz.Platform.Interop.AdHoc;
Imports Prognoz.Platform.Interop.Drawing;
Imports Prognoz.Platform.Interop.Express;
…

Public Shared Sub Main(Params: StartParams);
Var
    mb: IMetabase;
    Report: IAdhocReport;
    DsoObj: IAdhocDataSourceObject;
    DaOwner: IDataAreaOwner;
    Style: IStyleSheet;
    StyleCont: IStyleContainer;
    StEntity: IStyledEntity;
Begin
    // Получаем текущий репозиторий
    mb := Params.Metabase;
    // Получаем аналитическую панель
    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;

См. также:

IDataAreaOwner