文档章节

GdiPlus[38]: IGPGraphicsPath (五) 路径标记

涂孟超
 涂孟超
发布于 2014/09/26 15:33
字数 553
阅读 16
收藏 0

IGPGraphicsPath.SetMarker    //建立一个标记
IGPGraphicsPath.ClearMarkers //取消全部标记

 
 
 
 
 

 

 

  

在路径中每建立一个图形都可以同时做个 Marker,

真正使用这些个标记时, 主要通过 IGPGraphicsPathIterator 的 NextMarker() 方法.

下面是建立并遍历 Marker 的演示代码, 暂未使用 IGPGraphicsPathIterator.

uses GdiPlus;

procedure TForm1.FormCreate(Sender: TObject);
var
  Pt1,Pt2: TGPPoint;
  Rect: TGPRect;
  Path: IGPGraphicsPath;
  i: Integer;
  str: string;
begin
  Pt1.Initialize(20, 20);
  Pt2.Initialize(150, 150);
  Rect.InitializeFromLTRB(Pt1.X, Pt1.Y, Pt2.X , Pt2.Y);
  Path := TGPGraphicsPath.Create;

  { 路径有四个图形(或叫子路径构成), 并在每个图形后做了 marker; 第一个前不需要也作不上. }
  Path.AddRectangle(Rect);
  Path.SetMarker;

  Path.AddEllipse(Rect);
  Path.SetMarker;

  Path.AddLine(Pt1.X, Pt1.Y, Pt2.X, Pt2.Y);
  Path.SetMarker;

  Path.AddLine(Pt1.X, Pt2.Y, Pt2.X, Pt1.Y);
  Path.SetMarker;

  { 检索看看都是哪个点上有 Marker, 它的类型标识是 $20 }
  str := '';
  for i := 0 to Path.PointCount - 1 do
    if Path.PathTypes[i] and $20 = $20 then
      str := str + IntToStr(i+1) + ' ';
  ShowMessage(TrimRight(str)); // 4 17 19 21

  { 执行 ClearMarkers, 重新检索看看 }
  Path.ClearMarkers;
  str := '';
  for i := 0 to Path.PointCount - 1 do
    if Path.PathTypes[i] and $20 = $20 then
      str := str + IntToStr(i+1) + ' ';
  ShowMessage(TrimRight(str)); // 当然不会再有了
end;

 
 
 
 
 

 

 

  

使用 IGPGraphicsPathIterator 检索 Marker 的例子:

uses GdiPlus;

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.SetMarker;

  Path.AddEllipse(Rect);

  Path.AddLine(Pt1.X, Pt1.Y, Pt2.X, Pt2.Y);
  Path.SetMarker;

  Path.AddLine(Pt1.X, Pt2.Y, Pt2.X, Pt1.Y);

  //建立 PathIterator
  PathIterator := TGPGraphicsPathIterator.Create(Path);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  m1,m2: Integer;
  i: Integer;
begin
  i := 0;
  PathIterator.Rewind;
  while PathIterator.NextMarker(m1, m2) > 0 do
  begin
    Inc(i);
    ShowMessageFmt('第 %d - %d 个标记的范围: %d - %d', [i-1, i, m1, m2]);
  end;
{
  第 0 - 1 个标记的范围: 0 - 3
  第 1 - 2 个标记的范围: 4 - 18
  第 2 - 3 个标记的范围: 19 - 20
} //就添加了两个标记怎么会检索出三个范围呢? 两个点把路径分成了三段!
end;

//IGPGraphicsPathIterator.NextMarker 的第二种用法
procedure TForm1.Button2Click(Sender: TObject);
var
  i,r: Integer;
begin
  i := 0;
  PathIterator.Rewind;
  while True do
  begin
    r := PathIterator.NextMarker(Path);
    if r = 0 then Break;
    Inc(i);
    ShowMessageFmt('第 %d - %d 个标记间共有 %d 个点', [i-1, i, r]);
  end;
{
  第 0 - 1 个标记间共有 4 个点
  第 1 - 2 个标记间共有 15 个点
  第 2 - 3 个标记间共有 2 个点
}
end;

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2009/12/18/1627443.html

涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
GDI+里面的问题。。。。。。。。。。

error C2248: “Gdiplus::Bitmap::Bitmap”: 无法访问 private 成员(在“Gdiplus::Bitmap”类中声明) 1> c:\program files\microsoft sdks\windows\v7.0a\include\gdiplusheaders.h(630) : ......

xxdd
2013/10/24
81
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
674
0
Wine 1.5.0 发布-兼容windows程序

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

红薯
2012/03/17
1K
0
vs 2005 添加GDI配置

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

种地瓜
2015/12/08
135
0
在C++Builder中使用GDI+的流程

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

hack_tian
2018/04/11
0
0

没有更多内容

加载失败,请刷新页面

加载更多

PostgreSQL 11.3 locking

rudi
今天
5
0
Mybatis Plus sql注入器

一、继承AbstractMethod /** * @author beth * @data 2019-10-23 20:39 */public class DeleteAllMethod extends AbstractMethod { @Override public MappedStatement injectMap......

一个yuanbeth
今天
10
1
一次写shell脚本的经历记录——特殊字符惹的祸

本文首发于微信公众号“我的小碗汤”,扫码文末二维码即可关注,欢迎一起交流! redis在容器化的过程中,涉及到纵向扩pod实例cpu、内存以及redis实例的maxmemory值,statefulset管理的pod需要...

码农实战
今天
4
0
为什么阿里巴巴Java开发手册中不建议在循环体中使用+进行字符串拼接?

之前在阅读《阿里巴巴Java开发手册》时,发现有一条是关于循环体中字符串拼接的建议,具体内容如下: 那么我们首先来用例子来看看在循环体中用 + 或者用 StringBuilder 进行字符串拼接的效率...

武培轩
今天
8
0
队列-链式(c/c++实现)

队列是在线性表功能稍作修改形成的,在生活中排队是不能插队的吧,先排队先得到对待,慢来得排在最后面,这样来就形成了”先进先出“的队列。作用就是通过伟大的程序员来实现算法解决现实生活...

白客C
今天
81
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部