GDI+ 学习记录(6) 使用画刷建立画笔[转]

//使用画刷建立画笔

var

  g: TGPGraphics;

  img: TGPImage;

  tb: TGPTextureBrush;

  p: TGPPen;

begin

  g := TGPGraphics.Create(Canvas.Handle);

  img := TGPImage.Create('d:\mm.jpg');

  tb := TGPTextureBrush.Create(img);

 

  p := TGPPen.Create(tb,30); {参数 1 是画刷; 参数 2 是笔宽}

 

  g.DrawEllipse(p, 20, 20, 200, 100);

 

  p.Free;

  img.Free;

  tb.Free;

  g.Free;

end;