文档章节

GdiPlus[39]: IGPGraphicsPath (六) - 路径的辅助工具 IGPGraphicsPathIterator

涂孟超
 涂孟超
发布于 2014/09/26 15:38
字数 786
阅读 7
收藏 0
点赞 0
评论 0

IGPGraphicsPathIterator 能遍历路径中的子路径和路径标记.

IGPGraphicsPathIterator.Count;          { 点总数 }
IGPGraphicsPathIterator.SubpathCount;   { 子路径数 }
IGPGraphicsPathIterator.HasCurve;       { 是否包含曲线 }

IGPGraphicsPathIterator.Rewind;         { 重新开始, 用于遍历前 }
IGPGraphicsPathIterator.NextSubPath();  { 下一个子路径 }
IGPGraphicsPathIterator.NextPathType(); { 当前子路径起始点的类型; 必须和 NextSubPath 同时使用 }
IGPGraphicsPathIterator.Enumerate;      { 获取路径数据的函数, 应在 NextMarker 过程中使用 }
IGPGraphicsPathIterator.CopyData();     { 复制指定范围的路径数据 }
IGPGraphicsPathIterator.NextMarker();   { 下一个路径标记 }

 
 
 
 
 

 

 

  

Count、SubpathCount、HasCurve 测试:



uses GdiPlus;

procedure TForm1.FormCreate(Sender: TObject);
var
  Path: IGPGraphicsPath;
  PathIterator: IGPGraphicsPathIterator;
  Rect: TGPRect;
  str: string;
begin
  Rect.Initialize(20, 20, 150, 100);
  Path := TGPGraphicsPath.Create;
  Path.AddRectangle(Rect);
  Path.AddEllipse(Rect);

  PathIterator := TGPGraphicsPathIterator.Create(Path);

  with TStringBuilder.Create do
  begin
    Append('点总数: ');
    Append(PathIterator.Count);
    AppendLine;

    Append('子路径数: ');
    Append(PathIterator.SubpathCount);
    AppendLine;

    Append('是否包含曲线: ');
    Append(PathIterator.HasCurve);

    str := ToString;
    Free;
  end;
  ShowMessage(str);
end;

 
 
 
 
 

 

 

  

NextSubPath、Rewind 测试:



uses GdiPlus, GdiPlusHelpers;

var
  Path: IGPGraphicsPath;
  PathIterator: IGPGraphicsPathIterator;

{ 初始化数据 }
procedure TForm1.FormCreate(Sender: TObject);
var
  Pt1,Pt2: TGPPoint;
  Rect: TGPRect;
begin
  Pt1.Initialize(20, 20);
  Pt2.Initialize(150, 150);
  Rect.InitializeFromLTRB(Pt1.X, Pt1.Y, Pt2.X , Pt2.Y);
  Path := TGPGraphicsPath.Create;

  Path.AddRectangle(Rect);
  Path.AddEllipse(Rect);
  Path.AddLine(Pt1.X, Pt1.Y, Pt2.X, Pt2.Y);

  PathIterator := TGPGraphicsPathIterator.Create(Path);
end;

{ 绘制路径 }
procedure TForm1.FormPaint(Sender: TObject);
var
  Pen: IGPPen;
begin
  Pen := TGPPen.Create($FFC0C0C0);
  Canvas.ToGPGraphics.DrawPath(Pen, Path);
end;

{ 遍历路径 }
procedure TForm1.Button1Click(Sender: TObject);
var
  Pen: IGPPen;
  PathSection: IGPGraphicsPath;
  B: Boolean; //这 out 参数需要的
begin
  Pen := TGPPen.Create($FFFF0000, 2);
  PathSection := TGPGraphicsPath.Create; //这也需要先建立
  PathIterator.NextSubPath(PathSection, B);

  Repaint;
  Canvas.ToGPGraphics.DrawPath(Pen, PathSection);
  Tag := Tag + 1; //借 Self.Tag 一用

  if Tag = PathIterator.SubpathCount then
  begin
    Tag := 0;
    PathIterator.Rewind;
  end;
end;

 
 
 
 
 

 

 

  

