IDataAreaOwner.OwnerInnerStyleSheet

Syntax

OwnerInnerStyleSheet: IStyleSheet;

Description

The OwnerInnerStyleSheet property returns internal styles table of the object.

Comments

To work with the external styles table, use the IDataAreaOwner.OwnerStyleSheet property.

Example

Executing the example requires that a repository contains dashboard with the DASHBOARD_STYLE identifier. This dashboard should contain only the Chart visualizer.

Add links to the Adhoc, Drawing, Express, Metabase system assemblies.

Sub UserProc;
Var
    mb: IMetabase;
    Report: IAdhocReport;
    DsoObj: IAdhocDataSourceObject;
    DaOwner: IDataAreaOwner;
    Style: IStyleSheet;
    StyleCont: IStyleContainer;
    StEntity: IStyledEntity;
Begin
    // Get current repository
    mb := MetabaseClass.Active;
    // Get dashboard
    Report := mb.ItemById("DASHBOARD_STYLE").Edit As IAdhocReport;
    // Get visualizer data source
    DsoObj := Report.DataSourceObjects.Item(0);
    // Get object to work with data area
    DaOwner := DsoObj.GetSourceObject As IDataAreaOwner;
    // Get internal styles table
    Style := DaOwner.OwnerInnerStyleSheet;
    // Add styles container to styles table
    StyleCont := Style.Add(0, "");
    // Get visualizer formatting style
    StEntity := (DaOwner As IEaxAnalyzer).Chart.Chart As IStyledEntity;
    // Save visualizer formatting style to the styles container
    StEntity.SaveStyleToContainer(StyleCont);
    // Save changes
    (Report As IMetabaseObject).Save;
End Sub UserProc;

After executing the example the chart formatting style is saved in the internal styles table of the dashboard.