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 获得网页乱码

Delphi二分查找算法(预排序数组的查找)

Delphi 匹配中文的正则表达式

Delphi 编写网址加密解密代码

Delphi中unicode转中文

Delphi2010安装twordapplication控件

Delphi 根据邮箱地址分离出@前的内容

两种方法用Delphi实现域名转ip地址---用nmhttp控件和winsock

Delphi 不可移动的窗体

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