IPrxTableIslandLayout.Format

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

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    Report: IPrxReport;
    TabIs: IPrxTableIslands;
    TI: IPrxTableIsland;
    Layout: IPrxTableIslandLayout;
    LayFormat: IPrxTableIslandFormat;
    Format: IPrxFormatConditions;
    TabFormat: ITabFormatCondition;
    ValFormat: ITabFormatValues;
Begin
    MB := MetabaseClass.Active;
    MObj := MB.ItemById("REPORT").Edit;
    Report := MObj As IPrxReport;
    TabIs := Report.TableIslands;
    TI := TabIs.Item(0);
    TI := TI.Edit;
    Layout := TI.Layout;
    LayFormat := Layout.Format;
    Format := LayFormat.Conditions;
    TabFormat := Format.Add;
    TabFormat.Type := TabConditionType.Values;
    ValFormat := TabFormat.Details As ITabFormatValues;
    //двухцветный градиент для форматирования ячеек
    ValFormat.Style := TabFormatValuesStyle.TwoColorScale;
    //настройка минимального значения
    ValFormat.MinValueType := TabFormatValueType.Lowest;
    ValFormat.MinValueColor := GxColor.FromName("Red");
    //настройка максимального значения
    ValFormat.MaxValueType := TabFormatValueType.Highest;
    ValFormat.MaxValueColor := GxColor.FromName("Blue");
    TI.Save;
    MObj.Save;
End Sub UserProc;