如何使用Delphi和Firemonkey绘制一个中间有透明圆孔的蓝色正方形,如下图所示?

我想画这样的东西:

但我找不到使圆圈透明的方法:(

最佳答案

像这样的事情应该这样做:

var lPath: TPathData;
begin
  lPath := TPathData.Create;
  lPath.AddRectangle(RectF(0,0,100,100), 0,0, []);
  lPath.AddEllipse(RectF(20,20,80,80));
  Canvas.Fill.Color := $FF8080FF;
  Canvas.FillPath(lPath,1);
  lPath.Free;
end;

关于delphi - 如何画一个有洞的形状?,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/45554530/

10-10 07:20