文档章节

再学 GDI+[79]: 区域(8) - Transform - 区域的 Matrix 变换

涂孟超
 涂孟超
发布于 2014/09/26 15:37
字数 215
阅读 9
收藏 0
矩阵变换(Matrix)功能很强大, 这里只是旋转了一下.

本例效果图:



代码文件:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    TrackBar1: TTrackBar;
    procedure FormPaint(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses GDIPOBJ, GDIPAPI;

procedure TForm1.FormCreate(Sender: TObject);
begin
  TrackBar1.Min := -45;
  TrackBar1.Max := 45;

  DoubleBuffered := True;
end;

procedure TForm1.FormPaint(Sender: TObject);
var
  g: TGPGraphics;
  b: TGPBrush;
  rgn: TGPRegion;
  Matrix: TGPMatrix;
begin
  g := TGPGraphics.Create(Canvas.Handle);
  b := TGPHatchBrush.Create(HatchStyleMin, aclSilver, aclChocolate);
  rgn := TGPRegion.Create(MakeRect(40, 40, ClientWidth-80, ClientHeight-100));

  Matrix := TGPMatrix.Create;
  Matrix.Rotate(TrackBar1.Position);
  rgn.Transform(Matrix);

  g.FillRegion(b, rgn);

  Matrix.Free;
  rgn.Free;
  b.Free;
  g.Free;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  Repaint;
end;

end.

 
 
 
 
 

 

 

  
窗体文件:
object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 174
  ClientWidth = 197
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  OnPaint = FormPaint
  PixelsPerInch = 96
  TextHeight = 13
  object TrackBar1: TTrackBar
    Left = 0
    Top = 151
    Width = 193
    Height = 23
    ShowSelRange = False
    TabOrder = 0
    OnChange = TrackBar1Change
  end
end

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2008/06/30/1232732.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
Direct2D教程(十一)几何变换

什么是几何变换(Transform) 在图形学中,主要有三种几何变换,分别是平移(Translate),旋转(Rotation)和缩放(Scaling)。在D2D中,这三种变换都有实现,而且还有一种不太常见的变换,...

吞吞吐吐的
2017/09/12
0
0
iOS-从三维立方体到理解CATransform3D&CGAffineTransform&m34

前言 在写Custom Layout的demo时,用到了CATransform3D的m34参数,不务正业的想探究下这个矩阵到底为什么能影响到图形的透视旋转等等变换,所以通过本篇文章总结一下收获,供以后参考 目录 ...

Tr2e
2017/09/14
0
0
大学没学过数学也要理解 CSS3 transform 中的 matrix

大学没学过数学也要理解 CSS3 transform 中的 matrix } } } const radian = Math.PI / 180 * 30 // 算出弧度 const sin = Math.sin(radian) // 计算 sinθconst cos = Math.cos(radian) // 计......

范明非
06/05
0
0
理解CSS3 transform中的Matrix(矩阵)

理解CSS3 transform中的Matrix(矩阵) by zhangxinxu from http://www.zhangxinxu.com 本文地址:http://www.zhangxinxu.com/wordpress/?p=2427 一、哥,我被你吓住了 打架的时候会被块头大的...

吟啸_徐行
2014/07/05
0
0
【Android】 Canvas、Path 和 Paint 实例 (游戏开发必备)

Canvas类主要实现了屏幕的绘制过程,其中包含了很多实用的方法,比如绘制一条路径、区域、贴图、画点、画线、渲染文本,下面是Canvas类常用的方法,当然Android开发网提示大家很多方法有不同...

晨曦之光
2012/03/01
5.1K
0

没有更多内容

加载失败,请刷新页面

加载更多

[转载]重磅消息:误区陷阱、软件分类和GNU

stallman376032123 Non classé 16 octobre 2018 2 Minutes (注:对原文有精简) GPL、AGPL 并非最严格的许可证,详情请继续阅读本篇文章。可能很多人看到本文好多字,被字数吓得关闭网页,...

ICE冰焰火灵X
16分钟前
0
0
Impala和Hive集成Sentry、Kerberos认证

关于 Kerberos 的安装和 HDFS 配置 kerberos 认证,请参考 HDFS配置kerberos认证。 关于 Kerberos 的安装和 YARN 配置 kerberos 认证,请参考 YARN配置kerberos认证。 关于 Kerberos 的安装和...

hblt-j
24分钟前
1
0
Ubuntu 18.04 PostgreSQL 11 apt 默认安装某些问题解析

首先默认安装软件(本文以PostgreSQL 11.1为例,其他版本类似)。 sudo apt install postgresql-11 等待软件自动安装并完成配置,启动服务。 服务状态如下: vmware@vmware-virtual-machine:...

白豆腐徐长卿
37分钟前
1
0
一步步动手实现高并发的Reactor模型 —— Kafka底层如何充分利用多线程优势去处理网络I/O与业务分发

一、从《Apeche Kafka源码剖析》上搬来的概念和图 Kafka网络采用的是Reactor模式,是一种基于事件驱动的模式。熟悉Java编程的读者应该了解Java NIO提供了Reactor模式的API。常见的单线程Jav...

Anur
41分钟前
1
0
数字信号处理各种处理及图象

https://wenku.baidu.com/view/b1bb67f1f90f76c661371a75.html?sxts=1544696459935

whoisliang
44分钟前
1
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部