delphi2007 教程

delphi2007 教程

首页 新随笔 联系 聚合 管理
  1013 Posts :: 0 Stories :: 28 Comments :: 0 Trackbacks
image1载入大图片时如果stretch=true,image1会显示出大图片的缩图,那么如何将这个缩图镜像复制一份赋值给另一个image2的picture呢? Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiMultimedia/html/delphi_20060930111323273.html
赋值后虽然两个image显示的内容一样,但是第一个image1.picture的尺寸是原始图片的尺寸,  
  而新的image2.picture的尺寸是image1中缩图的尺寸,  
  也就是说image2.picture.width=image1.width  
   
  如何做到呢?万分感谢。

Image2.Width   :=   Image1.Width;  
  Image2.Height   :=   Image1.Height;  
  Image2.Canvas.CopyRect(Image1.ClientRect,   Image1.Canvas,   Image2.ClientRect);  
   
  是需要这样吗?

posted on 2009-03-13 10:30 delphi2007 阅读(330) 评论(0)  编辑 收藏 引用
只有注册用户登录后才能发表评论。