IPrxTableIslandFormat.Style

Копировать пример

Sub UserProc;
Var
    MB: IMetabase;
    Report: IPrxReport;
    TabIs: IPrxTableIslands;
    TI: IPrxTableIsland;
    Layout: IPrxTableIslandLayout;
    LayFormat: IPrxTableIslandFormat;
    Style: IPrxCellStyle;
Begin
    MB := MetabaseClass.Active;
    Report := MB.ItemById("RR").Edit As IPrxReport;
    TabIs := Report.TableIslands;
    TI := TabIs.Item(0);
    TI := TI.Edit;
    Layout := TI.Layout;
    LayFormat := Layout.Format;
    Style := LayFormat.Style;
    Style.BackgroundBrush := New GxSolidBrush.Create(GxColor.FromName("Red"));
    Style.Font.Bold := TriState.OnOption;
    Style.Font.Color := GxColor.FromName("Blue");
    TI.Save;
    (Report As IMetabaseObject).Save;
End Sub UserProc;