anchor.diff:  end;
   
   
  +function TKMDropColumns.GetOnColumnClick: TIntegerEvent;
  +begin
  +  Result := fList.OnColumnClick;
  +end;
  +
   procedure TKMDropColumns.SetItemIndex(aIndex: smallint);
   begin
     fList.ItemIndex := aIndex;
   end;
   
   
  +procedure TKMDropColumns.SetOnColumnClick(const Value: TIntegerEvent);
  +begin
  +  fList.OnColumnClick := Value;
  +end;
  +
  +
   procedure TKMDropColumns.SetColumns(aFont: TKMFont; aColumns: array of string; aColumnOffsets: array of Word);
   begin
     fList.SetColumns(aFont, aColumns, aColumnOffsets);
  
positive.code:     property List: TKMColumnListBox read fList;
      property Item[aIndex: Integer]: TKMListRow read GetItem;
      procedure SetColumns(aFont: TKMFont; aColumns: array of string; aColumnOffsets: array of Word);
      property DefaultCaption: string read fDefaultCaption write fDefaultCaption;
  
      procedure Paint; override;
  
negative.code:   private
      fDefaultCaption: string;
      fList: TKMColumnListBox;
      procedure UpdateDropPosition; override;
      procedure ListShow(Sender: TObject); override;
      procedure ListClick(Sender: TObject); override;
  