anchor.diff:      FOpenMode: boolean;
       FFilterList: TStringList;
       FFilter: string;
  +    FInitialDir: string;
       procedure   SetFilter(const Value: string);
       function    GetFontDesc: string;
       function    GetShowHidden: boolean;
       procedure   SetFontDesc(const AValue: string);
  +    procedure   SetInitialDir(const AValue: string);
       procedure   SetShowHidden(const Value: boolean);
       procedure   ListChanged(Sender: TObject; ARow: Integer);
       procedure   GridDblClicked(Sender: TObject; AButton: TMouseButton; AShift: TShiftState; const AMousePos: TPoint);
  
positive.code:     function    RunSaveFile: boolean;
      property    Filter: string read FFilter write SetFilter;
      property    FontDesc: string read GetFontDesc write SetFontDesc;
      property    ShowHidden: boolean read GetShowHidden write SetShowHidden;
    end;
    
  
negative.code:     grid.FontDesc := AValue;
  end;
  
  procedure TfpgFileDialog.SetInitialDir(const AValue: string);
  begin
    if FInitialDir <> AValue then
    begin
      FInitialDir := AValue;
      SetCurrentDirectory(FInitialDir);
    end;
  end;
  
  procedure TfpgFileDialog.SetShowHidden(const Value: boolean);
  begin
    btnShowHidden.Down := Value;
  