在Firemonkey中在画布上绘制时没有抗锯齿效果

Question

我试图制作一种位图编辑器，所以我只想在位图上画一条线，而在Firemonkey中没有抗锯齿效果。 像这样：

var
  Bmp: TBitmap;

Bmp := TBitmap.Create(2000, 2000);
if (Bmp.Canvas.BeginScene) then 
begin
  Bmp.Canvas.Stroke.Color := TAlphaColors.Aquamarine;
  Bmp.Canvas.DrawLine(PointF(5, 5), PointF(100, 100), 1);
  Bmp.Canvas.EndScene;
  Bmp.SaveToFile('c:\temp\result.bmp');
end;
FreeAndNil(Bmp);

但这是行不通的。 我正在尝试一些运气不好的想法：

• 据我的同事说，对于大位图，使用Map / Unmap直接访问位图数据非常慢。
• 使用DisableInterpolation=true甚至GlobalUseGPUCanvas=False的TImage不起作用。
• 使用TPaintBox组件不符合我们的需求。
• 解决方案是使用Canvas.Quality=HighPerformance但这是一个只读属性。 我试图以不同方式更改位图Canvas.Quality ，但是它不起作用。

那么，如何在Firemonkey中简单地画一条根本没有抗锯齿效果的线呢？

PS：我正在使用Delphi 10.2.3（东京）

Answer 1

FireMonkey在像素之间而不是像素上的网格上绘制线条。 因此，必须在每个坐标上加上0.5才能绘制像素：

Bmp.Canvas.DrawLine(PointF(5.5, 5.5), PointF(100.5, 100.5), 1);

这不会禁用抗锯齿，但可以避免发生过多的抗锯齿。 我不知道禁用反锯齿的FireMonkey函数。 您可能必须调用本机OS函数，例如MacOS上的CGContextSetAllowsAntialiasing ，但通常只要知道了如何在像素上绘画，就不再需要它。

Answer 2

最后，我找到了一种方法。 非常简单，我想知道解决方案（LOL）中是否存在一些隐藏的毒药。 TCanvasManager允许从给定的位图创建高性能画布。 根据我的测试，它没有抗锯齿。 这里的代码：

var
  Bmp: TBitmap;
  TmpCanvas: TCanvas;
begin
  Bmp := TBitmap.Create(2000, 2000);
  TmpCanvas := TCanvasManager.CreateFromBitmap(Bmp, TCanvasQuality.HighPerformance);
  if (TmpCanvas.BeginScene) then
  begin
    TmpCanvas.Stroke.Color := TAlphaColors.Aquamarine;
    TmpCanvas.DrawLine(PointF(5, 5), PointF(100, 100), 1);
    TmpCanvas.EndScene;
    Bmp.SaveToFile('c:\temp\result.bmp');
  end;
  FreeAndNil(TmpCanvas);
  FreeAndNil(Bmp);

我还发现，该方法不适用于在Canvas上写文本的方法（ Canvas.FillText ）。

我希望这对其他有相同问题的人有所帮助。