anchor.diff:        *)
   
         FSummaryManager.Refresh;
  -
  -      Self.RefreshSummaryPanel;
       end;
     end;
   end;
  
positive.code:   end;
  end;
  
  procedure TmDBGrid.RefreshSummaryPanel;
  var
    i : integer;
    str, separator : String;
  
negative.code: begin
    if FSummaryPanel=AValue then Exit;
    FSummaryPanel:=AValue;
    Self.RefreshSummaryPanel(nil);
  end;
  
  procedure TmDBGrid.SetSummaryManager(AValue: ISummaryDatasetManager);
  begin
    if FSummaryManager=AValue then Exit;
    FSummaryManager:=AValue;
    FSummaryManager.RegisterListener(Self.RefreshSummaryPanel);
  end;
  
  function TmDBGrid.GetImageForCheckBox(const aCol, aRow: Integer; CheckBoxView: TCheckBoxState): TBitmap;
  