dz论坛做分类网站,南庄顺德网站建设,怎么快速推广app,网站空间文件删不掉问题#xff1a;使用 Canvas.DrawPath 绘制时#xff0c;最后一点无法画到终点位置。#xff08;这个问题要在粗线才能察觉#xff09; 适用#xff1a;Delphi 10 Seattle #xff08;或更早的版本#xff09; for Android iOS 修复方法#xff1a; 请将源码 FMX…问题使用 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) dobeginif (CurIndex Length(Points) - 1) and BreakAtEnd and (Points[0] Points[Length(Points) - 1]) then {---删除这行 Break;} {新增代码}// 修复曲线最后一点断线的问题 by Aone (2016/03/25)beginPieceDirVec : (DestPos - SrcPos).Normalize;ThickPerp : TPointF.Create(-PieceDirVec.Y, PieceDirVec.X) * FHalfThickness;InsertVertex(DestPos - ThickPerp, FStrokeColor);InsertVertex(DestPos ThickPerp, FStrokeColor);if PrevVerticesPlaced thenbeginInsertIndex(FCurrentVertex - 3);InsertIndex(FCurrentVertex - 1);InsertIndex(FCurrentVertex - 2);InsertIndex(FCurrentVertex - 2);InsertIndex(FCurrentVertex - 4);InsertIndex(FCurrentVertex - 3);end;Break;end; {}...略...end; 效果   官方有人提交 QC 了  RSP-14309: [iOS Android] Delphi 10.1 Berlin - drawing problemshttps://quality.embarcadero.com/browse/RSP-14309  转载于:https://www.cnblogs.com/onechen/p/5319631.html