Delphi编程实现图片缩略图预览功能

Ｉｍａｇｅ【ｉ】．Ｓｔｒｅｔｃｈ：＝ＦａＩｓｅ： ／／如果图片小于ｉｍａｇｅ的大小则以图片的实际大小显示 ＩｍｇＮａｍｅ【ｉ】．Ｃａｐｔｉｏｎ：＝ＦｉＩｅｌｉｓｔ．Ｓｔ ｒｊｎｇｓｆｉ一１】；
ＩｍｇＮａｍｅＢａｋ【ｉｌ．Ｃａｐｔｉｏｎ：＝ＩｍｇＮａｍｅ【ｉ】．Ｃａｐｔｊｏｎ： ＩｍｇＮａｍｅ【ｉ Ｊ．ＶｉｓＪｂｌｅ：＝ＦａＩｓｅ： ／／显示图片名，保证图片名“居中” ｉｆ（ｉ＞＝１）ａｎｄ（ｉ＜＝５）ｔｈｅｎ
Ｖｊｓｉｂｌｅ：＝Ｔｒｕｅ： Ｗｉｄｔｈ：＝１０４：
ＢａｃｋＧｒｏｕｄ『
Ｈｅｉｇｈｔ：＝１１８：
／／动态创建ＢａｃｋＧｒｏｕｄ，作为放置缩略图和图片名的背景
ｍａｇｅ【
＝Ｔｌｍａｇｅ．Ｃｒｅａｔｅ（ｓｅＩｆ）
ｍａｇｅＩ ｍａｇｅｆ
Ｐａｒｅｎｔ：＝ＢａｃｋＧｒｏｕｄｆｉ】 Ｖｉｓｉｂｌｅ：＝Ｔｒｕｅ：
ｍａｇｅｆ Ｓｔｒｅｔｃｈ：＝Ｔｒｕｅ：
ｂｅｇｉｎ ｌｍｇＮａｍｅＢａｋ【ｉ】．Ｆｒｅｅ：
ＩｍｇＮａｍｅＢａｋ…：＝ｎ¨：
ｅｎｄ：
ｉｆ Ａｓｓｉｇｎｅｄ《ＢａｃｋＧｒｏｕｄ【ｉ】）ｔｈｅｎ ｂｅｇｉｎ
ＢａｃｋＧｒｏｕｄ【ｉ】．Ｆｒｅｅ：
ＢａｃｋＧｒｏｕｄＩｉ】：＝ｎｉ｜：
ｅｎｄ： ｅｎｄ：
ｅｎｄ：
ｐｒｏｃｅｄｕｒｅ ＴＦｏｒｍｌ．ＳｈｏｗＩｍａｇｅ：
ＩｍｇＮａｍｅＢａｋ【ｉ １．０ｎＣＩｉｃｋ：＝ＳｃｒｏｌＩＢｏｘｌ，ＯｎＣＩｉｃｋ： ＩｍｇＮ８ｍｅＢａｋ【ｌ Ｊ．ＯｎＤｂＩＣＩｉｃｋ：＝Ｓｃｒｏｌ旧ｏ×１。０ｎＤｂＩＣＩｉｃｋ： Ｉｍａｇｅ【ｍ ＯｎＭｏｕｓｅＭｏｖｅ：＝Ｓｃｒｏ辩Ｂｏｘｌ．ＯｎＭｏｕｓｅＭｏｖｅ： Ｉｍａｇｅ…．ＯｎＣＩｉｃｋ：＝Ｓｃｒｏ惦ｏＸｌ．Ｏｎ ｃＩｌｃｂ ｆｍａｇｅ…．ＯｎＤｂｉＣＩｉｃｋ：＝ＳｃｒｏｆＩＢｏｘｌ．ＯｎＤｂｆＣ｝ｉｃｋ： ｉｆ（ＩｍａｇｅｆＩ】．Ｐｉｃｔｕｒｅ．Ｗｉｄｔｈ＜９８）ａｎｄ（Ｉｍａｇｅ【ｉ】． Ｐｉｃｔｕｒｅ．Ｈｅｉｑｈｔ＜９８）ｔｈｅｎ
在工程中定义两个私有过程（ｐｒｏｃｅｄｕｒｅ）： ｓｈｏｗＩｍａｇｅ和
Ｃｌｅａｄｍａｇｅ，分别用来显示缩略图和清空缩略图。实现的核心
代码如下：
ｐｒｏｃｅｄｕｒｅ ＴＦｏｒｍ １．ＣＩｅａｒＩｍａｇｅ：
Ｖａｒ
ｉ：ｊｎｔｅｇｅｒｊ ｂｅｇｉｎ
ｉｆ ｉｍｇｃｏｕｎｔ＞＝１ ｔｈｅｎ ｆｏｒ ｉ：＝１ ｔｏ ｉｍｇｃｏｕｎｔ ｄｏ ｂｅｇｉｎ
ＢａｃｋＧｒｏｕｄ【ｉ１．Ｌｅｆｔ：＝ＢａｃｋＧｒｏｕｄ【ｉ一１】．Ｌｅｆｔ＋１０８：
Ｉｍａｇｅ【ｉ】．Ｔｏｐ：＝３：
Ｉｍａｇｅ【｛】．Ｌｅｆｔ：ｚ ３：
Ｉｍａｇｅ“】．Ｖ｛ｓ｜ｂＩｅ：＝Ｔｒｕｅ：
ｅｎｄ： ｅｎｄ ｅＩｓｅ ｂｅｇｉｎ
ｋ：＝Ｔｒｕｎｃ（｝／５）： ｉｆ（（ｉ ｍｏｄ（ｋ｝５））＝１）ｔｈｅｎ ｂｅｇｉｎ
萝…………………………………………………………”
实用第一／智慧密集
；；…。…，；…；。。…。，…。……；。。，。。。。，。，，；…，；。，；。；。。。。…。。…。，
｜。ｊ强整露；囊鏊鬻骥霪鋈镶鏊ｌ鬣螽囊毳＊蘩％鎏｜甏骜鏊蘩豢謦§罄。。：｜？誊嚣囊誊ｊ藿ｌ誊一二：。
碴｜冀豢麓鸶藏甏颤ｔ赣隧渗ｉ戮攀鬻笺薹ｌ『；）｜Ｉ≤
ｍａｇｅ【 ｍａｇｅｆ
Ｃｅｎｔｅｒ：＝Ｔｒｕｅ：
Ｗｉｄｔｈ：＝９８：
ｍａｇｅ【 Ｈｅｊｇｈｔ：＝９８：
万方数据
龟黼醺嚣≥量粪燮≯ 毫毖稿程技巧与雏护≮＝羔要．。
箩…………………………………………………………５
实用第一／智慧密集
／／动态创建Ｔｉｍａｇｅ，用来存放缩略图 ｌｍｇＮ８ｍｅＢａｋ【ｉ】：＝ＴＰａｎｅＩ．Ｃｒｅａｔｅ（ｓｅ｜ｆ》：
ｊ毒攀ｉ誊ｉ｜｜誊
≮毒豢：？浚《鬻蘩≯薯：ｏ｜尊赣麓蘩；姚蹇｜ｉｊ蘩二
摘要 关键词
本文用Ｄｅｌｐｈｉ面向对象的方法实现了ＢＭＰ、ＪＰＧ、ＩＣＯ等格式图片的缩略图和简单 的图片预览功能。 缩略图，ＢＭＰ，ＪＰＧ
一、引言
目前图片浏览器软件很多，大部分软件都有图片缩略图预 览功能，如在ＡｃＤｓｅｅ中点击相应的浏览文件夹，其下的图片 缩略图就会一幅幅的展现出来，双击图片缩略图即可放大浏 览。Ｄｅｌｐｈｉ作为面向对象的快速应用程序开发工具，不但有强 大的数据库开发功能，还能做到快速开发图形、图像类的应用 软件。
Ｇａｕｇｅｌ．Ｆ０ｒｅＣＯＩＯｒ：＝ｃＩＢＩｕｅ：
Ｇａｕｇｅ １．ＢａｃｋＣｏＩｏｒ：＝ｃ旧Ｉａｃｋ：
Ｇａｕｇｅｌ．Ｐｒｏｇｒｅｓｓ：＝ｉ： Ｐａｔｈ：＝Ｓｈｅ｜｜ＴｒｅｅＶｉｅｗｌ．Ｐａｔｈ＋’＼７ 一１ ｌ： ／／设置文件路径
＋ＦｉｌｅＬｉｓｔ．Ｓｔ ｒＩｎｇｓ【
Ｉｍａｇｅ【ｉ】．Ｐｉｃｔｕｒｅ．ＬｏａｄＦｒｏｍＦｉｌｅ（Ｐａｔｈ）： ｆｍｇＮａｍｅＢａｋ｛ｌ】ＯｎＭｏｕｓｅＭｏｖｅ：＝ＳｃｒｏｌｌＢｏｘｌ． ＯｎＭｏｕｓｅＭｏｖｅ：
Ｖａｒ
Ｉ．ｊ，ｋ：Ｉｎｔｅｇｅｒ：
ｂｅｇｉｎ ＣＩｅａｒＩｍａｇｅ： ｉｍｇｃｏｕｎｔ：＝ｆｉＩｅＩｉｓｔ．ｃｏｕｎｔ； ｆｏｒｉ：＝１ ｔＯｉｍｇｃＯｕｎｔ ｄＯ
ｂｅｇｉｎ ＢａｃｋＧｒｏｕｄ｝
＝ＴＰａｎｅＩ．Ｃｒｅａｔｅ（ｓｅｌｆ）
ＢａｃｋＧｒｏｕｄ Ｉ Ｐａｒｅｎｔ：＝Ｓｃｒｏ｜｜Ｂｏｘｌ：
ＢａｃｋＧｒｏｕｄ｛ ＢａｃｋＧｒｏｕｄ ｆ
ＩｍｇＮａｍｅＢａｋ【ｉｌ．Ｐａｒｅｎｔ：＝ＢａｃｋＧｒｏｕｄ【ｊ】： ＩｍｇＮａｍｅＢａｋ ｆ ｉ】．ＢｅｖｅｌＯｕｔｅｒ：＝ｂｖＬｏｗｅｒｅｄ：
ｌｍｇＮａｍｅＢａｋｆｉｌ．Ｆｏｎｔ．Ｓｉｚｅ：＝９：
ＩｍｇＮａｍｅＢａｋ【ｉ ｌ．Ｆｏｎｔ．Ｃｏｌｏｒ：＝ｃｌＢｌｕｅ： ＩｍｇＮａｍｅＢａｋｌｉｌ．Ｗｉｄｔｈ：＝１００：
“ＰａｇｅＤｏｗｎ”键浏览下一张图片，设置如图４所示。
图３控件放置图
图４ Ｆｏ丌ｎ２窗体设置 因为在某一文件夹下的图片数量不一，所以显示图片缩略 图只能是动态创建。本程序以某一文件夹下有不超过１０００张 图片为例，创建四个数组对象。在此工程中定义全局变量和解 释如下：
Ｖａｒ
Ｉｍａｇｅ：ａｒｒａｙ【Ｏ．．１０００】ｏｆ ＴＩｍａｇｅ： ／／存放缩略图 ＩｍｇＮａｍｅ：ａｒｒａｙ（Ｏ．．１ ＯＯＯ】ｏｆ ＴＬａｂｅ｜： ／／用来存放图片名 ＢａｃｋＧｒｏｕｄ：ａｒｒａｙ ｆ Ｏ．．１ ０００】ｏｆ丁ＰａｎｅＩ： ／／放置缩略图和图片名的背景 ＩｍｇＮａｍｅＢａｋ：ａｒｒａｙ【Ｏ．．１ ＯＯＯ】ｏｆ ＴＰａｎｅｌ： ／／用来作为ｉｍｇｎａｍｅ的背景 ＩｍｇＰｏｓ，ＮａｍＰＯｓ， ｉｍｇｃｏｕｎｔ：ｉｎｔｅｇｅｒ： ／／缩略图的位置和图片数量 Ｐａｔｈ：ｓｔｍｇ：／／记录当前图片所在的路径 剐ｅｌｉｓｔ：ＴＳｔｒｉｎｇＬｉｓｔ：／／记录当前路径下的所有图片名
“ＰａｇｅＤｏｗｎ”键能实现浏览上一张和下一张图片。具体的程序
。
截图如图１和图２所示。
图ｌ图片缩略图预览
图２双击图片后的效果
三、程序实现
新建Ｄｅｌｐｈｉ工程，在Ｆ０珊１上放置三个名为Ｐａｎｅｌｌ、Ｐａｎ— ｅ１２、Ｐａｎｅｌ３的Ｐａｎｅｌ组件和一个Ｓｐｌｉｔｔｅｒ（放置在Ｐａｎｅｌ２左边） 控件，Ａｌｉｇｎ属性分别设置为ａｌｋｆｔ、ａｌｃｌｉｅｎｔ、ａｌＢｕｔｔｏｍ、 ａｌＬｅｆｔ。在ＰａＩｌｅｌｌ组件上自上而下放置Ｐａｎｅｌ４、ｓｈｅｌｌＴｒｅｅｖｉｅｗｌ、 Ｓｐｌｉｔｔｅｒ２、ＰａＩｌｅｌ５、Ｉｍａｇｅｌ组件，其中ＳｈｅｌｌＴｒｅｅｖｉｅｗｌ用来显示 电脑中文件夹，Ｉｍａｇｅｌ用来显示点击缩略图时提供图像的预 览。ＰａＩｌｅｌ４和Ｐａｎｅｌ５的ｃ印ｔｉｏｎ属性分别是“选择浏览文件 夹”和“图片浏览”，其余相关位置属性根据实际情况设置。 在Ｐａｎｅｌ２上放置一个ｓｃｍｌｌｂｏｘ组件，Ａ１咖属性设置为ａｌ— ｃｌｉｅｎｔ，ｓｈｏｗＨｉｎｔ属性设为１’ｍｅ，图片的缩略图都在这个组件 上“画”出来，并且鼠标放在上面有图片信息提示。在Ｐａｎｅｌ３ 上放置一个Ｇａｕｇｅ组件，用来显示加载图片缩略图的进度；放 置一个Ｐａｎｅｌ组件，用来显示有多少张图片。具体的位置见图
ｊｆ ｋ＝１ ｔｈｅｎ ＢａｃｋＧｆｏｕｄ｛¨。ＴｏＤ：＝１３０
ｅｌｓｅ
ＢａｃｋＧｒｏｕｄ【ｉ】．Ｔｏｐ：＝１２０术ｋ＋１２： ＢａｃＩ（Ｇｒｏｕｄ【ｉ】．Ｌｅｆｔ：＝８： ＩｍａｇｅｆｉＪ．１ｂｐ：＝３： Ｉｍ８９ｅ¨】．Ｌｅｆｔ：＝３： ｌｍａｇｅ【Ｉ】．Ｖｉｓｉｂｌｅ：＝Ｔｒｕｅ： ｅｎｄ ｅＩｓｅ ｂｅｇｉｎ ＢａｃｋＧｆｏｕｄ【ｉ】．Ｔｏｐ：＝ＢａｃｋＧｒｏｕｄ【ｉ一１】．Ｔｏｐ： ＢａｃｋＧｒｏｕｄ【ｊ】．Ｌｅｆｔ：＝ＢａｃｋＧｒｏｕｄ【ｊ一１ １．Ｌｅｆｔ十１０８： ｌｍａｇｅ【ｉｌ．Ｔｏｐ：＝３： Ｉｍａｇｅ【ｉ１．Ｌｅｆｔ：＝３： Ｉｍａｇｅ【ｍ Ｖｌｓ．ｂＩｅ：＝Ｔｒｕｅ： ｅｎｄ： ｅｎｄ： ＩｍｇＮａｍｅＢａｋ【ｉ】．Ｔｏｐ：＝Ｉｍａｇｅ【ｉ】．Ｔｏｐ十１０１： ＩｍｇＮａｍｅＢａｋｆｉ】．Ｌｅｆｔ：＝１： ｅｎｄ： ｐａｎｅ｜６．Ｃａｐｔｉｏｎ：＝’一共有’＋ｉｎｔｔｏｓｔ…ｍｇｃｏｕｎｔ）＋７张图 片’ ｅｎｄ：
程序中用ＳｈｅｌｌＴｒｅｅｖｉｅｗｌ来显示电脑中的所有文件夹。程
序运行时单击文件夹即能实现该文件夹下所有图片的缩略图预
览，所以设计时首先得查找所选文件夹下的图片并把这些文件
名保存到变量Ｆｉｌｅｌｉｓｔ（为Ｔｓｔｒｉｎｇｌｉｓｔ类）中。组件ｓｈｅｌｌＴｒｅｅ— ｖｉｅｗｌ的０ｎｃｌｉｃｋ事件代码如下： ｐｒｏｃｅｄｕｒｅ ＴＦｏｒｍｌ．Ｓｈｅ¨ＴｒｅｅＶｉｅｗｌ Ｃｌｉｃｋ（Ｓｅｎｄｅｒ：ＴＯ Nhomakorabeaｊｅｃｔ）：
二、程序简介
选择程序中左边的文件夹，如果该文件夹下有ＢＭＰ、ＪＰＧ 或ＩＣ０图片文件，右边的空白处以每行五张一幅幅展现出该图 片的缩略图，并在图片缩略图的下方显示其文件名，程序界面 的最下方显示加载图片的进度和该文件夹下图片的总数。当鼠 标放置在缩略图上时提示该图片的大小和文件名，单击该缩略 图，左下方提供预览功能，双击时能在新窗体中提供该图片的 放大浏览，并且在此窗体中按键盘的“Ｐａｇｅｕｐ”和
ｆｆ Ａｓｓｉｇｎｅｄ（ｈａｇｅ…）ｔｈｅｎ
ｂｅｇｉｎ Ｉｍａｇｅ【ｉ】．Ｆｒｅｅ： Ｉｍａｇｅ【ｉ１：＝州：
ｅｎｄ：
ｉｆ Ａｓｓｉｇｎｅｄ（ＩｍｇＮａｍｅｆｌ】）ｔｈｅｎ ｂｅｇｉｎ
ｌｍｇＮａｍｅ【｛１．Ｆｒｅｅ： ｌｍｇＮａｍｅ【Ｉ】：＝ｎｉＩ： ｅｎｄ： ｉｆ Ａｓｓｉｇｎｅｄ（ＩｍｇＮａｍｅ８ａｋ【ｉ】）ｔｈｅｎ
Ｖａｒ
ｓｒ：ＴＳｅａ『ｃｈＲｅｃ：
ｂｅｇｉｎ ＦｉＩｅｌｉｓｔ．ＣＩｅａｒ： ｉｆ（ＦｉｎｄＦｉｒｓｔ（ｓｈｅＩＩｔｒｅｅｖｌｅｗｌ．ｐａｔｈ＋’＼术．木’，ｆａＡｎｙＦｉＩｅ．ｓｒ） ＝０）ｔｈｅｎ
ｂｅｇｉｎ ｒｅＯｅａｔ Ｉｆ（ＵｐｐｅｒＣａｓｅ（ｅＸｔｒａｃｔｆｉＩｅｅｘｔ《ｓｒ．Ｎａｍｅ））＝７．ＪＰＧ’）ｏｒ （ＵｐｐｅｒＣａｓｅ（ｅＸｔｒａｃｔｆｉ｜ｅｅＸｔ（ｓｒ．Ｎａｍｅ））＝７．ＩＣＯ’）ｏｒ 《ＵｐｐｅｒＣａｓｅ（ｅｘｔｒａｃｔｆｊｌｅｅ）（ｔ（ｓｒ．Ｎａｍｅ））＝７．ＢＭＰ’）ｏｒ 《ＵｐｐｅｒＣａｓｅ（ｅＸｔｒａｃｔｆ孙ｅｅｘｔ（ｓｒ．Ｎａｍｅ））＝’．ＪＰＥＧ’） ｔｈｅｎ ｆｌｌｅＩｊｓｔ．Ａｄｄ（ｓｒ．Ｎａｍｅ）：
ｂｅｇｉｎ
ｉｆ｛ｉ＝１）ｔｈｅｎ
ｂｅｇｉｎ ＢａｃｋＧｒｏｕｄ…．丁ｏｐ：＝８：
ＢａｃｋＧｒｏｕｄｆｉ】．Ｌｅｆｔ：＝８：
Ｉｍａｇｅｆｉ】．Ｔｏｐ：＝３：
Ｉｍａｇｅ【Ｉ】Ｌｅｆｔ：＝３： ｌｍａｇｅ【ｍ Ｖｉｓｉｂｌｅ：＝Ｔｆｕｅ： ｅｎｄ：
汗（ｉ＞＝２）ａｎｄ（ｉ＜＝５）ｔｈｅｎ
ｂｅｇｉｎ
ＢａｃｋＧｒｏｕｄＩｉ】．Ｔｏｐ：＝ＢａｃｋＧｒｏｕｄ【ｉ一１】．Ｔｏｐ：
３。
再在工程中新建一个窗体ＦｏＨｎ２，放置一个Ｉｍａｇｅ组件。 程序运行时，在Ｆｏ瑚１的图片缩略图上双击某一缩略图，即打 开窗体ＦｏⅡｎ２，用来放大浏览该图片。并且实现当前目录下图 片的上下翻动，按键盘的“Ｐａｇｅｕｐ”浏览上一张图片，按
渤淼与基护 万方数据
ＢＲ＾ＰＨｌＣＳ＆Ｂ＾啊ＥＰＲＤＢＢ＾啊……一一………ｔ一＊一…。＊，……。，。…………。．，一。…………，…。…………。。……，。。。
ＩｍｇＮａｍｅＢａｋＩｉｌ．Ｈｅｌｇｈｔ：＝１２： ／／动态创建ＩｍｇＮａｍｅＢａｋ，用来作为ｉｍｇｎａｍｅ的背景
ＩｍｇＮａｍｅ【ｉＩ：＝ＴＬ８ｂｅＩ．．Ｃｒｅａｔｅ（ｓｅＩｆ）： ＩｍｇＮａｍｅ ｆ．Ｊ Ｐａｒｅｎｔ：＝ＩｍｇＮａｍｅＢａｋ【ｍ ＩｍｇＮａｍｅｆｉ Ｊ．Ｆｏｎｔ．ＣｏＩｏｒ：＝ｃＩＢＩｕｅ： ＩｍｇＮａｍｅｆｉｌ．Ｗｉｄｔｈ：＝１００： ／／动态创建ＪｍｇＮａｍｅ，用来存放图片名 ＧａｕＧｅｌ．ＭａｘＶａｌｕｅ：＝ｆｉｌｅ“ｓｔ．ｃｏｕｎｔ：