Какой компонент использовать для отображения файлов

[devi409]

Люди добрые. Подскажите пожалуста какой компонет использовать в данном случае:
Необходимо отображать файлы и папки как в обычном окне windows с возможностью отображать данные в 5 режимах
1. плитка
2. значки
3. список
4. таблица
5. Эскизы страниц

Также хотелось бы чтобы можно было разрешать и запрещать запуск файлов с этого компонента.
Хотелось бы получить эффект как в программе Total Comander выбрав папку при нажатии ctrl+Q на противоположной панели отобрадаются файлы

[Arigato]

Можно использовать TShellTreeView, TShellComboBox, TShellListView.
Есть так же ещё и TDirectoryOutline, TDirectoryListBox, TFileListBox, TDriveComboBox, но лучше из первых выбрать.

[devi409]

а не подскажете к какой группе относится TShellTreeView, TShellComboBox, TShellListView ? где их взять то?
я что то их найти не могу...
TDirectoryOutline - используется для вывода дерева папок
TDirectoryListBox - показывает только папки без файлов и
TDriveComboBox - только для вывода дисков
TFileListBox - вроде бы выводит файлы но я так и не нашел как их вывести в эскизах

не один из выше перечисленных не позволяет вывести файлы так как я желал бы.

[Arigato]

Вкладка Samples (у меня Делфи 6). Эти 3 позволяют всё перечисленное сделать, их можно связывать между собой. Только, если не ошибаюсь, там есть какая-то ошибка в обработке файлов, я её исправлял в коде самого компонента.

[Altera]

А я бы tListView юзнул-бы...
Вот и примерчик тебе из книжки Флёнова:

[devi409]

у меня delphi 2007 и таких компонентов нема
их установить как нить можно?
Хотя отобразить все можно с помощью компонента WebBrowser. теперь бы еще разобраться как определить какой файл выделен.

[devi409]

Сообщение от Altera

А я бы tListView юзнул-бы...
Вот и примерчик тебе из книжки Флёнова:

Примерчик хороший но вдруг есть компонент который все сам это делает чтобы не писать много кода.

[Arigato]

TShellTreeView, TShellComboBox, TShellListView - самый лучший вариант.
А в приведённом примере на tListView всё нужно делать руками, там даже перетащить файл нельзя и т.п.
А на счет Делфи 2007 - новое, не значит лучше
http://www.programmersforum.ru/showthread.php?t=32014

[Fainder]

Вот пример "возвращения" этих компонентов:

Где взять компоненты TShellListView, TShellTreeView такие как в Delphi7 prof? Поиск:

В Delphi 2009 есть их исходники, они расположенны по этому пути
"C:\Documents and Settings\All Users\Documents\RAD Studio\6.0\Demos\DelphiWin32\VCLWin 32\ShellControls"

Для версии Delphi 2007 пришлось немного подправить исходники (в атаче исходники для версии 2007)
Для более старых версий удаляем файлики vclshlctrls.dproj, dclshlctrls.dproj и испльзуем вместо них vclshlctrls.dpk, dclshlctrls.dpk соответственно

Файлы пришлось немного подправить, но в результате все работает как нужно.
Порядок установки таков (версия 2007)
1) Копируем папку в любое удобное место, я разместил по такому пути.
"\Program Files\CodeGear\RAD Studio\ShellControls"

2) Открываем файл проекта vclshlctrls.dproj (vclshlctrls.dpk) и выполняем Build
3) Открываем файл проекта dclshlctrls.dproj (dclshlctrls.dpk) и выполняем Build
4) Для проекта dclshlctrls.dproj (dclshlctrls.dpk) дополнительно выполняем команду Install.
5) Закрываем проект и для пустого проекта добавляем путь установки в Search Path.

Все на вкладке Samples снова появились нужные компоненты.

Исправленные сорцы прикреплены.

Оригинал здесь: http://base.vingrad.ru/view/3128-Gde...v-Delphi7-prof