文档章节

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
720
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
【版本更新】BCGControlBar Pro for MFC v24.4正式发布

BCGControlBar(Business Components Gallery ControlBar)专业版是MFC的一个扩展库,您可以用来构建类似于Microsoft Office 2000/XP/2003/2007/2010/2013 和 Microsoft Visual Studio-like......

Miss_Hello_World
2016/03/16
56
0
Office2010新体验-基于Office Visio 2010 图表绘制新体验

Office Visio是Microsoft Office 家族中的一个成员,是当今最优秀的办公绘图软件之一,它将强大的功能和简单的操作完美地结合在一起。使用Office Visio 可以绘制业务流程图、组织结构图、项目...

junwong
2012/03/09
0
0

没有更多内容

加载失败,请刷新页面

加载更多

Mybatis中jdbcType和javaType的对应关系 

Mybatis中jdbcType和javaType的对应关系 1 JDBC Type Java Type 2 CHAR String 3 VARCHAR String 4 LONGVARCHAR String 5 NUMERIC java.math.BigDecimal 6 DECIMAL java.math.BigDecimal 7 ......

DemonsI
21分钟前
2
0
Python中字符串和datetime

遇到的问题: 今天在写一个爬虫时,需要将今天的数据和昨天、一周前的数据做比较。所以就需要一个方法可以方便的计算出指定日期的前几天的日期。比如10月3号,则一周前的日期是9月26号。 问题...

akane_oimo
24分钟前
1
0
企业级 SpringBoot 教程 (四)SpringBoot 整合JPA

JPA全称Java Persistence API.JPA通过JDK 5.0注解或XML描述对象-关系表的映射关系,并将运行期的实体对象持久化到数据库中。 JPA 的目标之一是制定一个可以由很多供应商实现的API,并且开发...

itcloud
25分钟前
1
0
白话SpringCloud | 第六章:Hystrix监控面板及数据聚合(Turbine)

前言 前面一章,我们讲解了如何整合Hystrix。而在实际情况下,使用了Hystrix的同时,还会对其进行实时的数据监控,反馈各类指标数据。今天我们就将讲解下Hystrix Dashboard和Turbine.其中Hys...

oKong
35分钟前
1
0
Java JDK 11:现在可以使用所有新功能

删除了CORBA,Java EE和JavaFX支持,但添加了十几个主要新功能 目录 哪里可以下载JDK 11 Java 11 JDK中的新功能 从Java JDK 11中删除了什么 Java Development Kit(JDK)11现已普遍可用,可供...

GuoMengyue
37分钟前
10
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部