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

//使用画刷建立画笔
var
g: TGPGraphics;
img: TGPImage;
tb: TGPTextureBrush;
p: TGPPen;
begin
g := TGPGraphics.Create(Canvas.Handle);
img := TGPImage.Create('c:\temp\small.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;