NextPathType 测试:

uses GdiPlus;

procedure TForm1.FormCreate(Sender: TObject);
var
  Path: IGPGraphicsPath;
  PathIterator: IGPGraphicsPathIterator;
  Rect: TGPRect;
  bool: Boolean;
  m1,m2,n,n1,n2: Integer;
  b: Byte;
begin
  Rect.Initialize(20, 20, 150, 100);
  Path := TGPGraphicsPath.Create;
  Path.AddRectangle(Rect);
  Path.AddEllipse(Rect);

  PathIterator := TGPGraphicsPathIterator.Create(Path);

  while PathIterator.NextSubPath(m1, m2, bool) <> 0 do
  begin
    n := PathIterator.NextPathType(b, n1, n2);
    ShowMessageFmt('%d-%d; %d: %d-%d', [m1,m2,n,n1,n2]);
  end;
//0-3;  4:  0-3
//4-16; 13: 4-16
end;

 
 
 
 
 

 

 

  

NextMarker、CopyData、Enumerate 测试:



unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses GdiPlus, GdiPlusHelpers;

var
  Path: IGPGraphicsPath;
  PathIterator: IGPGraphicsPathIterator;

{ 初始化 Path 与 PathIterator }
procedure TForm1.FormCreate(Sender: TObject);
var
  Rect: TGPRect;
begin
  Path := TGPGraphicsPath.Create;

  { 用路径 Marker 把路径分成了三部分 }
  Path.AddLine(TGPPoint.Create(20, 20), TGPPoint.Create(200, 20));
  Path.AddLine(TGPPoint.Create(20, 50), TGPPoint.Create(200, 50));
  Path.SetMarker;

  Path.AddLine(TGPPoint.Create(20, 80), TGPPoint.Create(200, 80));
  Path.AddLine(TGPPoint.Create(20, 110), TGPPoint.Create(200, 110));
  Path.SetMarker;

  Path.AddLine(TGPPoint.Create(20, 140), TGPPoint.Create(200, 140));
  Path.AddLine(TGPPoint.Create(20, 170), TGPPoint.Create(200, 170));

  PathIterator := TGPGraphicsPathIterator.Create(Path);
end;

{ 绘制 Path }
procedure TForm1.FormPaint(Sender: TObject);
var
  Pen: IGPPen;
begin
  Pen := TGPPen.Create($FFC0C0C0, 2);
  Canvas.ToGPGraphics.DrawPath(Pen, Path);
end;

{ 测试 CopyData 函数 }
procedure TForm1.Button1Click(Sender: TObject);
var
  Pen: IGPPen;
  Brush: IGPSolidBrush;
  PathTmp: IGPGraphicsPath;
  n1,n2: Integer;
  Data: IGPPathData;
  Rect: TGPRectF;
  i: Integer;
  ps: array of TGPPointF;
  ts: array of Byte;
begin
  Repaint;
  Pen := TGPPen.Create($80FF0000, 2);
  Brush := TGPSolidBrush.Create($FF0000FF);

  if PathIterator.NextMarker(n1, n2) = 0 then
  begin
    PathIterator.Rewind;
    Exit;
  end;

  Data := PathIterator.CopyData(n1, n2);

  for i := 0 to Data.Count - 1 do
  begin
    Rect.Initialize(Data.Points[i].X -3, Data.Points[i].Y-3, 6, 6);
    Canvas.ToGPGraphics.FillRectangle(Brush, Rect);
  end;

  SetLength(ps, Data.Count);
  SetLength(ts, Data.Count);
  CopyMemory(ps, Data.PointPtr, Data.Count * SizeOf(TGPPointF));
  CopyMemory(ts, Data.TypePtr, Data.Count);
  PathTmp := TGPGraphicsPath.Create(ps, ts);
  Canvas.ToGPGraphics.DrawPath(Pen, PathTmp);
end;

