anchor.diff:    fItemIndex  := -1;
     fShowHeader := True;
     SearchColumn := -1; //Disabled by default
  +  Focusable := True; //For up/down keys
   
     fHeader := TKMListHeader.Create(aParent, aLeft, aTop, aWidth - fItemHeight, DEF_HEADER_HEIGHT);
   
  
positive.code: end;
  
  
  procedure TKMDropCommon.ListHide(Sender: TObject);
  begin
    fShape.Hide;
  
negative.code:     procedure UpdateDropPosition; override;
      procedure ListShow(Sender: TObject); override;
      procedure ListClick(Sender: TObject); override;
      procedure ListChange(Sender: TObject); override;
      procedure ListHide(Sender: TObject); override;
      function ListVisible: Boolean; override;
      function GetItem(aIndex: Integer): TKMListRow;
  