文档章节

Direct2D (14) : 画笔

涂孟超
 涂孟超
发布于 2014/09/26 15:37
字数 448
阅读 17
收藏 0

画笔类 TDirect2DPen 的 Brush 属性是 TDirect2DBrush,现在的单色画笔其实是调用的实心画刷。
因为画刷的强大,所以让画笔丰富起来不是难事。

TDirect2DPen 的 StrokeStyle 属性是 ID2D1StrokeStyle 类型,它决定着线帽、拐角样式等;但遗憾的是该属性是只读的,基本无用。
但 TDirect2DPen 的 Style 属性还是巧妙实现了 psSolid, psDash, psDot, psDashDot, psDashDotDot。

测试代码:

uses Direct2D, D2D1;

procedure TForm1.FormPaint(Sender: TObject);
var
  cvs: TDirect2DCanvas;
  R: TRect;
begin
  cvs := TDirect2DCanvas.Create(Canvas, ClientRect);
  R := ClientRect;
  InflateRect(R, -ClientWidth div 6, -ClientHeight div 6);

  cvs.Pen.Color := clRed;
  cvs.Pen.Style := psDash;

  cvs.BeginDraw;
  cvs.Ellipse(R);
  cvs.EndDraw;
  cvs.Free;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
  Repaint;
end;


效果图:



下面是较原始的实现方法(效果同上):

uses Direct2D, D2D1;

procedure TForm1.FormPaint(Sender: TObject);
var
  cvs: TDirect2DCanvas;
  iBrush: ID2D1SolidColorBrush;
  iStrokeStyle: ID2D1StrokeStyle;
  rStrokeStyleProperties: TD2D1StrokeStyleProperties;
  R: TRect;
  rEllipse: TD2D1Ellipse;
begin
  cvs := TDirect2DCanvas.Create(Canvas, ClientRect);
  R := ClientRect;
  InflateRect(R, -ClientWidth div 6, -ClientHeight div 6);
  rEllipse := D2D1Ellipse(D2D1PointF((R.Right-R.Left)/2+R.Left, (R.Bottom-R.Top)/2+R.Top), (R.Right-R.Left)/2, (R.Bottom-R.Top)/2);

  cvs.BeginDraw;
  cvs.RenderTarget.CreateSolidColorBrush(D2D1ColorF(clRed), nil, iBrush);
  rStrokeStyleProperties := D2D1StrokeStyleProperties(); //获取 StrokeStyle 属性的默认值
  rStrokeStyleProperties.dashStyle := D2D1_DASH_STYLE_DASH;
  D2DFactory.CreateStrokeStyle(rStrokeStyleProperties, nil, 0, iStrokeStyle);
  cvs.RenderTarget.DrawEllipse(rEllipse, iBrush, 1, iStrokeStyle);
  cvs.EndDraw;
  cvs.Free;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
  Repaint;
end;


自定义虚线:

uses Direct2D, D2D1;

procedure TForm1.FormPaint(Sender: TObject);
var
  cvs: TDirect2DCanvas;
  iBrush: ID2D1SolidColorBrush;
  iStrokeStyle: ID2D1StrokeStyle;
  rStrokeStyleProperties: TD2D1StrokeStyleProperties;
  R: TRect;
  rEllipse: TD2D1Ellipse;
  arrSingle: array[0..3] of Single;
begin
  cvs := TDirect2DCanvas.Create(Canvas, ClientRect);
  R := ClientRect;
  InflateRect(R, -ClientWidth div 6, -ClientHeight div 6);
  rEllipse := D2D1Ellipse(D2D1PointF((R.Right-R.Left)/2+R.Left, (R.Bottom-R.Top)/2+R.Top), (R.Right-R.Left)/2, (R.Bottom-R.Top)/2);

  cvs.BeginDraw;
  cvs.RenderTarget.CreateSolidColorBrush(D2D1ColorF(clRed), nil, iBrush);
  rStrokeStyleProperties := D2D1StrokeStyleProperties();

  rStrokeStyleProperties.dashStyle := D2D1_DASH_STYLE_CUSTOM;
  arrSingle[0] := 10;
  arrSingle[1] := 5;
  arrSingle[2] := 1;
  arrSingle[3] := 5;
  D2DFactory.CreateStrokeStyle(rStrokeStyleProperties, @arrSingle[0], Length(arrSingle), iStrokeStyle);

  cvs.RenderTarget.DrawEllipse(rEllipse, iBrush, 2, iStrokeStyle);
  cvs.EndDraw;
  cvs.Free;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
  Repaint;
end;


效果图:




自定义拐角样式:

uses Direct2D, D2D1;

