anchor.diff:      procedure OnRemoveAllFilters (Sender : TObject);
       procedure OnParserGetValue (Sender: TObject; const valueName: string; var Value: Double; out Successfull : boolean);
       procedure OnParserGetStrValue (Sender: TObject; const valueName: string; var StrValue: string; out Successfull : boolean);
  -    procedure RefreshSummaryPanel;
  +    procedure RefreshSummaryPanel (Sender : TObject);
       procedure SetSummaryPanel(AValue: TPanel);
     protected
       function GetImageForCheckBox(const aCol,aRow: Integer; CheckBoxView: TCheckBoxState): TBitmap; override;
  
positive.code:       *)
  
        FSummaryManager.Refresh;
  
        Self.RefreshSummaryPanel;
      end;
    end;
  end;
  
negative.code:     else
        Columns[i].Title.ImageIndex := -1;
    end;
    Self.FSummaryManager.Refresh;
  end;
  
  procedure TmDBGrid.OnParserGetValue(Sender: TObject; const valueName: string; var Value: Double; out Successfull: boolean);
  