ソースを参照

compile with latest FPC

Juliette ELSASS 3 ヶ月 前
コミット
27c2702e47
1 ファイル変更1 行追加1 行削除
  1. 1 1
      lazpaint/ugraph.pas

+ 1 - 1
lazpaint/ugraph.pas

@@ -1206,7 +1206,7 @@ begin
   w := FramePenWidth*ACanvasScale/10 / 2 + 1;
   w := FramePenWidth*ACanvasScale/10 / 2 + 1;
   rF := EmptyRectF;
   rF := EmptyRectF;
   for pt in APoints do
   for pt in APoints do
-    rF := rF.Union(RectF(pt + PointF(0.5, 0.5) - PointF(w, w),
+    rF := rF.Union(BGRABitmapTypes.RectF(pt + PointF(0.5, 0.5) - PointF(w, w),
       pt + PointF(0.5, 0.5) + PointF(w, w)));
       pt + PointF(0.5, 0.5) + PointF(w, w)));
   result := rect(floor(rF.Left), floor(rF.Top),
   result := rect(floor(rF.Left), floor(rF.Top),
     ceil(rF.Right), ceil(rF.Bottom));
     ceil(rF.Right), ceil(rF.Bottom));