anchor.diff:    private
       fCaption: UnicodeString; //Current caption (Default or from list)
       fDefaultCaption: UnicodeString;
  +    fDropWidth: Integer;
       fList: TKMListBox;
       fListTopIndex: Integer;
       procedure UpdateDropPosition; override;
  
positive.code:     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);
    protected
      procedure SetEnabled(aValue: Boolean); override;
      procedure SetVisible(aValue: Boolean); override;
  
negative.code:   fList.fOnClick := ListClick;
    fList.fOnChange := ListChange;
  
    DropWidth := aWidth;
  
    ListHide(nil);
    fList.OnKeyDown := ListKeyDown;
  end;
  