Delphi 7 - 使用 Canvas 绘制带有透明核心的圆

Question

我正在尝试使用 Delphi 7 和 Canvas 绘制一个简单的圆圈，但我怀疑我想要做的是否可行。

如下图，我想画一个没有核心/中心的圆:

根据杰里·道奇的建议:

• 我不需要红色部分，只需要蓝色部分。

使用的代码:

Canvas.Brush.Style := bsClear;
Canvas.Pen.Style := psSolid;
Canvas.Pen.Color := clGreen;
Canvas.Pen.Width := 20;
Canvas.Pie(X1, Y1, X2, Y2, X3, Y3, X4, Y4);

<小时/>

旧信息:

背景图像是一个简单的 TImage 组件，我使用以下命令绘制圆圈:

Canvas.Brush.Color := clgreen;
Canvas.Pie(X1, Y1, X2, Y2, X3, Y3, X4, Y4);

<小时/>

可能吗？

<小时/>

在 Tom Brunberg 和 Jerry Dodge 的帮助下解决了!

结果:

<小时/>

感谢您的帮助!

Answer 1

我可以想到几种方法来做到这一点，但最简单的方法是使用大笔宽度且不填充。例如...

Canvas.Brush.Style := bsClear;
Canvas.Pen.Style := psSolid;
Canvas.Pen.Color := clGreen;
Canvas.Pen.Width := 50;
Canvas.Pie(X1, Y1, X2, Y2, X3, Y3, X4, Y4);

但是，在您的情况下，Pie 不是正确的方法，因为它也会在中间留下线条。您必须使用 Arc 来代替。