как показать файлы миниатюрами, как проводник 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
.