ExpanderPosition: Integer;
The ExpanderPosition property determines expander position for dimensions.
If the ExpanderPosition property is used, expander position changes to fixed. As a value, specify number of the column, which will contain expanders.
Executing the example requires that the repository contains an express report with the EXP_REP_EP identifier; the express report must contain a table visualizer with data.
Add links to the Dimensions, Express, Metabase, Pivot system assemblies.
Sub UserProc;
Var
mb: IMetabase;
Report: IEaxAnalyzer;
Pivot: IPivot;
PivotDim: IPivotDimension;
HeadSets: IDataAreaHeaderSettingsBase;
Grid: IEaxGrid;
DimSettings: IEaxGridDimensionSettings;
Begin
// Get current repository
mb := MetabaseClass.Active;
// Get express report
Report := mb.ItemById("EXP_REP_EP").Edit As IEaxAnalyzer;
// Get object used to create data table
Pivot := Report.Pivot;
// Get the first dimension in the table sidehead
PivotDim := Pivot.LeftHeader.PivotDim(0);
HeadSets := PivotDim As IDataAreaHeaderSettingsBase;
// Get table
Grid := Report.Grid;
// Determine that dimension elements are displayed as hyperlinks
Grid.ViewSettings.HyperlinkAsText := False;
// Get settings of the first dimension in table sidehead
DimSettings := Grid.ViewSettings.GetViewSettings(HeadSets) As IEaxGridDimensionSettings;
// Set expander position
DimSettings.ExpanderPosition := 1;
// Set indent position
DimSettings.HierarchyIndentPosition := 2;
// Set indent size
DimSettings.HierarchyIndent := 6;
// Save changes in report
(Report As IMetabaseObject).Save;
End Sub UserProc;
After executing the example, expander and indent positions and indent size are changed in the express report.
See also: