Отображение объектов в ShellListView по фильтру. Delphi.

Так уж получилось, что пришлось мне вспоминать Delphi. Возникла необходимость в одной маааленькой программке для служебного пользования.
И по ходу написания этой программки шеф выразил пожелание, которое поставило меня в тупик.
Для обзора файлов я воспользовался ShellListView, в котором запретил отображение папок (настраивается в свойстве ObjectTypes). Однако, мне нужно было отображение файлов ТОЛЬКО с расширением .dwg. Такого в свойствах не было.
Лёгкое гугление вывело меня на нужную процедуру:

procedure TForm1.ShellListView1AddFolder(Sender: TObject;  AFolder: TShellFolder; var CanAdd: Boolean);
begin
 CanAdd := MatchesMask(AFolder.PathName, '*.dwg');
end;

Единственный нюанс: в раздел uses необходимо добавить Masks! После этого всё заработает. 🙂
PS Выкладывать софтину не буду, т.к. для остальных она просто лишена смысла.

Запись опубликована в рубрике компьютерное, рабочее с метками . Добавьте в закладки постоянную ссылку.

1 комментарий на «Отображение объектов в ShellListView по фильтру. Delphi.»

  1. Виктор говорит:

    Интересно, а если надо выбрать одновременно несколько типов файлов, как задать несколько масок сразу?

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *