IGPGraphicsPath.SetMarker //建立一個標記 IGPGraphicsPath.ClearMarkers //取消全部標記
在路徑中每建立一個圖形都可以同時做個 Marker,

真正使用這些個標記時, 主要通過 IGPGraphicsPathIterator 的 NextMarker() 方法.

下面是建立并遍歷 Marker 的演示代碼, 暫未使用 IGPGraphicsPathIterator.

---

uses GdiPlus;procedure TForm1.FormCreate(Sender: TObject); varPt1,Pt2: TGPPoint;Rect: TGPRect;Path: IGPGraphicsPath;i: Integer;str: string; beginPt1.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 doif Path.PathTypes[i] and $20 = $20 thenstr := str + IntToStr(i+1) + ' ';ShowMessage(TrimRight(str)); // 4 17 19 21{ 執行 ClearMarkers, 重新檢索看看 }Path.ClearMarkers;str := '';for i := 0 to Path.PointCount - 1 doif Path.PathTypes[i] and $20 = $20 thenstr := str + IntToStr(i+1) + ' ';ShowMessage(TrimRight(str)); // 當然不會再有了 end;
使用 IGPGraphicsPathIterator 檢索 Marker 的例子:

---

uses GdiPlus;varPath: IGPGraphicsPath;PathIterator: IGPGraphicsPathIterator;procedure TForm1.FormCreate(Sender: TObject); varPt1,Pt2: TGPPoint;Rect: TGPRect; beginPt1.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);//建立 PathIteratorPathIterator := TGPGraphicsPathIterator.Create(Path); end;procedure TForm1.Button1Click(Sender: TObject); varm1,m2: Integer;i: Integer; begini := 0;PathIterator.Rewind;while PathIterator.NextMarker(m1, m2) > 0 dobeginInc(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); vari,r: Integer; begini := 0;PathIterator.Rewind;while True dobeginr := 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;

總結

以上是生活随笔為你收集整理的GdiPlus[38]: IGPGraphicsPath (五) 路径标记的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。