IEaxTableStyle.ABCBottomStyle

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

Sub UserProc;
Var
    Metabase: IMetabase;
    Analyzer: IEaxAnalyzer;
    Pivot: IPivot;
    ColumnSettings: IPivotParetoSettings;
    BottomSettings: IPivotParetoSettingsItem;
    TopSettings: IPivotParetoSettingsItem;
    Grid: IEaxGrid;
    Style: IEaxTableStyle;
    AbcTopStyle: ITabCellStyle;
    AbcBottomStyle: ITabCellStyle;
    TopBrush: GxSolidBrush;
    BottomBrush: GxSolidBrush;
    TopColor: IGxColor;
    BottomColor: IGxColor;
Begin
    // Получим репозиторий
    Metabase := MetabaseClass.Active;
    // Получим экспресс-отчёт
    Analyzer := Metabase.ItemById("EXPRESS_IPIVOTPARETOSETTENGSITEM").Edit As IEaxAnalyzer;
    // Получим таблицу экспресс-отчета
    Pivot := Analyzer.Pivot;
    // Будем применять анализ 80/20 к столбцам
    ColumnSettings := Pivot.Pareto.ColumnsSettings;
    // Включим анализ только для первого столбца
    ColumnSettings.Enabled := True;
    ColumnSettings.ElementIndex := 0;
    // Получим максимальные значения анализируемого столбца
    TopSettings := ColumnSettings.TopSettings;
    // Изменим тип расчета
    TopSettings.Kind := PivotParetoKind.Count;
    // Включим отображение ячеек с максимальными значениями
    TopSettings.Display := True;
    // Изменим количество отображаемых ячеек с максимальными значениями
    TopSettings.Threshold := 2;
    // Получим минимальные значения анализируемого столбца
    BottomSettings := ColumnSettings.BottomSettings;
    // Изменим тип расчета
    BottomSettings.Kind := PivotParetoKind.Count;
    // Включим отображение ячеек с минимальными значениями
    BottomSettings.Display := True;
    // Изменим количество отображаемых ячеек с минимальными значениями
    BottomSettings.Threshold := 2;
    // Получим таблицу данных отчета
    Grid := Analyzer.Grid;
    // Получим параметры оформления таблицы
    Style := Grid.Style;
    // Создадим и зададим зеленый цвет фона ячеек c максимальными значениями
    AbcTopStyle := New TabCellStyle.Create;
    TopColor := New GxColor.CreateRGB(0, 128, 0);
    TopBrush := New GxSolidBrush.Create(TopColor);
    AbcTopStyle.BackgroundBrush := TopBrush;
    Style.ABCTopStyle := AbcTopStyle;
    // Создадим и зададим красный цвет фона ячеек с минимальными значениями
    AbcBottomStyle := New TabCellStyle.Create;
    BottomColor := New GxColor.CreateRGB(255, 0, 0);
    BottomBrush := New GxSolidBrush.Create(BottomColor);
    AbcBottomStyle.BackgroundBrush := BottomBrush;
    Style.ABCBottomStyle := AbcBottomStyle;
    // Сохраним изменения
    (Analyzer As IMetabaseObject).Save;
End Sub UserProc;