GdiPlus[26]: IGPPen: 用画刷建立画笔

Color 是画笔的基本属性, 比较有意思的是可以通过画刷来建立画笔.

五种画刷都可以, 但使用实心画刷就没有意义了;

建立后, 通过画笔的 PenType 能知道是通过什么画刷建立的; 也能通过 Brush 属性获取回画刷.

---

下面的例子只是测试了通过阴影画刷建立画笔:

---

uses GdiPlus, GdiPlusHelpers;

procedure TForm1.FormPaint(Sender: TObject);
var
  Pen: IGPPen;
  Brush: IGPBrush;
begin
  Brush := TGPHatchBrush.Create(HatchStyleShingle, $FFFFFFFF, $FF0000FF);
  Pen := TGPPen.Create(Brush, 16);
  Canvas.ToGPGraphics.DrawEllipse(Pen, 20, 20, 200, 100);
end;

转载于:https://www.cnblogs.com/del/archive/2009/12/15/1625189.html