compilation fix for latest Lazarus

lazpaint/lazpaintinstance.pas

@@ -300,7 +300,7 @@ uses LCLType, Types, Dialogs, FileUtil, StdCtrls, LCLIntf, BGRAUTF8, UTranslatio
      unewimage, uresample, UPixelate, unoisefilter, ufilters,
      USharpen, uposterize, uhypocycloid, UPhongFilter, UFilterFunction,
      uprint, USaveOption, UFormRain,
-     {$IFDEF DARWIN}BGRAGraphics,{$ENDIF}
+     {$IFDEF DARWIN}Graphics, BGRAGraphics,{$ENDIF}
 
      ugraph, LCScaleDPI, ucommandline, uabout, UPython;
 
@@ -1462,7 +1462,7 @@ begin
     begin
       unscaled.GetBitmap(i, bmpUnscaled);
       retina.GetBitmap(i, bmpRetina);
-      result.AddMultipleResolutions([bmpUnscaled, bmpRetina]);
+      result.AddMultipleResolutions([TCustomBitmap(bmpUnscaled), TCustomBitmap(bmpRetina)]);
     end;
 
     bmpUnscaled.Free;

lazpaint/tools/utoolbrush.pas

@@ -327,7 +327,7 @@ begin
     if not SubPixelAccuracy then
       len := max(abs(v.x),abs(v.y))
     else
-      len := sqrt(v*v);
+      len := sqrt(v**v);
     minLen := round(power(BrushInfo.Size/10,0.8));
     if minLen < 1 then minLen := 1;
     if minLen > 5 then minLen := 5;

lazpaint/uimageview.pas

@@ -9,7 +9,7 @@ unit UImageView;
 interface
 
 uses
-  Classes, SysUtils, USelectionHighlight, BGRABitmap, BGRABitmapTypes,
+  Classes, SysUtils, USelectionHighlight, Types, BGRABitmap, BGRABitmapTypes,
   LazPaintType, UImage, UZoom, Graphics, Controls, LCLType, UImageObservation,
   laztablet, LMessages;
 
@@ -145,7 +145,7 @@ type
 
 implementation
 
-uses BGRATransform, LCLIntf, Types, ugraph, math, UTool, BGRAThumbnail, LCScaleDPI, Forms,
+uses BGRATransform, LCLIntf, ugraph, math, UTool, BGRAThumbnail, LCScaleDPI, Forms,
   UToolVectorial, ExtCtrls;
 
 procedure InvalidateControlRect(AControl: TControl; AArea: TRect);

lazpaintcontrols/lcvectorpolyshapes.pas

@@ -818,11 +818,11 @@ begin
     if segmentLen > 0 then
     begin
       u *= 1/segmentLen;
-      segmentPos := (FMousePos-Points[i])*u;
+      segmentPos := (FMousePos-Points[i])**u;
       if (segmentPos > 0) and (segmentPos< segmentLen) then
       begin
         n := PointF(u.y,-u.x);
-        segmentDist := abs((FMousePos-Points[i])*n);
+        segmentDist := abs((FMousePos-Points[i])**n);
         if segmentDist <= bestSegmentDist then
         begin
           bestSegmentDist := segmentDist;

lazpaintcontrols/lcvectorrectshapes.pas

@@ -489,7 +489,7 @@ begin
     FOrigin := FOriginBackup;
   end else
   begin
-    newSize := AFactor*FXUnitBackup*(ANewCoord-FOriginBackup);
+    newSize := AFactor*FXUnitBackup**(ANewCoord-FOriginBackup);
     if ssShift in AShift then
     begin
       FXAxis := FOriginBackup+FXUnitBackup*newSize;
@@ -528,7 +528,7 @@ begin
     FOrigin := FOriginBackup;
   end else
   begin
-    newSizeY := AFactor*FYUnitBackup*(ANewCoord-FOriginBackup);
+    newSizeY := AFactor*FYUnitBackup**(ANewCoord-FOriginBackup);
     if ssShift in AShift then
     begin
       FYAxis := FOriginBackup+FYUnitBackup*newSizeY;