【控件功能】我来做练习-第49课-Direct2D drawing example

大龙软件研发

于 2024-05-07 12:02:08 发布

阅读量965

点赞数 16

分类专栏：编程软件控件研究文章标签： Direct2D delphi

本文链接：https://blog.csdn.net/reson100/article/details/138526663

版权

这篇博客展示了如何使用Delphi中的Direct2D库来绘制各种图形，包括线条、椭圆和矩形。通过核心源码，解释了如何创建记录图形信息的结构，以及在鼠标操作下动态绘制和更新图形的方法。

摘要由CSDN通过智能技术生成

文章目录

- Direct2D drawing example
- 核心源码

Direct2D drawing example

提示：这里可以添加技术概要
请添加图片描述

核心源码

TMyKind = (enCursor, enLine, enEllipse, enRectangle);
TMyState = (Nothing, Drawing, Selecting);

TMyShape = record
Kind: TMyKind;
Box: TD2D1RectF;
Width: Single;
Color: TColor;
end;

var
Form1: TForm1;
MyList: TList;
TempState: TMyState = Nothing;
TempKind: TMyKind = enCursor;
TempBox: TD2D1RectF;
TempShape: TMyShape;
IsMouseDown: Boolean = False;

implementation

{$R *.dfm}

procedure TForm1.AdjustPixels(var ARect: TD2D1RectF; AWidth: Single);
begin
if Odd(Round(AWidth)) then
ARect := D2D1RectF(ARect.Left - 0.5, ARect.Top - 0.5, ARect.Right - 0.5,
ARect.Bottom - 0.5)
end;

procedure TForm1.DrawEllipses(ARect: TD2D1RectF; AWidth: Single;
AColor: TColor);
begin
AdjustPixels(ARect, AWidth);
FBrush.SetColor(D2D1ColorF(AColor));
FCanvas.RenderTarget.DrawEllipse
(D2D1Ellipse(D2D1PointF(ARect.Left + (ARect.Right - ARect.Left) / 2,
ARect.Top + (ARect.Bottom - ARect.Top) / 2), (ARect.Right - ARect.Left) / 2,
(ARect.Bottom - ARect.Top) / 2), FBrush, AWidth);
end;

procedure TForm1.DrawGrid(ASize: TD2DSizeF; AStep: Single);
var
X, Y: Single;
begin
X := 0;
Y := 0;
FBrush.SetColor(D2D1ColorF(clSkyBlue));
while X < ASize.Width do
begin
FCanvas.RenderTarget.DrawLine(D2D1PointF(X + 0.5, 0 + 0.5),
D2D1PointF(X + 0.5, ASize.height + 0.5), FBrush, 1);
X := X + AStep;
end;

while Y < ASize.height do
begin
FCanvas.RenderTarget.DrawLine(D2D1PointF(0 + 0.5, Y + 0.5),
D2D1PointF(ASize.Width + 0.5, Y + 0.5), FBrush, 1);