ExpanderPosition : Integer;
Свойство ExpanderPosition определяет позицию размещения экспандеров среди дополнительных наименований (заголовков).
По умолчанию свойство имеет значение «0» и экспандеры располагаются у основного заголовка измерения.
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;
После выполнения примера экспандеры будут перемещены к созданному дополнительному наименованию.
Report - идентификатор регламентного отчета, на листе которого расположена область данных.
См. также: