unit FMX.StrokeBuilder;

interface

...略...

{+++>}var GlobeStrokeStepSize: Single = ; // 全局变量：曲线平滑度（像素）by Aone @ 2016.10.12

implementation

...略...

procedure TStrokeBuilder.BuildSolidPolygon(const Points: TPolygon; const Opacity: Single; BreakAtEnd: Boolean);

...略...

{---> 删除代码下面三行代码 by Aone @ 2016.10.12

  StepSize := FThickness; // 曲线精密度，设定为前线宽（如果线越宽，画出来的曲线就越粗糙）

  if StepSize < 2 then // 防止曲线精密度小于2

    StepSize := 2;

<---}

{+++>}StepSize := GlobeStrokeStepSize; // 全局变量：曲线平滑度（像素）by Aone @ 2016.10.12

...略...

end;