anchor.diff:    btnUpDir := TfpgButton.Create(self);
     with btnUpDir do
     begin
  -    SetPosition(540, 11, 26, 24);
  +    SetPosition(500, 11, 24, 24);
       Anchors := [anRight, anTop];
       Text := '';
       FontDesc := '#Label1';
       ImageName := 'stdimg.folderup';   // Do NOT localize
  -    ModalResult := mrNone;
       Focusable := False;
  +    ImageSpacing := 0;
  +    ImageMargin := -1;
       OnClick := @UpDirClick;
     end;
   
     btnDirNew := TfpgButton.Create(self);
     with btnDirNew do
     begin
  -    SetPosition(572, 11, 26, 24);
  +    SetPosition(526, 11, 24, 24);
       Anchors := [anRight, anTop];
       Text := '';
       FontDesc := '#Label1';
       ImageName := 'stdimg.foldernew';    // Do NOT localize
  -    ModalResult := mrNone;
       Focusable := False;
  +    ImageSpacing := 0;
  +    ImageMargin := -1;
       OnClick := @btnDirNewClicked;
     end;
   
     btnShowHidden := TfpgButton.Create(self);
     with btnShowHidden do
     begin
  -    SetPosition(604, 11, 26, 24);
  +    SetPosition(552, 11, 24, 24);
       Anchors := [anRight, anTop];
       Text := '';
       FontDesc := '#Label1';
       ImageName := 'stdimg.hidden';   // Do NOT localize
  -    ModalResult := mrNone;
       Focusable := False;
       GroupIndex := 1;
       AllowAllUp := True;
  +    ImageSpacing := 0;
  +    ImageMargin := -1;
       OnClick := @DirChange;
  +  end;
  +
  +  btnGoHome := TfpgButton.Create(self);
  +  with btnGoHome do
  +  begin
  +    SetPosition(578, 11, 24, 24);
  +    Anchors := [anRight, anTop];
  +    Text := '';
  +    FontDesc := '#Label1';
  +    ImageName := 'stdimg.folderhome';    // Do NOT localize
  +    Focusable := False;
  +    ImageSpacing := 0;
  +    ImageMargin := -1;
  +    OnClick := @btnGoHomeClicked;
  +  end;
  +
  +  btnBookmark := TfpgButton.Create(self);
  +  with btnBookmark do
  +  begin
  +    SetPosition(604, 11, 24, 24);
  +    Anchors := [anRight, anTop];
  +    Text := '';
  +    FontDesc := '#Label1';
  +    ImageName := 'stdimg.bookmark';    // Do NOT localize
  +    Focusable := False;
  +    ImageSpacing := 0;
  +    ImageMargin := -1;
  +    OnClick := @btnBookmarkClicked;
     end;
   
     { Create lower Panel details }
  
positive.code:     end;
    end;
    Result := False;
  end;
  
  procedure TfpgFileDialog.ProcessFilterString;
  
negative.code:     procedure   DirChange(Sender: TObject);
      procedure   UpDirClick(Sender: TObject);
      procedure   btnDirNewClicked(Sender: TObject);
      procedure   btnGoHomeClicked(Sender: TObject);
      procedure   btnBookmarkClicked(Sender: TObject);
      procedure   edFilenameChanged(Sender: TObject);
      procedure   UpdateButtonState;
      function    HighlightFile(const AFilename: string): boolean;
      function    CreatePopupMenu: TfpgPopupMenu;
      procedure   BookmarkItemClicked(Sender: TObject);
    protected
      procedure   HandleKeyPress(var keycode: word; var shiftstate: TShiftState; var consumed: boolean); override;
      procedure   btnOKClick(Sender: TObject); override;
  