![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
ShellTreeView+ShellListView [D6, Win2k]
avlan © (2005-09-16 10:07:00)Подскажите, пожалуйста, как можно использовать связку компонентов ShellTreeView+ShellListView для показа в ShellListView файлов заданного типа.
Связка DirectoryListBox+FilterComboBox+FileListBox из вкладки Win3.1 позволяет получить фильтрованный список файлов, но не подходит.
ORMADA (2005-09-16 12:14:00) [1]2 avlan не тупи!
вставь проверку на нужные типы файлов
if ((LowerCase(ExtractFileExt(AFolder.PathName)) ='.txt')
or ((LowerCase(ExtractFileExt(AFolder.PathName)) ='.doc')
avlan (2005-09-16 10:39:00) [2]А если надо отфильтовать несколько типов файлов (напр., графические - bmp, jpg, gif, png и т.д.?
ormada (2005-09-16 10:29:00) [3]Лехко
procedure TMainForm.ShellTreeViewAddFolder(Sender: TObject;
AFolder: TShellFolder; var CanAdd: Boolean);
begin
if not AFolder.IsFolder then
if (LowerCase(ExtractFileExt(AFolder.PathName)) <> JpegExt) then
CanAdd := false;
end;