IPrxDataIslandDimensionLayoutNode.Include

Синтаксис

Include: TriState;

Описание

Свойство Include определяет, выводить ли элемент заголовка в область данных.

Пример

Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с идентификатором Button1, компонента UiReport с идентификатором UiReport1, являющимся источником данных для компонента ReportBox. В репозитории должен располагаться регламентный отчет с идентификатором OBJ_REPORT, содержащий область данных.

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);

Var

MB: IMetabase;

ReportObj: IMetabaseObject;

Report: IPrxReport;

DIs: IPrxDataIslands;

DI: IPrxDataIsland;

Prop: IPrxDataIslandProperties;

Dim: IDimInstance;

DimProp: IPrxDataIslandDimension;

Layout: IPrxDataIslandDimensionLayout;

RN: IPrxDataIslandDimensionLayoutNodes;

Element, Child: IPrxDataIslandDimensionLayoutNode;

i: Integer;

Begin

MB := MetabaseClass.Active;

ReportObj := MB.ItemById("OBJ_REPORT").Edit;

Report := ReportObj 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.CustomLayout := True;

Layout := DimProp.Layout;

Layout.FitToSelection := False;

RN := Layout.RootNodes;

RN.Clear;

Element := RN.Add;

Element.DimElement(Dim) := 1;

Element.Caption := Dim.Elements.Name(1);

Element.Include := TriState.OnOption;

For i := 2 To 5 Do

Child := Element.Children.Add;

Child.Caption := Dim.Elements.Name(i);

Child.DimElement(Dim) := i;

Child.Include := TriState.OnOption;

End For;

DI.Save;

ReportObj.Save;

UiReport1.Active := False;

UiReport1.Instance := ReportObj;

End Sub Button1OnClick;

После выполнения примера будет создан элемент произвольного заголовка, для которого будет создан ряд дочерних элементов. Все элементы заголовка всегда будут отображаться в области данных, первой в коллекции областей данных регламентного отчета. Наименования элементов заголовка совпадают с наименованиями элементов измерения.

См. также:

IPrxDataIslandDimensionLayoutNode