用Delphi实现缩略图查看_Delphi程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

用Delphi实现缩略图查看

作者：闵涛文章来源：闵涛的学习笔记点击数：2779 更新时间：2009/4/23 18:38:54

const FileName:string):boolean;
begin
result:=(LowerCase( ExtractFileExt(FileName))=''''.jpg'''') or (LowerCase( ExtractFileExt(FileName))=''''.jpeg'''');
end;

4. 我们在窗体的OnCreate和OnDestroy事件处理句柄里添加如下代码：

procedure TForm1.FormCreate(Sender: TObject);
begin
  //设置图标间距，也即缩略图间距
  ListView_SetIconSpacing(listview1.handle,90,120);

  OriginalBmp:=Tbitmap.Create;
  ThumbJpg:=TJpegImage.Create;

  PreViewBmp:=Tbitmap.Create;
  PreViewJpg:=TJpegImage.Create;

  ThumbBmp:=TBitmap.Create;
  //缩略图的边框为：80*80，显示图片大小为：64*64
  ThumbBmp.Height:=80;
  ThumbBmp.Width:=80;
  ThumbBmp.PixelFormat:=pf24bit;
  imagelist1.Height:=80;
  imagelist1.Width:=80;
  listview1.LargeImages:=imagelist1;
  listview1.ViewStyle:=vsicon;

  ImageFileList:=TImageFileList.Create;
  ImageFileList.Clear;

  ProgressBar1:=TProgressBar.Create(self);
  ProgressBar1.Parent:=StatusBar1;
  ProgressBar1.Visible:=false;
  ProgressBar1.Width:=200;
  ProgressBar1.Height:=StatusBar1.Height-4;
  ProgressBar1.Left:=StatusBar1.Width-ProgressBar1.Width;
  ProgressBar1.Top:=2;

  IsRefreshImageFinished:=true;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  OriginalBmp.Free;
  ThumbBmp.Free;
  ImageFileList.Free;
  ThumbJpg.Free;
  PreViewBmp.Free;
  PreViewJpg.Free;
  ProgressBar1.Free;
end;

5. 在ShellTreeView1的OnChange事件里添加下面代码：

procedure TForm1.ShellTreeView1Change(Sender: TObject; Node: TTreeNode);
var
  dir:string;
begin
  //如果上次的RefreshImage过程还没有结束，就退出
  if not IsRefreshImageFinished then exit;
  dir:=ShellTreeView1.Path;
  //edit1.Text:=dir;

  if not (DirectoryExists(dir)) then exit;

  //如果是c:\ d:\之类则转换为c: d:
  if dir[length(dir)]=''''\'''' then
    delete(dir,length(dir),1);

  ImageFileList.ChangeDir(dir);

  screen.Cursor:=crHourGlass;

  self.Enabled:=false;
  RefreshImage;
  self.Enabled:=true;
  screen.Cursor:=crDefault;
end;

6. 其中过程RefreshImage的代码如下：
//此过程把ImageFileList中记录的图片文件缩放后加载到ImageList1中，并在
//ListView1中显示
procedure TForm1.RefreshImage;
var
  i:integer;
  ImageFileName:string;
  ThumbBmpLeft:integer;
  ThumbBmpTop:integer;
  ThumbBmpHeight:integer;
  ThumbBmpWidth:integer;
begin
  IsRefreshImageFinished:=false;
  listview1.Clear;
  imagelist1.Clear;

  screen.Cursor:=crHourGlass;
  ProgressBar1.Max:=ImageFileList.GetFileCount;
  ProgressBar1.Visible:=true;
  listview1.Items.BeginUpdate

上一页 [1] [2] [3] [4] [5] [6] 下一页

没有相关教程

教程录入：mintao 责任编辑：mintao

上一篇教程： DELPHI的通配符比较

下一篇教程： DELPHI的奇异菜单的编写

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· C语言系列 · VB.NET程序
· JAVA开发 · Delphi程序
· 脚本语言

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……