32.使用 Canvas.DrawPath 绘制时，最后一点无法画到终点位置。（使用 DrawPath 断线问题 这个问题要在粗线才能察觉） by 龟山阿卍.docVIP

[修复] Firemonkey 使用 DrawPath 断线问题（Android iOS 平台） /onechen/p/5319631.html问题：使用 Canvas.DrawPath 绘制时，最后一点无法画到终点位置。（这个问题要在粗线才能察觉） 适用：Delphi 10 Seattle （或更早的版本） for Android iOS 修复方法： 请将源码 FMX.StrokeBuilder.pas?复制到自己的工程目录里，再进行修改。 procedure TStrokeBuilder.BuildSolidPolygon(const Points: TPolygon; const Opacity: Single; BreakAtEnd: Boolean); ...略... while CurIndex Length(Points) do begin if (CurIndex = Length(Points) - 1) and BreakAtEnd and (Points[0] Points[Length(Points) - 1]) then {---删除这行 Break;} {+++新增代码} // 修复曲线最后一点断线的问题 by Aone (2016/03/25) begin PieceDirVec := (DestPos - SrcPos).Normalize; ThickPerp := TPointF.Create(-PieceDirVec.Y, PieceDirVec.X) * FHalfThickness; InsertVertex(DestPos - ThickPerp, FStrokeColor); InsertVertex(DestPos + ThickPerp, FStrokeColor); if PrevVerticesPlaced then begin InsertIndex(FCurrentVertex - 3); InsertIndex(FCurrentVertex - 1); InsertIndex(FCurrentVertex - 2); InsertIndex(FCurrentVertex - 2); InsertIndex(FCurrentVertex - 4); InsertIndex(FCurrentVertex - 3); end; Break; end; {+++} ...略... end; 效果：