{ 测试 Enumerate 函数 }
procedure TForm1.Button2Click(Sender: TObject);
var
  Pen: IGPPen;
  Brush: IGPSolidBrush;
  PathTmp: IGPGraphicsPath;
  n1,n2: Integer;
  Data: IGPPathData;
  Rect: TGPRectF;
  i: Integer;
  ps: array of TGPPointF;
  ts: array of Byte;
begin
  Repaint;
  Pen := TGPPen.Create($80FF0000, 2);
  Brush := TGPSolidBrush.Create($FF0000FF);

  if PathIterator.NextMarker(n1, n2) = 0 then
  begin
    PathIterator.Rewind;
    Exit;
  end;

  Data := PathIterator.Enumerate; { 和 Button1Click 就这一句不一样 }

  for i := 0 to Data.Count - 1 do
  begin
    Rect.Initialize(Data.Points[i].X -3, Data.Points[i].Y-3, 6, 6);
    Canvas.ToGPGraphics.FillRectangle(Brush, Rect);
  end;

  SetLength(ps, Data.Count);
  SetLength(ts, Data.Count);
  CopyMemory(ps, Data.PointPtr, Data.Count * SizeOf(TGPPointF));
  CopyMemory(ts, Data.TypePtr, Data.Count);
  PathTmp := TGPGraphicsPath.Create(ps, ts);
  Canvas.ToGPGraphics.DrawPath(Pen, PathTmp);
end;

end.

 
 
 
 
 

 

 

  

© 著作权归作者所有

共有 人打赏支持
涂孟超
粉丝 12
博文 2004
码字总数 14107
作品 0
深圳
程序员
Wine 1.7.39 发布

Wine 1.7.39 发布,此版本更新内容如下: Mac OS 新支持 WinMM joystick DirectWrite 支持字距调整 支持 DirectX Media Objects filters. GdiPlus 中更好的支持动态 GIFs Shell32 中改进对 ...

oschina ⋅ 2015/03/21 ⋅ 8

在C++Builder中使用GDI+的流程

在C++Builder中使用GDI+的流程: 1、 GDI+主要是通过gdiplus.dll进行调用,而BCB没有直接提供与gdiplus.dll对应的静态链接库,所以需要我们自己建立。如果在自己的计算机没有找到文件gdiplus...

hack_tian ⋅ 04/11 ⋅ 0

在ubuntu下完美安装RTX(解决离线、乱码问题) 转

本教程在Ubuntu10.10及11.04测试通过,其它Ubuntu版本仅供参考。 1.在Ubuntu的软件中心的菜单栏中的编辑下面打开软件源-》其他软件-》添加,输入: deb http://ppa.launchpad.net/wine-cn/p...

晓亮1210 ⋅ 2013/09/22 ⋅ 0

GDI+里面的问题。。。。。。。。。。

error C2248: “Gdiplus::Bitmap::Bitmap”: 无法访问 private 成员(在“Gdiplus::Bitmap”类中声明) 1> c:program filesmicrosoft sdkswindowsv7.0aincludegdiplusheaders.h(630) : 参见“G......

xxdd ⋅ 2013/10/24 ⋅ 0

vs 2005 添加GDI配置

在VS2005当中由于自带了GDI+的开发包,所以不需要在安装GDI开发包,这些头文件的位置由VS中的$(WindowsSdkDir)/include自动包含进来了 下午自己添加了好几次,总是出现有报错,,在 stdafx.h...

种地瓜 ⋅ 2015/12/08 ⋅ 0

MFC边框重绘

? 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 pragma once incl......

江河海流 ⋅ 2016/01/30 ⋅ 0

Wine 1.5.0 发布-兼容windows程序

Wine 1.5 是一个开发版本,和之前的wine 1.4 的区别就在于1.4是一个稳定版本,所以如果你不想做实验,就不要安装wine 1.5的开发版本了。 在此版本中有什么新的功能: 新版本的Gecko引擎。 部...

红薯 ⋅ 2012/03/17 ⋅ 0

VS2008中使用GDI+

include <objbase.h> #include <gdiplus.h> #pragma comment(lib, "gdiplus.lib") using namespace Gdiplus; 定义全局 无符号长整形指针 ULONGPTR 如 ULONGPTR gdiplusupToken; 在构造函数里......

