编程是一门艺术

raptor.zh(at)gmail.com Creative Commons License
本作品采用知识共享署名-非商业性使用-相同方式共享 2.5 中国大陆许可协议进行许可。

archives 存档

01 Jan - 31 Dec 2018
01 Jan - 31 Dec 2017
01 Jan - 31 Dec 2016
01 Jan - 31 Dec 2015
01 Jan - 31 Dec 2014
01 Jan - 31 Dec 2013
01 Jan - 31 Dec 2012
01 Jan - 31 Dec 2011
01 Jan - 31 Dec 2010
01 Jan - 31 Dec 2009
01 Jan - 31 Dec 2008
01 Jan - 31 Dec 2007
01 Jan - 31 Dec 2006
01 Jan - 31 Dec 2005
01 Jan - 31 Dec 2004
01 Jan - 31 Dec 2003
01 Jan - 31 Dec 2002
01 Jan - 31 Dec 2001
01 Jan - 31 Dec 2000
01 Jan - 31 Dec 1999

--

links 链接

--

带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;

大致如此。--Sep.02-04

在此下载(源程序):5.43KB

Trackback link:

Please enable javascript to generate a trackback url

No trackbacks

评论(4)

回复:

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

Sep.22-2005 by ccrun(老妖) (URL) --

回复:

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

Sep.23-2005 by 猛禽 (URL) --

回复:

下载源程序的连接是:
http://we8log.com/mental/down/dev/mlistv..

Dec.24-2005 by LEON --

回复:

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

Dec.24-2005 by 猛禽 (URL) --


 
   
 
  表情图标 

 


提示: 除了 <b> 和 <i> 之外,其他的Html标签都将从您的评论中去除.url或mail地址会被自动加上链接.