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

  • A+
所属分类:[开发技巧]

//使用画刷建立画笔
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;

  • 我的微信
  • 这是我的微信扫一扫
  • weinxin
  • 我的微信公众号
  • 我的微信公众号扫一扫
  • weinxin
广告也精彩
avatar
广告也精彩

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: