Delphi 如何从一张图片中裁剪一部分距形图片另存为文件（使用Canvas.CopyRect）

本文整理自网络，侵删。

 
  需要一段实现的功能的代码

procedure   TForm1.Button1Click(Sender:   TObject);   
  var   
      SrcBmp,   DestBmp:   TBitmap;   
  begin   
      SrcBmp   :=   TBitmap.Create;   
      SrcBmp.LoadFromFile('C:\Source.bmp');   
    
      DestBmp   :=   TBitmap.Create;   
      DestBmp.Width   :=   100;   
      DestBmp.Height   :=   100;   
    
      DestBmp.Canvas.CopyRect(Rect(0,   0,   100,   100),   SrcBmp.Canvas,   Rect(50,   50,   150,   150));   
    
      DestBmp.SaveToFile('C:\Dest.bmp');   
    
      SrcBmp.Free;   
      DestBmp.Free;   
  end;
 

相关阅读 >>

Delphi判断字符串是否包含限制以外的字符 否则置空

Delphi kmp(字符串匹配)算法

Delphi 快速远程屏幕传输api版

Delphi record，两种声明方式

Delphi的常用条件编译指令

Delphi 关闭uac 单元

Delphixe4 版本中，已针对移动平台 引入了 arc 模型

Delphi字符串中取数字

rightstr 返回字符串右边指定个数的新字符(串)

Delphi 图像文件加载到剪切板，再从剪切板绘制图像

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 如何从一张图片中裁剪一部分距形图片另存为文件（使用Canvas.CopyRect）