anchor.diff:      procedure RefreshSummaryPanel (Sender : TObject);
       procedure SetSummaryPanel(AValue: ISummaryPanel);
     protected
  -    function GetImageForCheckBox(const aCol,aRow: Integer; CheckBoxView: TCheckBoxState): TBitmap; override;
  +//    {$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
  
positive.code:     procedure InternalOnTitleClick(Column: TColumn); // inspired by http://forum.lazarus.freepascal.org/index.php?topic=24510.0
      procedure InternalOnMouseDown (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); // https://www.codeproject.com/Articles/199506/Improving-Delphi-TDBGrid
      procedure InternalOnPrepareCanvas (sender: TObject; DataCol: Integer; Column: TColumn; AState: TGridDrawState);
      procedure SetColumnsHeaderMenuVisible(AValue: boolean);
      procedure ApplySettingsToField(aColumn: TColumn; aSettings : TmGridColumnSettings);
      procedure ExtractSettingsFromField(aColumn: TColumn; aSettings : TmGridColumnSettings);
  
negative.code:   Self.OnTitleClick:= InternalOnTitleClick;
    Self.OnMouseDown:= InternalOnMouseDown;
    Self.OnPrepareCanvas:= InternalOnPrepareCanvas;
    Self.OnUserCheckboxBitmap := InternalOnGetCheckBoxBitmap;
    ScaleFontForMagnification(Self.Font);
  end;
  
  