GdiPlus[28]: IGPPen: 建立复合画笔

设置画笔的 CompoundArray 属性可得到复合画笔.

它对应的类型是 IGPCompoundArray (IGPCompoundArray = IGPArray<Single>).

如果复合画笔是 X 条线, 则数组需要 2*X 个元素; 元素从外向里分别表示线的起点和终点的比例值.

---

---

uses GdiPlus;

procedure TForm1.FormPaint(Sender: TObject);
var
  Graphics: IGPGraphics;
  Pen: IGPPen;
  Rect: TGPRect;
  CompoundArr: IGPCompoundArray;
begin
  Graphics := TGPGraphics.Create(Handle);
  Rect.Initialize(20, 20, 200, 100);
  Pen := TGPPen.Create($FFFF0000, 10);

  CompoundArr := TGPArray<Single>.Create(4);
  CompoundArr[0] := 0;
  CompoundArr[1] := 0.5;
  CompoundArr[2] := 0.9;
  CompoundArr[3] := 1;

  Pen.CompoundArray := CompoundArr;
  Graphics.DrawEllipse(Pen, Rect);
end;