windows - 如何在 Delphi 中将缩略图视图添加到 TShellList？

Question

TShellList 组件基于 TListView （不幸的是）在其 ViewStyle 属性中没有“vsThumbnail”（或类似的）。

如何以与 Windows 资源管理器类似的方式在 TShellList 中显示缩略图？

一个简单的 Delphi 片段将不胜感激。

TIA

Answer 1

如果您只想要比默认更大的图标，您可以调整您使用的 TImageList 的大小。下面的例子是针对 TListView 的，但是你会明白的

const 
  PreviewSize = 128;
type
  TForm1 = class
    PreviewList: TImageList;
    List: TListView;
...

  PreviewList.Width = PreviewSize;
  PreviewList.Height = PreviewSize;
  PreviewList.Add(MyBitmap, Nil);
  List.Add.ImageIndex:=0;

Answer 2

我没有使用过 TShellList 组件。但是，如果您愿意查看不同的组件，请尝试Mustang Peak 的 VirtualShellTools。该组件可能会有一些学习曲线，但我发现它非常适合我的需求。我使用 TVirtualExplorerEasyListview 并将其指向一个目录，它会完成为该目录中的图像创建缩略图的所有工作。