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;

posted on 2009-12-15 23:48  万一  阅读(2131)  评论(1编辑  收藏  举报