如何在delphi中显示像windows explorer这样的文件缩略图？

Question

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

Answer 1

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

这些说明适用于您已表明正在使用的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组件。

Answer 2

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

首先，.thumb扩展名需要注册为新文件格式。 为此，请在您的使用中包括PngImage并调用：

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

稍后，您可以像这样显示拇指文件：

MyImage.Picture.LoadFromFile('d:\Pictures\Pictures.thumb');