anchor.diff:      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;
  
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 TfpgFileDialog.InitializeComponents;
  begin
    self.ShowHint := True;
  
    chlDir := TfpgComboBox.Create(self);
    with chlDir do
    begin
  