IEaxTableStyle.ABCBottomStyle

Copy example

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
    // Get repository
    Metabase := MetabaseClass.Active;
    // Get express report
    Analyzer := Metabase.ItemById("EXPRESS_IPIVOTPARETOSETTENGSITEM").Edit As IEaxAnalyzer;
    // Get express report table
    Pivot := Analyzer.Pivot;
    // Apply the 80/20 analysis to columns
    ColumnSettings := Pivot.Pareto.ColumnsSettings;
    // Enable analysis only to the first column
    ColumnSettings.Enabled := True;
    ColumnSettings.ElementIndex := 0;
    // Get maximum values of analyzed column
    TopSettings := ColumnSettings.TopSettings;
    // Change calculation type
    TopSettings.Kind := PivotParetoKind.Count;
    // Enable displaying of cells with maximum values
    TopSettings.Display := True;
    // Change the number of displayed cells with maximum values
    TopSettings.Threshold := 2;
    // Get minimum values of analyzed column
    BottomSettings := ColumnSettings.BottomSettings;
    // Change calculation type
    BottomSettings.Kind := PivotParetoKind.Count;
    // Enable displaying of cells with minimum values
    BottomSettings.Display := True;
    // Change the number of displayed cells with minimum values
    BottomSettings.Threshold := 2;
    // Get report data table
    Grid := Analyzer.Grid;
    // Get table formatting parameters
    Style := Grid.Style;
    // Create and set green color of background for cells with maximum values
    AbcTopStyle := New TabCellStyle.Create;
    TopColor := New GxColor.CreateRGB(0, 128, 0);
    TopBrush := New GxSolidBrush.Create(TopColor);
    AbcTopStyle.BackgroundBrush := TopBrush;
    Style.ABCTopStyle := AbcTopStyle;
    // Create and set red color of background for cells with minimum values
    AbcBottomStyle := New TabCellStyle.Create;
    BottomColor := New GxColor.CreateRGB(255, 0, 0);
    BottomBrush := New GxSolidBrush.Create(BottomColor);
    AbcBottomStyle.BackgroundBrush := BottomBrush;
    Style.ABCBottomStyle := AbcBottomStyle;
    // Save changes
    (Analyzer As IMetabaseObject).Save;
End Sub UserProc;