随笔 - 2146  文章 - 19 评论 - 11846 阅读 - 1266万


原始的 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;

posted on   万一  阅读(3409)  评论(0编辑  收藏  举报
编辑推荐:
· .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 - 翻转字符串


点击右上角即可分享
微信分享提示