下面的例子只是测试了通过阴影画刷建立画笔:
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;