Delphi GDI+学习记录（6）: 使用画刷建立画笔

Delphi GDI+学习记录（6）: 使用画刷建立画笔2012-03-20 cnblogs 万一//使用画刷建立画笔

var
 g: TGPGraphics;
 img: TGPImage;
 tb: TGPTextureBrush;
 p: TGPPen;
begin
 g := TGPGraphics.Create（Canvas.Handle）;
 img := TGPImage.Create（"c:	empsmall.jpg"）;
 tb := TGPTextureBrush.Create（img）;
 p := TGPPen.Create（tb,36）; {参数 1 是画刷; 参数 2 是笔宽}
 g.DrawEllipse（p, 20, 20, 200, 100）;
 p.Free;
 img.Free;
 tb.Free;
 g.Free;
end;