procedure TForm1.FormPaint(Sender: TObject);
var
  cvs: TDirect2DCanvas;
  iBrush: ID2D1SolidColorBrush;
  iStrokeStyle: ID2D1StrokeStyle;
  rStrokeStyleProperties: TD2D1StrokeStyleProperties;
  R: TRect;
begin
  cvs := TDirect2DCanvas.Create(Canvas, ClientRect);
  R := ClientRect;
  InflateRect(R, -ClientWidth div 5, -ClientHeight div 5);

  cvs.BeginDraw;
  cvs.RenderTarget.CreateSolidColorBrush(D2D1ColorF(clGray), nil, iBrush);

  rStrokeStyleProperties := D2D1StrokeStyleProperties();
  rStrokeStyleProperties.lineJoin := D2D1_LINE_JOIN_BEVEL;
  D2DFactory.CreateStrokeStyle(rStrokeStyleProperties, nil, 0, iStrokeStyle);

  cvs.RenderTarget.DrawRectangle(R, iBrush, 25, iStrokeStyle);
  cvs.EndDraw;
  cvs.Free;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
  Repaint;
end;


效果图:



本文转载自:http://www.cnblogs.com/del/archive/2011/04/02/2003982.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
Direct2D教程(十)绘制文本

概述 在Direct2D中,文本的绘制是通过DirectWrite来实现的,DirectWrite实际上已经是一个独立的DirectX组件了。关于DirectWrite,我摘录了MSDN的一段文字。 DirectWrite介绍 当今的应用程序应...

吞吞吐吐的
2017/10/17
0
0
使用ChemDraw Std 14如何绘制曲线

ChemDraw可以说是世界上最好的化学绘图工具。它能轻松绘制有机材料、有机金属、聚合材料和生物聚合物(包括氨基酸、肽、DNA 及 RNA 序列等),以及处理立体化学等高级形式。chemdraw14.0序列...

学术研究软件
2016/04/11
55
0
Python中turtle库的使用

Turtle图形库 Turtle库是Python内置的图形化模块,属于标准库之一,位于Python安装目录的lib文件夹下,常用函数有以下几种: 画笔控制函数 1. :抬起画笔; 2. :落下画笔; 3. :画笔宽度; 4....

村雨1943
2018/10/01
0
0
关于Direct3D11里汉字显示的一些思考

本系列文章由zhmxy555(毛星云)编写,转载请注明出处。 http://blog.csdn.net/zhmxy555/article/details/8147234 作者:毛星云 邮箱: happylifemxy@163.com 这篇文章里,浅墨希望与大家一起...

长平狐
2012/11/12
794
0
使用 Direct2D 绘制分层窗口

这是我关于Direct2D的第三篇介绍了,今天主要讲下其无可比拟的互操作性。为了避免繁缛末节的讲述,我们从一个实例入手:层级窗口。相对于windows的其它众多功能。层级窗口并未做相应的更新,...

Dy_
2014/01/16
8.2K
10

没有更多内容

加载失败,请刷新页面

加载更多

如何在 Linux 系统查询机器最近重启时间

在你的 Linux 或类 UNIX 系统中,你是如何查询系统上次重新启动的日期和时间?怎样显示系统关机的日期和时间? last 命令不仅可以按照时间从近到远的顺序列出该会话的特定用户、终端和主机名...

来来来来来
今天
2
0
Redis协议是什么样的

前言 我们用过很多redis的客户端,有没有相过自己撸一个redis客户端? 其实很简单,基于socket,监听6379端口,解析数据就可以了。 redis协议 解析数据的过程主要依赖于redis的协议了。 我们...

春哥大魔王的博客
今天
4
0
乱入Linux界的我是如何学习的

欢迎来到建哥学Linux,咳!咳!咳!开个玩笑哈,我是一个IT男,IT界的入门选手,正在学习Linux。 在之前,一直想进军IT界,学习IT技术,但是苦于没有人指导,也不知道学什么,最开始我自己在...

linuxCool
今天
4
0
携程Apollo统一配置中心的搭建和使用(java)

一.Apollo配置中心介绍 1、What is Apollo 1.1 Apollo简介 Apollo(阿波罗)是携程框架部门研发的开源配置管理中心,能够集中化管理应用不同环境、不同集群的配置,配置修改后能够实时推送到...

morpheusWB
今天
3
0
远程获得的有趣的linux命令

使用这些工具从远程了解天气、阅读资料等。 我们即将结束为期 24 天的 Linux 命令行玩具日历。希望你有一直在看,如果没有,请回到开始,从头看过来。你会发现 Linux 终端有很多游戏、消遣和...

Linux就该这么学
今天
6
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部