图形旋转

最新推荐文章于 2023-08-12 21:44:08 发布

转载最新推荐文章于 2023-08-12 21:44:08 发布 · 396 阅读

文章标签：

#图形 #matrix #forms #windows #class

Delphi 专栏收录该内容

5 篇文章

订阅专栏

本文介绍了一个使用Delphi的GDI+库实现的矩形旋转绘制方法。通过创建TGPGraphics对象，并利用TGPMatrix进行旋转操作，实现了在矩形中心点上的精确旋转。此示例代码展示了如何设置旋转角度及中心点，以及如何恢复转换状态。

unit Unit1;

interface

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

type
TForm1 = class(TForm)
procedure FormPaint(Sender: TObject);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

uses GDIPOBJ, GDIPAPI;

procedure TForm1.FormPaint(Sender: TObject);
var
g: TGPGraphics;
p: TGPPen;
rect: TGPRect;
pt: TGPPointF;
Matrix: TGPMatrix;
begin
g := TGPGraphics.Create(Canvas.Handle);
p := TGPPen.Create(MakeColor(255,255,0,0),0);

rect := MakeRect(30,30,100,100);

{譬如准备在上面矩形的中心点旋转}
pt := MakePoint(rect.X + rect.Width / 2, rect.Y + rect.Height /2);

Matrix := TGPMatrix.Create;
Matrix.RotateAt(45, pt); {以指定的 pt 为中心, 转 45° 角}

{先画个不旋转的}
g.DrawRectangle(p, rect);

{再画个旋转的}
p.SetColor(aclBlue);
g.SetTransform(Matrix); {关键代码}
g.DrawRectangle(p, rect);

g.ResetTransform; {关键代码, 不恢复后面就都旋转了}

Matrix.Free;
p.Free;
g.Free;
end;

end.