anchor.diff:  
   procedure TfpgFileDialog.InitializeComponents;
   begin
  +  self.ShowHint := True;
  +
     chlDir := TfpgComboBox.Create(self);
     with chlDir do
     begin
  
positive.code: 
    if FOpenMode then // when saving file, we want to keep file name
      edFilename.Clear;
  end;
  
  function TfpgFileDialog.HighlightFile(const AFilename: string): boolean;
  
negative.code:     procedure   HandleKeyPress(var keycode: word; var shiftstate: TShiftState; var consumed: boolean); override;
      procedure   btnOKClick(Sender: TObject); override;
      procedure   SetCurrentDirectory(const ADir: string);
      procedure   SetupCaptions; override;
    public
      FileName: string;
      constructor Create(AOwner: TComponent); override;
  