anchor.diff:  begin
     inherited;
     if not aValue then ListHide(Self);
  -end;
  -
  -
  -procedure TKMDropColumns.ColumnClick(aValue: Integer);
  -begin
  -  if Assigned(OnColumnClick) then
  -    OnColumnClick(aValue);
   end;
   
   
  
positive.code:   private
      fDefaultCaption: string;
      fList: TKMColumnListBox;
      procedure ColumnClick(aValue: Integer);
      procedure UpdateDropPosition; override;
      procedure ListShow(Sender: TObject); override;
      procedure ListClick(Sender: TObject); override;
  
negative.code: ﻿unit KM_Controls;
  {$I KaM_Remake.inc}
  interface
  uses
  