ITabFormatNumericScale.TargetType

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

// Реализуем источник данных
Class DAdap: Object, ITabFormatDataAdapter
    Public Function get_Data(Row: integer; Column: integer): Variant;
    Begin
        Return Row * Column;
    End Function get_Data;
End Class DAdap;

Sub UserProc;
Var
    MB: IMetabase;
    RegRep: IPrxReport;
    Tab: IPrxTable;
    Sheet: ITabSheet;
    Range: ITabRange;
    FormCond: ITabFormatCondition;
    Scale: ITabFormatNumericScale;
Begin
    // Получим репозиторий
    MB := MetabaseClass.Active;
    // Получим регламентный отчет
    RegRep := MB.ItemById("REG_SCALE").Edit As IPrxReport;
    // Получим активный лист отчета
    Tab := RegRep.ActiveSheet As IPrxTable;
    // Получим таблицу листа отчета
    Sheet := Tab.TabSheet;
    // Получим диапазон ячеек
    Range := Sheet.ParseRange("A0:K25");
    // Добавим новый условный формат в коллекцию
    FormCond := Range.FormatConditions.Add;
    // Добавим источник данных
    FormCond.DataAdapter := New DAdap.Create;
    // Зададим тип условного формата - числовая шкала
    FormCond.Type := TabConditionType.NumericScale;
    // Получим специфические настройки условного формата
    Scale := FormCond.Details As ITabFormatNumericScale;
    // Будем использовать автоматические значения
    Scale.UseAutoValues := True;
    // Стартовое значение для размера шрифта
    Scale.StartValue := 7;
    // Конечное значение для размера шрифта
    Scale.EndValue := 20;
    // Использовать числовую шкалу будем для размера шрифта
    Scale.TargetType := TabFormatNumericScaleTargetType.FontSize;
    // Сохраним изменения
    (Regrep As IMetabaseObject).Save;
End Sub UserProc;