您当前的位置:delphi教程 > Delphi系统相关 > 图像处理中的CopyRect问题?delphi帮助文件中的例子

图像处理中的CopyRect问题?delphi帮助文件中的例子

 
  var  
      Bitmap:   TBitmap;  
      MyRect,   MyOther:   TRect;  
  begin  
   
      MyRect   :=   Rect(10,10,100,100);  
   
      MyOther   :=   Rect(10,111,100,   201);  
      Bitmap   :=   TBitmap.Create;  
      Bitmap.LoadFromFile('c:\windows\tartan.bmp');  
    //   Form1.Canvas.BrushCopy(MyRect,   Bitmap,   MyRect,   clBlack);  
      Form1.Canvas.CopyRect(MyOther,Bitmap.Canvas,MyRect);  
   
      Bitmap.Free;  
  end;  
   
  我的问题:  
  1:我怎样知道相片文件的象素呢?(因为我要从其中件位置复制到右侧边上。)  
  2:Form1.Canvas.CopyRect(MyOther,Bitmap.Canvas,MyRect);的意思是说,从myrect大小的图片复制成MYOTHER大小的图片吗?  
  3:怎么用ASSIGN把图片保存呢?  
   
  谢谢!!!  
 


查看回复
关于我们 | 网站地图 | 广告刊登 | 友情链接
Copyright ©2008 - 2010  Delphi2007.net  ,All Rights Reserved  粤ICP备09038647号
业务联系:allceoad#gmail.com QQ:20008835 最佳分辨率 1024×768