как показать файлы миниатюрами, как проводник windows в delphi?


Я использую элемент управления TFileListBox для отображения списков файлов. Но мне интересно, как показать миниатюры файлов так же, как это делает Проводник Windows?

1 3

1 ответ:

Попробуйте использовать компоненты ShellControls, входящие в Delphi. (Обратите внимание, что Дэвид Хеффернан вроде упоминал, и Тлама сделал первоначальное конкретное предложение в первых двух комментариях к вашему вопросу.) Они не установлены по умолчанию в последних версиях, поэтому вам придется установить их самостоятельно.

Эти инструкции предназначены для версии Delphi, которую вы указали, что используете (Delphi 2010) - они аналогичны в основном для XE/XE2, за исключением того, что они находятся в папке Samples\Delphi\VCL\ShellControls (и запись Start содержит XE или XE2 вместо 2010, конечно).

Используйте Start->All Programs, перейдите к элементу Embarcadero RAD Studio или Embarcadero Delphi 2010, разверните его и выберите Demos. Он находится в папке Win32 под DelphiWin32\VCLWin32\ShellControls. Сначала откройте и соберите vclshlctrls.dproj, а затем соберите и установите dclshlctrls.dproj. Вам нужно будет добавить папку выше к вашему Project->Options в пути поиска, чтобы компилятор мог их найти.

Чтобы установить компоненты после сборки второго пакета, щелкните правой кнопкой мыши на проекте в окне "Менеджер проекта" и выберите "Установить" из всплывающего (контекстного) меню. "Менеджер проекта" в конфигурации по умолчанию-это область на правом краю экрана, которая отображает файлы в проекте. Помните, что вам нужно сначала построить vclshlctrls, а затем установить dclshlctrls, что является пакетом времени разработки.

Затем вы должны найти TShellListView, TShellTreeView, TShellComboBox, и TShellChangeNotifier компоненты на палитре в категории Samples.