MikeSoft

Во время разработки своей новой программы я решил вплотную взглянуть на новый компонент Delphi 2007 — TFileOpenDialog, который инкапсулирует современный диалог открытия файлов в Windows Vista. Те функции, что я в нем увидел, меня приятно удивили.

В первую очередь, я нашел в нем ту функциональность, которая как раз была мне нужна. В приложении необходимо создавать и выбирать файлы в определенной папке и её подпапках. В TOpenDialog нельзя запретить смену каталога. В TFileOpenDialog — можно! Появилось событие OnFolderChanging, где вот таким вот простым кодом мы можем запретить, например, переходить в папки нижнего уровня по сравнению с начальной:

procedure TForm1.FolderChangingEvent(Sender: TObject;
  var CanChange: Boolean);
begin
  CanChange := AnsiStartsText(FileOpenDialog1.DefaultFolder,
                              FileOpenDialog1.FileName);
end;

Это как раз реализует нужную мне функциональность. Это одна из тех «мелочей», которыми наполнена Windows Vista, но которые так приятно облегчают работу и программистов, и пользователей.

Какие же еще возможности приподносит нам TFileOpenDialog? Это события OnFileOkClick, которое позволяет запретить закрывать диалог в случае неудовлетворительного выбора, и OnShareViolation, позволяющее задавать реакцию на выбор файлов, используемых другими приложениями.

Сравним также свойства Options старого и нового диалогов. Визуальное сравнение возможных значений этих свойств дало понять, что большинство параметров имеют аналоги и в старом диалоге (выделены жирным):

TFileDialogOption = (
 fdoOverWritePrompt,
 fdoStrictFileTypes,
 fdoNoChangeDir,
 fdoPickFolders,
 fdoForceFileSystem,
 fdoAllNonStorageItems,
 fdoNoValidate,
 fdoAllowMultiSelect,
 fdoPathMustExist,
 fdoFileMustExist,
 fdoCreatePrompt,
 fdoShareAware,
 fdoNoReadOnlyReturn,
 fdoNoTestFileCreate,
 fdoHideMRUPlaces,
 fdoHidePinnedPlaces,
 fdoNoDereferenceLinks,
 fdoDontAddToRecent,
 fdoForceShowHidden,
 fdoDefaultNoMiniMode,
 fdoForcePreviewPaneOn
);

Остановимся на значениях, не имеющих аналогов. Часть из них настраивает вид самого диалога:

• fdoForcePreviewPaneOn отображает панель предварительного просмотра;
• fdoDefaultNoMiniMode запрещает открытие диалога в сжатом виде (только строка ввода имени файла) — только для диалогов сохранения;
• fdoHidePinnedPlaces убирает стандартные избранные ссылки, собственные мы по прежнему можем задавать (!);
• fdoHideMRUPlaces описывается как «Hide places of recently opened or saved items», но реально мне не удалось пока понять, о чем идет речь.

Значение fdoPickFolders позволяет использовать диалог открытия файлов как диалог выбора папок, а fdoStrictFileTypes позволяет указать, что нужно сохранять файл только с одним из предопределенных расширений.

А вот свойство fdoNoChangeDir хоть и есть среди возможных значений, но как уверяет справочная система, это значение не используется. Это и не удивительно, ведь есть более гибкое событие OnFolderChanging.

В новом диалоге есть и другие полезные свойства и методы. С помощью коллекции FavoriteLinks можно добавлять собственные избранные ссылки. Свойства FileNameLabel, OKButtonLabel, Title позволяют изменить названия отдельных элементов интерфейса диалога (текст перед полем ввода файла, текст кнопки OK и заголовок диалога). Старый TOpenDialog позволял изменять только собственный заголовок. Коллекция FileTypes более наглядно, чем свойство Filter из TOpenDialog позволяет задавать фильтры для диалога. Особенно удобно, что это индексированный список, таким образом легко можно проверить, какому расширению соответствует тот или иной тип, используя свойство FileTypeIndex.

Советы, Статьи Delphi, TFileOpenDialog, Windows Vista