FormatConditions: ITabFormatConditions;
Свойство FormatConditions возвращает коллекцию условных форматов, применяемых к каким-либо диапазонам ячеек таблицы.
Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием «Button1», компонента TabSheetBox с наименованием «TabSheetBox1», и какого-либо компонента, являющегося источником данных для «TabSheetBox1».
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
Tab: ITabSheet;
Format: ITabFormatCondition;
i: Integer;
Begin
Tab := TabSheetBox1.Source.GetTabSheet;
For i := 0 To Tab.FormatConditions.Count - 1 Do
Format := Tab.FormatConditions.Item(i);
Debug.Write("Диапазон: " + Format.Range.Address + " Условие: ");
Select Case Format.Type As Integer
Case 0: Debug.WriteLine("Форматирование на основе значений ячеек");
Case 1: Debug.WriteLine("Форматирование ячейки с определенным значением");
Case 2: Debug.WriteLine("Форматирование ячеек с наибольшими/наименьшими значениями");
Case 3: Debug.WriteLine("Форматирование ячеек со значениями выше/ниже среднего");
Case 4: Debug.WriteLine("Форматирование ячеек с уникальными/дублирующимися значениями");
Case 5: Debug.WriteLine("Форматирование ячеек, удовлетворяющих формуле");
End Select;
End For;
End Sub Button1OnClick;
После выполнения примера при нажатии на кнопку в консоль будет выведен список, содержащий наименование диапазона ячеек и тип условного форматирования, применяемый к данному диапазону таблицы.
См. также: