anchor.diff:  procedure TKMColumnBox.DoClick(X, Y: Integer; Shift: TShiftState; Button: TMouseButton);
   var IsClickHandled: Boolean;
   begin
  +  //do not invoke inherited here, to fully override parent DoClick method
     IsClickHandled := False;
   
     if (Button = mbLeft) and Assigned(fOnCellClick) and not KMSamePoint(fMouseOverCell, KMPOINT_INVALID_TILE) then
  
positive.code:     function GetTop: Integer;
      function GetHeight: Integer;
      function GetWidth: Integer;
  
      function GetVisible: Boolean;
      procedure SetAbsLeft(aValue: Integer);
  
negative.code: procedure TKMListHeader.DoClick(X,Y: Integer; Shift: TShiftState; Button: TMouseButton);
  var ColumnID: Integer;
  begin
    //do not invoke inherited here, to fully override parent DoClick method
    ColumnID := GetColumnIndex(X);
    if (ColumnID <> -1) and Assigned(OnColumnClick) then
    begin
  