IPrxTableIslandGrouping.Format

Copy example

Sub UserProc;
Var
    MB: IMetabase;
    Report: IPrxReport;
    TabIs: IPrxTableIslands;
    TI: IPrxTableIsland;
    Grs: IPrxTableIslandGroupings;
    Gr: IPrxTableIslandGrouping;
    LayFormat: IPrxTableIslandFormat;
    Format: IPrxFormatConditions;
    TabFormat: ITabFormatCondition;
    ValFormat: ITabFormatValues;
Begin
    MB := MetabaseClass.Active;
    Report := MB.ItemById("RR").Edit As IPrxReport;
    TabIs := Report.TableIslands;
    TI := TabIs.Item(0);
    TI := TI.Edit;
    Grs := TI.Groupings;
    Gr := Grs.Item(0);
    LayFormat := Gr.Format;
    Format := LayFormat.Conditions;
    TabFormat := Format.Add;
    TabFormat.Type := TabConditionType.Values;
    ValFormat := TabFormat.Details As ITabFormatValues;
    //two-color gradient for cell formatting
    ValFormat.Style := TabFormatValuesStyle.TwoColorScale;
    //set up minimum value
    ValFormat.MinValueType := TabFormatValueType.Lowest;
    ValFormat.MinValueColor := GxColor.FromName("Red");
    //set up maximum value
    ValFormat.MaxValueType := TabFormatValueType.Highest;
    ValFormat.MaxValueColor := GxColor.FromName("Blue");
    TI.Save;
    (Report As IMetabaseObject).Save;
End Sub UserProc;