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 winapi: gettopwindow - 获取指定窗口的子窗口中最顶层的窗口句柄

Delphi 自带的 base64 编解码函数

Delphi获取当前计算机所有盘符

Delphi 如何在tmemo,tedit或trichedit中获得插入符的位置

Delphi 文件/流的加密解密方法

Delphi获取网卡mac地址的两种方法

Delphi 汉字转十六进制的函数,可以互转不乱码

Delphi 让程序主窗口不响应“显示桌面”

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...