ITabFormatConditions.Add

Copy example

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    Tab: ITabSheet;
    Range: ITabRange;
    Conds: ITabFormatConditions;
    Cond: ITabFormatCondition;
    ValFormat: ITabFormatCellContent;
    Style: ITabCellStyle;
Begin
    Style := New TabCellStyle.Create;
    Style.Font.Color := GxColor.FromName("White");
    Style.BackgroundBrush := New GxSolidBrush.Create(GxColor.FromName("Black"));
    Tab := TabSheetBox1.Source.GetTabSheet;
    // Get cell range
    Range := Tab.ParseRange("A0:D3");
    // Conditional formats of cell range
    Conds := Range.FormatConditions;
    // Disable the use of conditional formats
    Conds.BeginUpdate;
    Debug.WriteLine("Disable the use of conditional formats: " + Conds.IsInUpdate.ToString);
    // Add conditional format
    Cond := Conds.Add;
    Cond.Type := TabConditionType.CellContent;
    ValFormat := Cond.Details As ITabFormatCellContent;
    ValFormat.ContentType := TabFormatContentType.CellValue;
    ValFormat.ValueCondition := TabConditionCellContentValue.Above;
    ValFormat.CellValue := 50;
    ValFormat.Style := Style;
    //...
    // Further setup of other conditional formats
    //...
    // Apply changes in conditional formats
    Conds.EndUpdate;
End Sub Button1OnClick;