Readygo技术搜索引擎 网络搜索 efish 2008-1-17 4:58:56

图像缩放

楼主LairdChen（莱尔德）2002-11-07 11:59:10 在 Delphi / GAME，图形处理/多媒体 提问

begin  
        image1.Align   :=   alNone   ;  
        image1.AutoSize   :=   false;  
        image1.Left   :=   trunc(image1.Left-image1.Width/1.2);  
        image1.Top   :=   trunc(image1.Top-image1.Height/1.2);  
        image1.Height   :=trunc(image1.Height   *1.2)   ;  
        image1.Width   :=   trunc(image1.Width   *   1.2);  
      image1.Center   :=   True   ;  
  end;  
  我想让图像在原来的位置上放大。不知为什么这样写就是不对  
   
  问题点数：0、回复次数：6Top

1 楼cool222（坚持到底）回复于 2002-11-07 12:11:18 得分 0

使用中间位图变量保存源图像，然后再CopyRect回来Top

2 楼hansome（连环）回复于 2002-11-07 12:16:05 得分 0

这样当然不行啦  
  图像放大需要重新进行拷贝  
   
  先创建一个TImage用来保存原图，比如叫做ScrImage  
  放大和缩小Image1的时候，都要以ScrImage为标准进行  
   
  放大和缩小时  
  先改变Image1的位置和大小  
  然后Image1.Canvas.CopyRect(..,   ScrImage.Canvas,   ..);  
  就行了  
  Top

3 楼ehom（？！）回复于 2002-11-07 13:07:43 得分 0

Image.Stretch:=True;  
   
  直接改变Image大小！Top

4 楼LairdChen（莱尔德）回复于 2002-11-07 14:12:19 得分 0

我如何让image的始终处在Form的中间。即使Image的大小大于form的大小Top

5 楼ehom（？！）回复于 2002-11-07 17:46:43 得分 0

动态改变Left,TopTop

6 楼weibz0525（小虫）回复于 2002-11-07 19:10:22 得分 0

楼上说了动态改变Image的top,和left，这只是个数学问题，自己想想就明白了，  
  image1.AutoSize   :=   false;下面加一句Image.Stretch:=True;  
  AutoSize是图象随着控件的大小改变而改变，  
  Stretch是控件的大小随着图象的大小改变而改变。  
  Top