Delphi 2010 新增功能之: TWICImage 类[4] - 图像的修剪
2009-10-20 14:32
465 查看
虽然不用 TWICImage 也可以方便实现图像的修剪, 但这是 TWICImage 的方式.
测试代码:
测试代码:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} uses Wincodec; procedure TForm1.Button1Click(Sender: TObject); var WicImg: TWICImage; Factory: IWICImagingFactory; Clipper: IWICBitmapClipper; {修剪图像的接口} r: WICRect; begin WicImg := TWICImage.Create; WicImg.LoadFromFile('c:\temp\test.jpg'); Factory := WicImg.ImagingFactory; Factory.CreateBitmapClipper(Clipper); r.X := WicImg.Width div 4; r.Y := WicImg.Height div 4; r.Width := WicImg.Width div 2; r.Height := WicImg.Height div 2; Clipper.Initialize(WicImg.Handle, r); WicImg.Handle := IWICBitmap(Clipper); Canvas.Draw(0, 0, WicImg); Clipper := nil; Factory := nil; WicImg.Free; end; end.
相关文章推荐
- Delphi 2010 新增功能之: TWICImage 类[4] - 图像的修剪
- Delphi 2010 新增功能之: TWICImage 类[1] - 方便的图像格式转换
- Delphi 2010 新增功能之: TWICImage 类[1] - 方便的图像格式转换
- Delphi 2010 新增功能之: TWICImage 类[1] - 方便的图像格式转换
- Delphi 2010 新增功能之: TWICImage 类[2] - 图像的旋转变换
- Delphi 2010 新增功能之: TWICImage 类[3] - 图像的比例变换
- Delphi 2010 新增功能之: IOUtils 单元(1): 初识 TDirectory.GetFiles
- Delphi 2010 新增功能之: 手势编程[1] - 初识 TGestureManager
- Delphi 2010 新增功能之: 手势编程[3] - 直接给某个手势指定动作
- Delphi 2010 新增功能之: Rtti 单元(5): 获取方法的更多信息
- Delphi 2010 新增功能之: IOUtils 单元
- Delphi 2010 新增功能之: IOUtils 单元(3): TDirectory.GetFiles 支持通配符
- [转] Delphi 2010 新增功能之: IOUtils 单元: TDirectory.TFilterPredicate
- Delphi 2010 新增功能之: IOUtils 单元(4): TDirectory.GetDirectories
- Delphi 2010 新增功能之: IOUtils 单元(6): TPath(结构体) 的方法与属性
- Delphi 2010 新增功能之: IOUtils 单元(2): TDirectory.TFilterPredicate
- Delphi 2010 新增功能之: IOUtils 单元(4): TDirectory.GetDirectories
- Delphi 2010 新增功能之: IOUtils 单元(7): TFile 结构的功能
- Delphi 2010 新增功能之: IOUtils 单元(6): TPath(结构体) 的方法与属性
- Delphi 2010 新增功能之: IOUtils 单元(7): TFile 结构的功能