[原创] 改善 Firemonkey Canvas 几何绘图质量问题移动平台

说明：

　　Fiiremonkey 的跨平台能力，大家有目共睹（一码同介面跨四平台），唯独移动平台在几何绘图方面，质量始终不尽人意，我也曾试着去修正（如：），也曾找过第三方案（如：），但都不完美，我一直在想，移动平台有这么强的绘图能力及质量（Android & iOS），如果能直接拿来用，不是很好？为什么 Firemonkey 要自己重写？

　　目前网上许多针对此问题的改善方案，但多以控件形式，且需依各平台的绘图函数来绘图，或仅提供固定的几何图形控件，如果能延用现有的 TCanvas.Draw????? 绘图代码，只要加入几行代码（或编译开关），就能达到原生绘图的效果，岂不是很理想，于是开是构想这种方案的可行性，最后证实是可行的。

　　要先说明的是，这里提供的只是一种改善方案，而不是修正，最终还是希望能受到 EMB 官方的关注，由官方来改进这个问题。

用法及效果：

FMX 的绘图方法：

Box1Paint(Sender: TObject; Canvas: TCanvas); =Box1.LocalRect; Canvas.stroke.Thickness := stroke.Kind :=rushKind.solid; Canvas.stroke.Dash :=strokeDash.DashDotDot;

DesRect := Rect;
InflateRect(DesRect,-(Canvas.stroke.Thickness / 2),-(Canvas.stroke.Thickness / 2)); // 线在区内
Canvas.FillRect(DesRect,30,AllCorners,1);
Canvas.DrawRect(DesRect,30,1);
end;

说明AndroidiOSWindowsmacOS上面的代码，使用 FMX 绘图方法

（移动平台是有问题的）

下面的代码，使用原生绘图方法

（四个平台全部相同了）

下面改成原生绘图方案，只要在原有絵图代码前後加入二行代码（原绘图代码不用更动）：

procedure TForm1.PaintBox1Paint(Sender: TObject; Canvas: TCanvas);
var Rect,DesRect: TRectF;
begin
Rect := PaintBox1.LocalRect;
Canvas.stroke.Thickness := 10;
Canvas.stroke.Kind := TBrushKind.solid;
Canvas.stroke.Dash := TstrokeDash.DashDotDot;

{$IFDEF UseNativeDraw}Canvas.NativeDraw(Rect,procedure begin {$ENDIF} // 原生绘图 by Aone

DesRect := Rect;
InflateRect(DesRect,-(Canvas.stroke.Thickness / 2),-(Canvas.stroke.Thickness / 2)); // 线在区内
Canvas.FillRect(DesRect,30,1);
Canvas.DrawRect(DesRect,1);

{$IFDEF UseNativeDraw}end);{$ENDIF} // 原生绘图 by Aone
end;

运作原理：

它的运作原理很简单，就是先配置一个原生的绘图区域 Bitmap，再将几何图形画在这个区域里，最后将这个区域里的内容，转回 TBitmap，再显示到 Canvas 里
利用 Delphi Pascal Helper 语言特性，针对 TCanvas 来做扩展，如此才能达到不改动原有的绘图代码
目前这个作法，相同的绘图代码，可以跨四个平台：
- Android,iOS：使用原生绘图 TCanvasHelper 方法
- Windows,masOS：使用原来 TCanvas 方法（这二个平台本来就没有质量问题，所以不用重写）
我们无法触及 FMX 的最核心，只能利用这种 Bitmap 方式来变通，要知道这种方式可能带来的问题（记忆体及效能），才不致错用
注意：如果引用了 FMX.Graphics.Native 就必需使用下面的方式来写绘图代码，否则请不要引用：
{$IFDEF UseNativeDraw}Canvas.NativeDraw(Rect,procedure begin {$ENDIF} // 原生绘图 by Aone

// 绘图代码

{$IFDEF UseNativeDraw}end);{$ENDIF} // 原生绘图 by Aone

调用原生绘图的 TCanvas 函数：函数有质量问题）

polygonpolygonTBrush 涂刷 & TstrokeBrush 线刷：

支持所有涂刷特性，除了 Bitmap 涂色尚未支持（若有此需求，可自行修改源码，加入此特性）
FMX 在移动平台是不支持画线加渐层涂色，使用原生绘图，已经可以轻松实现（支持 Linear 线渐层及 Radial 圆渐层效果）：

原生FMX</tr>
<tr>
<td><img src="https://www.jb51.cc/res/2019/01-12/18/8b624ec2e99ecb2a9d631a3bdfa6f9a1.png" alt=""></td>
<td><img src="https://www.jb51.cc/res/2019/01-12/18/0ed9476e06ae334d9d2764a81c95f505.png" alt=""></td>

</tr>

</table>

Box1Paint(Sender: TObject; Canvas: TCanvas); =Box1.LocalRect; Canvas.stroke.Thickness := stroke.Kind :=rushKind.Gradient; Canvas.stroke.Dash :=strokeDash.DashDotDot; Canvas.stroke.Gradient.Color :=stroke.Gradient.Color1 :={$IFDEF UseNativeDraw}Canvas.NativeDraw(Rect,procedure begin {$ENDIF} // 原生绘图 by Aone

DesRect := Rect;
InflateRect(DesRect,1);