anchor.diff:      function GetColumn(aIndex: Integer): TKMListColumn;
       procedure ClearColumns;
       procedure SetSearchColumn(aValue: ShortInt);
  +    procedure ResetMouseOver;
       procedure UpdateMouseOverPosition(X,Y: Integer);
       procedure UpdateItemIndex(Shift: TShiftState; var aOnChangeInvoked: Boolean);
       function GetItem(aIndex: Integer): TKMListRow;
       function GetSelectedItem: TKMListRow;
       function GetSelectedItemTag: Integer;
       procedure ScrollBarChangeVisibility;
  +    procedure ScrollBarChanged(Sender: TObject);
     protected
       procedure SetLeft(aValue: Integer); override;
       procedure SetTop(aValue: Integer); override;
  
positive.code:   fHeader := TKMListHeader.Create(aParent, aLeft, aTop, aWidth - fItemHeight, DEF_HEADER_HEIGHT);
  
    fScrollBar := TKMScrollBar.Create(aParent, aLeft+aWidth-fItemHeight, aTop, fItemHeight, aHeight, saVertical, aStyle);
    UpdateScrollBar; //Initialise the scrollbar
  
    SetEdgeAlpha(1);
  
negative.code: end;
  
  
  procedure TKMColumnBox.ScrollBarChanged(Sender: TObject);
  begin
    // Reset mouse over field, since we don't want hints to be shown while changing scrollbar f.e.
    ResetMouseOver;
  end;
  
  
  function TKMColumnBox.GetOnColumnClick: TIntegerEvent;
  begin
    Result := fHeader.OnColumnClick;
  