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

矩阵变换(Matrix)功能很强大, 这里只是旋转了一下.

本例效果图:

代码文件:

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ComCtrls;typeTForm1 = class(TForm)TrackBar1: TTrackBar;procedure FormPaint(Sender: TObject);procedure FormCreate(Sender: TObject);procedure TrackBar1Change(Sender: TObject);end;varForm1: TForm1;implementation{$R *.dfm}uses GDIPOBJ, GDIPAPI;procedure TForm1.FormCreate(Sender: TObject);
beginTrackBar1.Min := -45;TrackBar1.Max := 45;DoubleBuffered := True;
end;procedure TForm1.FormPaint(Sender: TObject);
varg: TGPGraphics;b: TGPBrush;rgn: TGPRegion;Matrix: TGPMatrix;
beging := 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);
beginRepaint;
end;end.

窗体文件:

object Form1: TForm1Left = 0Top = 0Caption = 'Form1'ClientHeight = 174ClientWidth = 197Color = clBtnFaceFont.Charset = DEFAULT_CHARSETFont.Color = clWindowTextFont.Height = -11Font.Name = 'Tahoma'Font.Style = []OldCreateOrder = FalsePosition = poDesktopCenterOnCreate = FormCreateOnPaint = FormPaintPixelsPerInch = 96TextHeight = 13object TrackBar1: TTrackBarLeft = 0Top = 151Width = 193Height = 23ShowSelRange = FalseTabOrder = 0OnChange = TrackBar1Changeend
end

转载于:https://www.cnblogs.com/del/archive/2008/06/30/1232732.html

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

再学 GDI+[77]: 区域(6) - GetRegionScans - 获取区域中的所有矩形
本例效果图: 代码文件: unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Contr ...
再学 GDI+[57]: 路径 - Widen
为什么80%的码农都做不了架构师?>>> 路径的 Widen 方法可以把路径中的线, 根据指定画笔的宽度与样式, 转换为一个范围(有点类似区域); 但转换后再描绘路径就只能使用 ...
再学 GDI+[81]: TGPImage(1) - 显示图像
已知 GDI+ 可以支持的图像格式: BMP.JPEG.GIF.TIFF.PNG.ICO.WMF.EMF TGPGraphics.DrawImage 函数有太多重载了, 一起列在这吧: functio ...
再学 GDI+[56]: 路径 - Warp
为什么80%的码农都做不了架构师?>>> 通过路径的 Warp 方法可以让路径在一个范围内(四个点决定的范围)变换; 第一个参数可以是 3 个点或 4 个点的数组, 如果是 3 ...
再学 GDI+[11]: DrawCurve - 绘制曲线
本例效果图: 代码文件: unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Contr ...
再学 GDI+[7]: DrawLines - 绘制一组直线
本例效果图: 代码文件: unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Contr ...
mysql img格式缩放,再学 GDI+[89]: TGPImage(9) - 图像缩放时的质量(算法)
本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Co ...
再学 GDI+[33]: TGPPen - 画笔的几何变换 - SetTransform
几何变换也就是 Matrix 变换, 画笔的 Matrix 会忽略 dx.dy 平移参数; 选择 LineCapRound 线帽效果比较好. 本例效果图: 代码文件: unit Unit1;inter ...
再学 GDI+[25]: TGPPen - 宽度、颜色与线帽
本例效果图: 代码文件: unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Contr ...

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

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

最新文章

热门文章