带Thumbnail功能的ListView控件

这个单元包含了一个扩展的ListView控件，增加缩略图显示功能。

增加了：

事件：OnItemThumbnail

属生：ThumbnailWidth, ThumbnailHeight, MaskSelected

修改了属性ViewStyle：用mvsIcon, mvsList, mvsSmallIcon,mvsReport代替原来的vsIcon, vsList, vsSmallIcon, vsReport，并增加了mvsThumbnail。--May.15-03

因有数人问及此控件的用法，故将我回复其中一位朋友的邮件贴出来作一个简单的说明：

用法很简单的，主要是OnItemThumbnail事件，响应它，在其中处理缩略图的显示即可。

其它用法与ListView一样。

其中ViewStyle增加了一项mvsThumbnail

MaskSelected用于选择是否在选中时把缩略图也标记为蓝色

ThumbnailWidth/ThumbnailHeight用于指定缩略图大小。

OnItemThumbnail事件的处理过程如下：

在事件响应中根据AItem参数取得相应的Item，然后根据Item去处理生成你的缩略图，最后把这个缩略图Assign给AThumbnail参数即可。

以要显示一个目录下所有的*.jpg的文件为例：先遍历目录，把全部的*.jpg文件名加到ListItem里。

然后在OnItemThumbnail里（示例代码，未调试）：

Var
  jpg : TJPEGImage;
Begin
  jpg := TJPEGImage.Create( Nil );
  jpg.LoadFromFile( AItem.SubItems.Strings[xxx] );
  AThumbnail.Assign( jpg );
  jpg.Free;
End;

        <p>大致如此。--Sep.02-04</p>

在此下载（源程序）：5.43KB