ExpanderPosition: Integer;
ExpanderPosition: integer;
The ExpanderPosition property determines expander position for dimensions.
If the ExpanderPosition property is used, expander position changes to fixed.
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.
The requirements and result of the Fore.NET Example execution match with those in the Fore Example.
Imports Prognoz.Platform.Interop.Express;
Imports Prognoz.Platform.Interop.ForeSystem;
Imports Prognoz.Platform.Interop.Pivot;
Imports Prognoz.Platform.Interop.Tab;
…]
Public Shared Sub Main(Params: StartParams);
Var
mb: IMetabase;
Report: IEaxAnalyzer;
Pivot: IPivot;
PivotDim: IPivotDimension;
HeadSets: IDataAreaHeaderSettingsBase;
Grid: IEaxGrid;
DimSettings: IEaxGridDimensionSettings;
Begin
// Get current repository
mb := Params.Metabase;
// 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;
See also: