anchor.diff:    fHeader := TKMListHeader.Create(aParent, aLeft, aTop, aWidth - fItemHeight, DEF_HEADER_HEIGHT);
   
     fScrollBar := TKMScrollBar.Create(aParent, aLeft+aWidth-fItemHeight, aTop, fItemHeight, aHeight, saVertical, aStyle);
  +  fScrollBar.OnChange := ScrollBarChanged;
     UpdateScrollBar; //Initialise the scrollbar
   
     SetEdgeAlpha(1);
  
positive.code:     function GetColumn(aIndex: Integer): TKMListColumn;
      procedure ClearColumns;
      procedure SetSearchColumn(aValue: ShortInt);
      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;
    protected
      procedure SetLeft(aValue: Integer); override;
      procedure SetTop(aValue: Integer); override;
  
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;
  