ITabFormatValues.IconType

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

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    Tab: ITabSheet;
    Range: ITabRange;
    FormCond: ITabFormatCondition;
    ValFormat: ITabFormatValues;
Begin
    Tab := TabSheetBox1.Source.GetTabSheet;
    Range := Tab.View.Selection.Range;
    FormCond := Range.FormatConditions.Add;
    FormCond.Type := TabConditionType.Values;
    ValFormat := FormCond.Details As ITabFormatValues;
    //настройка формата отображения на основе значения ячеек
    ValFormat.Style := TabFormatValuesStyle.IconSets;
    ValFormat.IconType := TabConditionIconType.CircleFillC;
    // 1 часть
    ValFormat.PointType(0) := TabFormatValueType.Percent;
    ValFormat.PointValue(0) := 15;
    ValFormat.PointCondition(0) := TabConditionIconRangeCond.AboveEqual;
    // 2 часть
    ValFormat.PointType(1) := TabFormatValueType.Percent;
    ValFormat.PointValue(1) := 35;
    ValFormat.PointCondition(1) := TabConditionIconRangeCond.AboveEqual;
    // 3 часть
    ValFormat.PointType(2) := TabFormatValueType.Percent;
    ValFormat.PointValue(2) := 55;
    ValFormat.PointCondition(2) := TabConditionIconRangeCond.AboveEqual;
    // 4 часть
    ValFormat.PointType(3) := TabFormatValueType.Percent;
    ValFormat.PointValue(3) := 75;
    ValFormat.PointCondition(3) := TabConditionIconRangeCond.AboveEqual;
End Sub Button1OnClick;