ITabFormatCondition.AppliedRange

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

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    TSheet: ITabSheet;
    Range: ITabRange;
    FormCond: ITabFormatCondition;
    ValFormat: ITabFormatCellContent;
    Style: ITabCellStyle;
    Format: ITabFormatConditions;
Begin
    // Добавим в таблицу значения
    TSheet:= UiTabSheet1.TabSheet;
    TSheet.Cell(0, 0).Value := 5;
    TSheet.Cell(1, 0).Value := 6;
    TSheet.Cell(2, 0).Value := 2;
    TSheet.Cell(3, 0).Value := 7;
    // Выделим столбец с добавленными значениями
    TSheet.View.Selection.SelectColumns;
    // Добавим условное форматирование для выделенных значений
    TSheet := TabSheetBox1.Source.GetTabSheet;
    Range := TSheet.View.Selection.Range;
    FormCond := Range.FormatConditions.Add;
    FormCond.Type := TabConditionType.CellContent;
    ValFormat := FormCond.Details As ITabFormatCellContent;
    // Зададим условие «значение ячейки больше пяти»
    ValFormat.ContentType := TabFormatContentType.CellValue;
    ValFormat.ValueCondition := TabConditionCellContentValue.Above;
    ValFormat.CellValue := 5;
    // Создадим стиль для ячеек, в которых выполняется условие
    Style := New TabCellStyle.Create;
    Style.BackgroundColor := GxColor.FromName("Yellow");
    ValFormat.Style := Style;
    // Определим адреса ячеек, в которых выполняется условие
    Format := Range.FormatConditions;
    FormCond := Format.Item(0);
    Memo1.Text := FormCond.AppliedRange.Address;
End Sub Button1OnClick;