anchor.diff:      procedure ListHide(Sender: TObject); override;
       function ListVisible: Boolean; override;
       function GetItem(aIndex: Integer): TKMListRow;
  -    function GetItemIndex: smallint; override;
  -    procedure SetItemIndex(aIndex: smallint); override;
  -    procedure SetDropWidth(aDropWidth:Integer);
  +    function GetItemIndex: Smallint; override;
  +    procedure SetItemIndex(aIndex: Smallint); override;
  +    procedure SetDropWidth(aDropWidth: Integer);
     protected
       procedure SetEnabled(aValue: Boolean); override;
       procedure SetVisible(aValue: Boolean); override;
  
positive.code: begin
    if Count > 0 then
    begin
      fList.Height := Math.min(fDropCount, fList.RowCount) * fList.ItemHeight + fList.Header.Height * Ord(fList.ShowHeader);
  
      if fDropUp then
        fList.AbsTop := AbsTop - fList.Height
  
negative.code: begin
    if Count > 0 then
    begin
      fList.Height := Math.Min(fDropCount, fList.Count) * fList.ItemHeight + fList.SeparatorsCount*fList.SeparatorHeight;
  
      if fDropUp then
        fList.AbsTop := AbsTop - fList.Height
      else
        fList.AbsTop := AbsTop + Height;
  
      fList.Left := AbsLeft + Width - DropWidth - MasterParent.AbsLeft;
    end;
  end;
  
  