如何在delphi中显示类似windows资源管理器的文件缩略图

Question

我使用TFileListBox控件来显示文件列表。但我想知道如何以与Windows资源管理器相同的方式显示文件缩略图？

Answer 1

您应该尝试使用Delphi中包含的ShellControls组件。（请注意，David Heffernan有点提到了这一点，TLama在你的问题的前两条评论中提出了最初的具体建议。）它们在最近的版本中默认不会安装，所以你必须自己安装。

这些说明适用于您指示使用的Delphi版本（Delphi 2010）-它们基本上与XE/XE2相同，只是它们位于SamplesDelphiVCLShellControls文件夹中（当然，Start条目包含XE或XE2而不是2010）。

使用Start->All Programs，导航到Embarcadero RAD Studio或Embarcadero Delphi 2010项目，展开它，然后选择Demos。它在DelphiWin32VCLWin32ShellControls下的Win32文件夹中。首先打开并构建vclshlctrls.dproj，然后构建并安装dclshlctrls.dproj。您需要将上面的文件夹添加到Project->Options的搜索路径中，以便编译器能够找到它们。

要在构建第二个包后安装组件，请在"项目管理器"中右键单击项目，然后从弹出菜单（上下文）中选择"安装"。默认配置中的"项目经理"是屏幕右边缘的区域，用于显示项目中的文件。请记住，您需要先构建vclshlctrls，然后安装dclshlctrls，这是设计时包。

然后，您应该在Samples类别中的调色板中找到TShellListView、TShellTreeView、TShellComboBox和TShellChangeNotifier组件。

Answer 2

.tumb文件是普通的png文件，只是有不同的文件后缀。知道这一点可以在TImage中显示它们。

首先，.tumb扩展名需要注册为新的文件格式。为此，请将PngImage包含在您的使用中，并称之为：

MyImage.Picture.RegisterFileFormat('thumb', 'PNG based thumbnails', TPngImage);

稍后，你可以像这样显示你喜欢的拇指文件：

MyImage.Picture.LoadFromFile('d:PicturesPictures.thumb');