文档章节

Delphi 2010 新增功能之: TWICImage 类[4] - 图像的修剪

涂孟超
 涂孟超
发布于 2014/09/26 15:33
字数 141
阅读 5
收藏 0

虽然不用 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.

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2009/10/20/1586920.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
细数Office 2010十大值得关注的新特性

1、更直观地表达想法 Office2010开创了一些设计方法,让用户可以将想法生动地表达出来。使用新增的和改进的图片格式工具(例如,颜色饱和度和艺术效果)可以将 文档画面转换为艺术品。在Off...

红薯
2010/05/15
722
3
FastReport产品介绍及免费下载地址

公司地址: 俄罗斯 公司网址: http://www.fast-report.com 详细信息: 由技术总监Alexander Tzyganenko创建于1998年,Fast Reports, Inc.开发了快速报表软件:应用程序、库和插件。 FastRe...

yidongkaifa
2014/10/13
0
0
PostgreSQL的Delphi组件--PostgreDAC

PostgreDAC 是适合 Delphi/C++ Builder 操作 PostgreSQL 数据库的功能非常强大的组件包,允许你创建直连 PostgreSQL 数据库的 Delphi/C++ Builder 应用,无需 BDE 和 ODBC 支持。 使用 Post...

匿名
2012/03/20
2.1K
0
delphi各个版本编译开关值

delphi各个版本编译开关值 {$IFDEF VER80} - Delphi 1 {$IFDEF VER90} - Delphi 2 {$IFDEF VER100} - Delphi 3 {$IFDEF VER120} - Delphi 4 {$IFDEF VER130} - Delphi 5 {$IFDEF VER140} - D......

伽罗kapple
2016/03/01
10
0
Spring框架的Delphi版本--Spring4D

Spring Framework for Delphi (Spring4D) 是一个开源的代码库,用于 Embarcadero Delphi 2010+ 平台。由一组不同的模块组成,包括依赖注入框架以及一个基础类库(通用类型、集合框架、反射以...

左保权
2012/04/08
3.1K
0

没有更多内容

加载失败,请刷新页面

加载更多

MySQL主从配置——双主

MySQL主从配置——双主 本人是测试环境,准备了两台安装好mysql的服务器(masterA和masterB),可以保证没数据写入,否则需要先将两台服务器上的数据一致,然后再进行主从配置,步骤是:先m...

弓正
4分钟前
0
0
centos下如何使用 beyond compare 对比工具

我这里的环境是centos7桌面版 三条命令安装beyond compare wget http://www.scootersoftware.com/bcompare-4.2.3.22587.x86_64.rpmrpm --import http://www.scootersoftware.com/RPM-GPG-K......

linuxprobe16
9分钟前
0
0
http协议请求头的意义

GET /day31_Http_306/index.jsp HTTP/1.1: GET请求,请求服务器路径为/hello/index.jsp,协议为1.1 请求头 1.Host:localhost:请求的主机名为localhost2.User-Agent:Mozilla/5.0(Windows NT......

潇潇程序缘
46分钟前
6
0
Netty 简单服务器 (三)

经过对Netty的基础认识,设计模型的初步了解,来写个测试,试试手感 上篇也说到官方推荐我们使用主从线程池模型,那就选择这个模型进行操作 需要操作的步骤: 需要构建两个主从线程组 写一个服务器...

_大侠__
57分钟前
9
0
day02:管道符、shell及环境变量

1、管道符:"|" 用于将前一个指令的输出作为后一个指令的输入,且管道符后面跟的是命令(针对文档的操作):cat less head tail grep cut sort wc uniq tee tr split sed awk等) [root@localho...

芬野de博客
今天
16
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部