文档章节

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

涂孟超
 涂孟超
发布于 2014/09/26 15:33
字数 141
阅读 5
收藏 0
点赞 0
评论 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
博文 2004
码字总数 14107
作品 0
深圳
程序员
细数Office 2010十大值得关注的新特性

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

红薯 ⋅ 2010/05/15 ⋅ 3

FastReport产品介绍及免费下载地址

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

yidongkaifa ⋅ 2014/10/13 ⋅ 0

PostgreSQL的Delphi组件--PostgreDAC

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

匿名 ⋅ 2012/03/20 ⋅ 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 ⋅ 0

Office2010新体验-基于Office Visio 2010 图表绘制新体验

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

junwong ⋅ 2012/03/09 ⋅ 0

OCR文字识别软件的图像编辑器功能如何用

日常工作中,有时可能需要对图像进行编辑,可是正常情况下大家都知道图像是不能直接编辑的,需要借助工具。ABBYY FineReader 12 OCR文字识别软件可以实现图像的手动编辑,接下来就具体给大家...

ABBYY ⋅ 2016/11/23 ⋅ 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 ⋅ 0

视频编辑器 OpenShot 2.3 发布,新增时间轴缩放

Openshot 是 linux 的 Gnome 桌面一个非线性视频编辑器,有许多功能:你可以重划大小,修剪或者剪切视频,同时有实时的预览,图片覆盖,标题模板,视频解码,数码变焦,音频混合和编辑,数字...

王练 ⋅ 2017/04/01 ⋅ 2

iOS 11 正式版更新内容大全,快去升级吧

今日凌晨,苹果如期开始为 iPhone、iPad 用户推送 iOS11 正式版更新。如库克所言,iOS 11 正式版以增加实用功能为主,并对 iPad 生态进行深度优化。 苹果官网已经上线了 iOS11 正式版官方中文...

王练 ⋅ 2017/09/20 ⋅ 47

Spring框架的Delphi版本--Spring4D

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

左保权 ⋅ 2012/04/08 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

从零开始搭建Risc-v Rocket环境---(1)

为了搭建Rocke环境,我买了一个2T的移动硬盘,安装的ubuntu-16.04 LTS版。没有java8,gcc是5.4.0 joe@joe-Inspiron-7460:~$ java -version程序 'java' 已包含在下列软件包中: * default-...

whoisliang ⋅ 14分钟前 ⋅ 0

大数据学习路线(自己制定的,从零开始学习大数据)

大数据已经火了很久了,一直想了解它学习它结果没时间,过年后终于有时间了,了解了一些资料,结合我自己的情况,初步整理了一个学习路线,有问题的希望大神指点。 学习路线 Linux(shell,高并...

董黎明 ⋅ 20分钟前 ⋅ 0

systemd编写服务

一、开机启动 对于那些支持 Systemd 的软件,安装的时候,会自动在/usr/lib/systemd/system目录添加一个配置文件。 如果你想让该软件开机启动,就执行下面的命令(以httpd.service为例)。 ...

勇敢的飞石 ⋅ 23分钟前 ⋅ 0

mysql 基本sql

CREATE TABLE `BBB_build_info` ( `community_id` varchar(50) NOT NULL COMMENT '小区ID', `layer` int(11) NOT NULL COMMENT '地址层数', `id` int(11) NOT NULL COMMENT '地址id', `full_......

zaolonglei ⋅ 31分钟前 ⋅ 0

安装chrome的vue插件

参看文档:https://www.cnblogs.com/yulingjia/p/7904138.html

xiaoge2016 ⋅ 34分钟前 ⋅ 0

用SQL命令查看Mysql数据库大小

要想知道每个数据库的大小的话,步骤如下: 1、进入information_schema 数据库(存放了其他的数据库的信息) use information_schema; 2、查询所有数据的大小: select concat(round(sum(da...

源哥L ⋅ 56分钟前 ⋅ 0

两个小实验简单介绍@Scope("prototype")

实验一 首先有如下代码(其中@RestController的作用相当于@Controller+@Responsebody,可忽略) @RestController//@Scope("prototype")public class TestController { @RequestMap...

kalnkaya ⋅ 今天 ⋅ 0

php-fpm的pool&php-fpm慢执行日志&open_basedir&php-fpm进程管理

12.21 php-fpm的pool pool是PHP-fpm的资源池,如果多个站点共用一个pool,则可能造成资源池中的资源耗尽,最终访问网站时出现502。 为了解决上述问题,我们可以配置多个pool,不同的站点使用...

影夜Linux ⋅ 今天 ⋅ 0

微服务 WildFly Swarm 管理

Expose Application Metrics and Information 要公开关于我们的微服务的有用信息,我们需要做的就是将监视器模块添加到我们的pom.xml中: 这将使在管理和监视功能得到实现。从监控角度来看,...

woshixin ⋅ 今天 ⋅ 0

java连接 mongo伪集群部署遇到的坑

部署mongo伪集群 #创建mongo数据存放文件地址mkdir -p /usr/local/config1/datamkdir -p /usr/local/config2/data mkdir -p /usr/local/config3/data mkdir -p /usr/local/config1/l......

努力爬坑人 ⋅ 今天 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部