IEaxTableStyle.InternalFormatConditions

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

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    Expr: IEaxAnalyzer;
    Grid: IEaxGrid;
    GridStyle: IEaxTableStyle;
    Conditions: ITabFormatConditions;
    Condition: ITabFormatCondition;
    ValFormat: ITabFormatAverage;
    Style: ITabCellStyle;
Begin
    // Стиль для условного формата
    Style := New TabCellStyle.Create;
    Style.BackgroundColor := GxColor.FromName("Yellow");
    MB := MetabaseClass.Active;
    MObj := MB.ItemById("EXPRESS_REPORT").Edit;
    Expr := MObj As IEaxAnalyzer;
    Grid := Expr.Grid;
    GridStyle := Grid.Style;
    Conditions := GridStyle.InternalFormatConditions;
    Condition := Conditions.Add;
    Condition.Type := TabConditionType.Average;
    ValFormat := Condition.Details As ITabFormatAverage;
    ValFormat.Style := Style;
    ValFormat.Type := TabFormatAverageType.EqualAbove;
    MObj.Save;
End Sub UserProc;