IAdhocReport.StyleSheet

Синтаксис

StyleSheet: IStyleSheet;

StyleSheet: Prognoz.Platform.Interop.Drawing.IStyleSheet;

Описание

Свойство StyleSheet определяет внешнюю таблицу стилей.

Комментарии

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

Пример

Для выполнения примера предполагается наличие в репозитории аналитической панели с идентификатором DASHBOARD и таблицы стилей с идентификатором GLOBAL_STYLE.

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

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    AdhocReport: IAdhocReport;
    StyleSheet: IStyleSheet;
Begin
    // Получим текущий репозиторий
    MB := MetabaseClass.Active;
    // Получим аналитическую панель
    MObj := MB.ItemById("DASHBOARD").Edit;
    AdhocReport := MObj As IAdhocReport;
    // Применим таблицу стилей
    StyleSheet := MB.ItemById("GLOBAL_STYLE").Bind As IStyleSheet;
    AdhocReport.StyleSheet := StyleSheet;
    // Сохраним отчет
    MObj.Save;
End Sub UserProc;

Imports Prognoz.Platform.Interop.AdHoc;
Imports Prognoz.Platform.Interop.Drawing;
Imports Prognoz.Platform.Interop.Metabase;

Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    AdhocReport: IAdhocReport;
    StyleSheet: StyleSheetClass;
Begin
    // Получим текущий репозиторий
    MB := Params.Metabase;
    // Получим аналитическую панель
    MObj := MB.ItemById["DASHBOARD"].Edit();
    AdhocReport := MObj As IAdhocReport;
    // Применим таблицу стилей
    StyleSheet := MB.ItemById["GLOBAL_STYLE"].Bind() As StyleSheetClass;
    AdhocReport.StyleSheet := StyleSheet;
    // Сохраним отчет
    MObj.Save();
End Sub;

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

См. также:

IAdhocReport