如何绘制带孔的形状？

Question

如何使用Delphi和Firemonkey在中间绘制一个带有透明圆孔的蓝色方块，如下图所示？

我想画这样的东西：

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

Answer 1

这样的事情应该这样做：

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;