anchor.diff:      FFilterList: TStringList;
       FFilter: string;
       FInitialDir: string;
  +    FBookmarkMenu: TfpgPopupMenu;
  +    FIni: TfpgIniFile;
       procedure   SetFilter(const Value: string);
       function    GetFontDesc: string;
       function    GetShowHidden: boolean;
  
positive.code:   chlDir := TfpgComboBox.Create(self);
    with chlDir do
    begin
      SetPosition(8, 12, 526, 22);
      Anchors := [anLeft, anRight, anTop];
      FontDesc := '#List';
      OnChange := @DirChange;
  
negative.code:   end;
  end;
  
  procedure TfpgFileDialog.btnGoHomeClicked(Sender: TObject);
  begin
    SetCurrentDirectory(GetUserDir);
  end;
  
  procedure TfpgFileDialog.btnBookmarkClicked(Sender: TObject);
  var
    pm: TfpgPopupMenu;
  begin
    FBookmarkMenu.Free;
    FBookmarkMenu := CreatePopupMenu;
    FBookmarkMenu.ShowAt(self, btnBookmark.Left, btnBookmark.Bottom);
  end;
  
  procedure TfpgFileDialog.edFilenameChanged(Sender: TObject);
  begin
    writeln('TfpgFileDialog.edFilenameChanged ');
    UpdateButtonState;
  end;
  
  