ExpanderPosition : Integer;
The ExpanderPosition property determines position of expanders in the list of additional names (headings).
The default property value is 0, and the expanders are located next to the main heading of the dimension.
Sub main;
Var
MB: IMetabase;
MObj: IMetabaseObject;
Report: IPrxReport;
DIs: IPrxDataIslands;
DI: IPrxDataIsland;
Prop: IPrxDataIslandProperties;
Dim : IDimInstance;
DimProp : IPrxDataIslandDimension;
Begin
MB := MetabaseClass.Active;
MObj := MB.ItemById("Report").Edit;
Report := MObj As IPrxReport;
DIs := Report.DataIslands;
DI := DIs.Item(0).Edit;
Prop := DI.Properties;
Dim := DI.Slice.LeftHeader.Item(0).Dimension;
DimProp := Prop.Dimension(Dim.Dimension);
DimProp.NamingCount := 2;
DimProp.Naming(1).Expression.AsString := "D_TO1.TERRID";
DimProp.ExpanderPosition := 1;
DI.Save;
MObj.Save;
End Sub main;
After executing the example the expanders are moved to the additional title.
Report - identifier of the regular report, which sheet contains a data area.
See also: