anchor.diff:    fItemIndex  := -1;
   
     fHeader := TKMListHeader.Create(aParent, aLeft, aTop, aWidth - fItemHeight, DEF_HEADER_HEIGHT);
  +  fHeader.OnColumnClick := ColumnClick;
   
     fScrollBar := TKMScrollBar.Create(aParent, aLeft+aWidth-fItemHeight, aTop, fItemHeight, aHeight, sa_Vertical, bsGame);
     UpdateScrollBar; //Initialise the scrollbar
  
positive.code:   Assert(InRange(aIndex, 0, fRowCount - 1));
    Result := fRows[aIndex];
  end;
  
  //fRowCount or Height has changed
  procedure TKMColumnListBox.UpdateScrollBar;
  
negative.code:     procedure SetBackAlpha(aValue:single);
      procedure SetEnabled(aValue:boolean); override;
      function GetRow(aIndex: Integer): TKMListRow;
      procedure ColumnClick(aValue: Integer);
      procedure UpdateScrollBar;
    public
      OnColumnClick: TIntegerEvent;
      constructor Create(aParent:TKMPanel; aLeft,aTop,aWidth,aHeight:integer; aFont:TKMFont);
  
      procedure SetColumns(aFont: TKMFont; aColumns: array of string; aColumnOffsets: array of Word);
  