IPrxDataIslandDimensionLayoutNode.Style

Синтаксис

Style: IPrxCellStyle;

Описание

Свойство Style определяет стиль оформления ячеек элементов.

Свойство является устаревшим, следует использовать ElementStyle.

Пример

Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием «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;

PrxStyele: IPrxCellStyle;

CellStyle: ITabCellStyle;

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;

CellStyle := New TabCellStyle.Create;

CellStyle.BackgroundColor := New GxColor.CreateARGB(255, 255, 0, 0);

CellStyle.Font.Bold := TriState.OnOption;

PrxStyele := Element.Style;

PrxStyele.Assign(CellStyle);

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