anchor.diff:      Text := '';
       FontDesc := '#Edit1';
       OnChange := @edFilenameChanged;
  +    OnKeyPress := @edFilenameKeyPressed;
     end;
     
     { Filter section }
  
positive.code: procedure TfpgFileDialog.edFilenameChanged(Sender: TObject);
  begin
    UpdateButtonState;
  end;
  
  procedure TfpgFileDialog.UpdateButtonState;
  
negative.code:     procedure   btnGoHomeClicked(Sender: TObject);
      procedure   btnBookmarkClicked(Sender: TObject);
      procedure   edFilenameChanged(Sender: TObject);
      procedure   edFilenameKeyPressed(Sender: TObject; var KeyCode: word; var ShiftState: TShiftState; var Consumed: boolean);
      procedure   UpdateButtonState;
      function    HighlightFile(const AFilename: string): boolean;
      function    CreatePopupMenu: TfpgPopupMenu;
  