原始的 Direct2D 只提供了几种简单图形(直线、矩形、圆角矩形、椭圆)的绘制与填充,更多集合图形或路径的描绘要使用 DrawGeometry() 和 FillGeometry()。
既然能绘制更复杂的图形,当然也能绘制基本图形,先试下使用 DrawGeometry()、FillGeometry() 实现矩形、圆角矩形和椭圆。
方法的参数是 ID2D1Geometry 接口,ID2D1RectangleGeometry、ID2D1RoundedRectangleGeometry、ID2D1EllipseGeometry 都是它的子接口。
ID2D1Factory 提供了实现这三个接口的方法,从 D2DFactory() 可获取 ID2D1Factory 接口。
测试代码:
uses Direct2D, D2D1; procedure TForm1.FormPaint(Sender: TObject); var cvs: TDirect2DCanvas; fPt: TD2DPoint2f; fLeft,fTop: Single; iEllipse: ID2D1EllipseGeometry; iRectangle: ID2D1RectangleGeometry; iRoundedRectangle: ID2D1RoundedRectangleGeometry; iFactory: ID2D1Factory; begin fPt := D2D1PointF(ClientWidth / 2, ClientHeight / 2); fLeft := ClientWidth / 4; fTop := ClientHeight / 4; iFactory := D2DFactory(); iFactory.CreateRectangleGeometry(D2D1RectF(fLeft, fTop, fLeft*3, fTop*3), iRectangle); iFactory.CreateRoundedRectangleGeometry(D2D1RoundedRect(D2D1RectF(fLeft, fTop, fLeft*3, fTop*3), 32, 32), iRoundedRectangle); iFactory.CreateEllipseGeometry(D2D1Ellipse(fPt, fLeft, fTop), iEllipse); cvs := TDirect2DCanvas.Create(Canvas, ClientRect); cvs.BeginDraw; cvs.Pen.Color := clRed; cvs.Brush.Color := clBlack; cvs.FillGeometry(iRectangle); cvs.Brush.Color := clGreen; cvs.FillGeometry(iRoundedRectangle); cvs.Brush.Color := clBlue; cvs.FillGeometry(iEllipse); cvs.DrawGeometry(iRectangle); cvs.DrawGeometry(iRoundedRectangle); cvs.DrawGeometry(iEllipse); cvs.EndDraw; cvs.Free; end; procedure TForm1.FormResize(Sender: TObject); begin Repaint; end;
分类:
Direct2D
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· .NET 9 new features-C#13新的锁类型和语义
· Linux系统下SQL Server数据库镜像配置全流程详解
· 现代计算机视觉入门之:什么是视频
· 你所不知道的 C/C++ 宏知识
· 聊一聊 操作系统蓝屏 c0000102 的故障分析
· 不到万不得已,千万不要去外包
· C# WebAPI 插件热插拔(持续更新中)
· 会议真的有必要吗?我们产品开发9年了,但从来没开过会
· 如何打造一个高并发系统?
· 《SpringBoot》EasyExcel实现百万数据的导入导出
2008-03-31 SysUtils.FmtStr、SysUtils.Format - 格式化输出
2008-03-31 SysUtils.IsDelimiter - 判断字符串的某个位置是不是指定的字符串
2008-03-31 SysUtils.LastDelimiter - 判断一个字符串在另一个字符串中最后出现的位置
2008-03-31 StrUtils.DupeString - 反复字符串
2008-03-31 SysUtils.Trim、SysUtils.TrimLeft、SysUtils.TrimRight - 删除空格
2008-03-31 StrUtils.LeftStr、StrUtils.RightStr - 提取左右字符串
2008-03-31 StrUtils.ReverseString - 翻转字符串