使用畫刷建立畫筆

//使用畫刷建立畫筆

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;