delphi下使用GDI对象

最新推荐文章于 2024-10-12 12:26:23 发布

weixin_34037977

最新推荐文章于 2024-10-12 12:26:23 发布

阅读量84

点赞数

文章标签： python

原文链接：https://my.oschina.net/jingshishengxu/blog/10888

版权

2019独角兽企业重金招聘Python工程师标准>>>

//设置笔宽与颜色  var   g: TGPGraphics;
  p: TGPPen;begin   g := TGPGraphics.Create(Canvas.Handle);

  p := TGPPen.Create(aclBlack);
  {建立时应该不给参数是可以的, 但在测试中不行, 至少要给一个颜色}   p.SetColor(aclBlue); {设置颜色}   p.SetWidth(10);      {设置笔宽}   g.DrawEllipse(p, 11, 11, 222, 111);

  p.Free;
  g.Free;end;