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

TShellList组件基于TListView（不幸的是）在其ViewStyle属性中没有'vsThumbnail'（或类似的）。如何在Delphi中将缩略图视图添加到TShellList？

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

一个简单的德尔福片段将不胜感激。

TIA

2009-12-10 John Thomas

如果你只是想更大的图标比默认你可以调整的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;

来源

2009-12-10 12:18:40 Maksee

也许我不明白你的答案，但不是关于任何TImageList。或者，您是否建议使用内部ImageList来绘制图标？ – 2009-12-10 16:26:38

如果您使用图标设计TListView，一般方法是将TImageList放置在窗体上，并将链接ListView与相应的属性进行对照。但是，如果不更改ImageList的大小，您将获得标准的32x32图标。让它更大更改大小。我成功使用它来生成图像预览 – Maksee 2009-12-10 20:15:06

我没有用过TShellList组件。但是，如果您愿意看一个不同的组件，请尝试VirtualShellTools from Mustang Peak。组件可以有一点点的学习曲线，但是我发现它可以很好地满足我的需求。我使用TVirtualExplorerEasyListview并将其指向一个目录，并完成了为该目录中的图像创建缩略图的所有工作。

来源

2009-12-10 18:31:40

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

回答

相关问题