ryany ⋅ 2011/03/20 ⋅ 0

samba基本共享

Samba基本共享 1、 Samba服务基础 ★主要软件包 [root@localhost ~]# yum -y install samba-* [root@localhost ~]# rpm -qa |grep samba samba-swat-3.0.33-3.39.el5_8 //web管理后台 samba-......

常楠 ⋅ 2014/04/20 ⋅ 0

MFC用GDI+动感歌词的制作

源代码:http://download.csdn.net/detail/nuptboyzhb/4219669 源代码: 1. 插入一个对话框的资源,删除默认控件,并为对话框创建一个类,命名为ClyricDlg; 2. 在对话框的头文件中添加GDI+相...

长平狐 ⋅ 2012/10/08 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

JavaScript零基础入门——(八)JavaScript的数组

JavaScript零基础入门——(八)JavaScript的数组 欢迎大家回到我们的JavaScript零基础入门,上一节课我们讲了有关JavaScript正则表达式的相关知识点,便于大家更好的对字符串进行处理。这一...

JandenMa ⋅ 今天 ⋅ 0

sbt网络问题解决方案

转自:http://dblab.xmu.edu.cn/blog/maven-network-problem/ cd ~/.sbt/launchers/0.13.9unzip -q ./sbt-launch.jar 修改 vi sbt/sbt.boot.properties 增加一个oschina库地址: [reposit......

狐狸老侠 ⋅ 今天 ⋅ 0

大数据,必须掌握的10项顶级安全技术

我们看到越来越多的数据泄漏事故、勒索软件和其他类型的网络攻击,这使得安全成为一个热门话题。 去年,企业IT面临的威胁仍然处于非常高的水平,每天都会看到媒体报道大量数据泄漏事故和攻击...

p柯西 ⋅ 今天 ⋅ 0

Linux下安装配置Hadoop2.7.6

前提 安装jdk 下载 wget http://mirrors.hust.edu.cn/apache/hadoop/common/hadoop-2.7.6/hadoop-2.7.6.tar.gz 解压 配置 vim /etc/profile # 配置java环境变量 export JAVA_HOME=/opt/jdk1......

晨猫 ⋅ 今天 ⋅ 0

crontab工具介绍

crontab crontab 是一个用于设置周期性被执行的任务工具。 周期性执行的任务列表称为Cron Table crontab(选项)(参数) -e:编辑该用户的计时器设置; -l:列出该用户的计时器设置; -r:删除该...

Linux学习笔记 ⋅ 今天 ⋅ 0

深入Java多线程——Java内存模型深入(2)

5. final域的内存语义 5.1 final域的重排序规则 1.对于final域,编译器和处理器要遵守两个重排序规则: (1)在构造函数内对一个final域的写入,与随后把这个被构造对象的引用赋值给一个引用...

江左煤郎 ⋅ 今天 ⋅ 0

面试-正向代理和反向代理

面试-正向代理和反向代理 Nginx 是一个高性能的反向代理服务器,但同时也支持正向代理方式的配置。

秋日芒草 ⋅ 今天 ⋅ 0

Spring 依赖注入(DI)

1、Setter方法注入: 通过设置方法注入依赖。这种方法既简单又常用。 类中定义set()方法: public class HelloWorldOutput{ HelloWorld helloWorld; public void setHelloWorld...

霍淇滨 ⋅ 昨天 ⋅ 0

马氏距离与欧氏距离

马氏距离 马氏距离也可以定义为两个服从同一分布并且其协方差矩阵为Σ的随机变量之间的差异程度。 如果协方差矩阵为单位矩阵,那么马氏距离就简化为欧氏距离,如果协方差矩阵为对角阵,则其也...

漫步当下 ⋅ 昨天 ⋅ 0

聊聊spring cloud的RequestRateLimiterGatewayFilter

序 本文主要研究一下spring cloud的RequestRateLimiterGatewayFilter GatewayAutoConfiguration @Configuration@ConditionalOnProperty(name = "spring.cloud.gateway.enabled", matchIfMi......

go4it ⋅ 昨天 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部