如何在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组件。但是，如果您愿意查看其他组件，请尝试VirtualShellTools from Mustang Peak。组件可以有一点学习曲线，但我发现它可以很好地满足我的需求。我使用TVirtualExplorerEasyListview并将其指向一个目录，它完成了为该目录中的图像创建缩略图的所有工作。