anchor.diff:  procedure TKMColumnBox.SetSearchColumn(aValue: ShortInt);
   begin
     fSearchColumn := aValue;
  -
  -  //If search is disabled the we obviously dont need a focus
  -  Focusable := fSearchColumn <> -1;
   end;
   
   
  
positive.code: 
  
  procedure TKMControl.SetVisible(aValue: Boolean);
  begin
    fVisible := aValue;
  
    if Focusable or (Self is TKMPanel) then
      MasterParent.GetCollection.UpdateFocus(Self);
  end;
  
  
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): string;
  