как показать файлы миниатюрами, как проводник windows в delphi?
Я использую элемент управления TFileListBox для отображения списков файлов. Но мне интересно, как показать миниатюры файлов так же, как это делает Проводник Windows?
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.