带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


哈哈。我说怎么找不到了。原来禽的主页改版了。

ccrun(老妖) at 2005-09-22T19:10:00+08:00

呵呵,本来想从原来的页面上自动转向过来的,做了几页发觉太麻烦,就没再做了。:-P

猛禽 at 2005-09-23T10:29:00+08:00

下载源程序的连接是:

http://we8log.com/mental/down/dev/mlistvex.zip

LEON at 2005-12-24T19:57:00+08:00

不好意思,又修改了域名。:-P

猛禽 at 2005-12-24T15:54:00+08:00