瀏覽代碼

using ToPoints helper

Unknown 7 年之前
父節點
當前提交
ccf1ccec04
共有 2 個文件被更改,包括 2 次插入2 次删除
  1. 1 1
      lazpaint/utoolpolygon.pas
  2. 1 1
      lazpaint/utoolselect.pas

+ 1 - 1
lazpaint/utoolpolygon.pas

@@ -364,7 +364,7 @@ begin
   if Manager.ToolSplineEasyBezier then
   if Manager.ToolSplineEasyBezier then
   begin
   begin
     NeedCurveMode;
     NeedCurveMode;
-    splinePoints := ComputeEasyBezier(EasyBezierCurve(polygonPoints,Manager.ToolOptionCloseShape,FCurveMode,EasyBezierMinimumDotProduct));
+    splinePoints := EasyBezierCurve(polygonPoints,Manager.ToolOptionCloseShape,FCurveMode,EasyBezierMinimumDotProduct).ToPoints;
   end else
   end else
   begin
   begin
     if Manager.ToolOptionCloseShape then
     if Manager.ToolOptionCloseShape then

+ 1 - 1
lazpaint/utoolselect.pas

@@ -606,7 +606,7 @@ begin
   if Manager.ToolSplineEasyBezier then
   if Manager.ToolSplineEasyBezier then
   begin
   begin
     NeedCurveMode;
     NeedCurveMode;
-    splinePoints := ComputeEasyBezier(EasyBezierCurve(polygonPoints,True,FCurveMode,EasyBezierMinimumDotProduct));
+    splinePoints := EasyBezierCurve(polygonPoints,True,FCurveMode,EasyBezierMinimumDotProduct).ToPoints;
   end else
   end else
     splinePoints := toolDest.ComputeClosedSpline(polygonPoints,Manager.ToolSplineStyle);
     splinePoints := toolDest.ComputeClosedSpline(polygonPoints,Manager.ToolSplineStyle);
   FRenderedPolygonPoints := splinePoints;
   FRenderedPolygonPoints := splinePoints;