IAdhocReport.InnerStyleSheet

Синтаксис

StyleSheet: IStyleSheet;

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

Описание

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

Комментарии

Внутренняя таблица стилей позволяет хранить собственные стили аналитической панели. Также для работы может быть подключена внешняя таблица стилей. Для этого используйте свойство IAdhocReport.StyleSheet.

Пример

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

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

Sub UserProc;
Var
    MB: IMetabase;
    AdhocReport: IAdhocReport;
    StyleSheet: IStyleSheet;
    Style: IStyleContainer;
    TabSt: ITabCellStyle;
Begin
    MB := MetabaseClass.Active;
    AdhocReport := MB.ItemById("DASHBOARD").Edit As IAdhocReport;
    StyleSheet := AdhocReport.InnerStyleSheet;
    StyleSheet.Clear;
    Style := StyleSheet.Add;
    // Новый стиль
    TabSt := New TabCellStyle.Create;
    TabSt.Font.Name := "Times New Roman";
    TabSt.Font.Size := 16;
    TabSt.Font.Color := GxColor.FromName("Red");
    // Сохранение стиля
    (TabSt As IStyledEntity).SaveStyleToContainer(Style);
    (AdhocReport As IMetabaseObject).Save;
End Sub UserProc;

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

Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    AdhocReport: IAdhocReport;
    StyleSheet: IStyleSheet;
    Style: IStyleContainer;
    TabSt: ITabCellStyle = New TabCellStyleClass();
    GxColor: GxColorClassClass = New GxColorClassClass();
Begin
    MB := Params.Metabase;
    AdhocReport := MB.ItemById["DASHBOARD"].Edit() As IAdhocReport;
    StyleSheet := AdhocReport.InnerStyleSheet;
    StyleSheet.Clear();
    Style := StyleSheet.Add(0, "");
    // Новый стиль
    TabSt.Font.Name := "Times New Roman";
    TabSt.Font.Size := 16;
    TabSt.Font.Color := GxColor.FromName("Red");
    // Сохранение стиля
    (TabSt As IStyledEntity).SaveStyleToContainer(Style);
    (AdhocReport As IMetabaseObject).Save();
End Sub;

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

См. также:

IAdhocReport