anchor.diff:    end;
   end;
   
  +procedure TmDBGrid.InternalOnGetCheckBoxBitmap(Sender: TObject; const CheckedState: TCheckboxState; var ABitmap: TBitmap);
  +begin
  +  if CheckedState=cbUnchecked then
  +    ABitmap := FCustomUncheckedBitmap
  +  else if CheckedState=cbChecked then
  +    ABitmap := FCustomCheckedBitmap
  +  else
  +    ABitmap := FCustomGrayedBitmap;
  +end;
  +
   procedure TmDBGrid.RefreshSummaryPanel(Sender : TObject);
   var
     i : integer;
  
positive.code:   Self.OnTitleClick:= InternalOnTitleClick;
    Self.OnMouseDown:= InternalOnMouseDown;
    Self.OnPrepareCanvas:= InternalOnPrepareCanvas;
    ScaleFontForMagnification(Self.Font);
  end;
  
  
negative.code:     procedure RefreshSummaryPanel (Sender : TObject);
      procedure SetSummaryPanel(AValue: ISummaryPanel);
    protected
  //    {$IF lcl_major>=2}
  //    function GetImageForCheckBox(const aCol,aRow: Integer; CheckBoxView: TCheckBoxState): TBitmap; override;
  //    {$ENDIF}
    protected
      property OnTitleClick; // hide the original event
      property OnMouseDown; // hide the original event
  