avoid compilation hints

.gitignore

@@ -28,3 +28,5 @@ lazpaint/dialog/filter/backup/
 lazpaint/release/bin/lazpaint
 
 lazpaint/tools/backup/
+
+lazpaint/image/backup/

lazpaint/image/uimagediff.pas

@@ -452,7 +452,7 @@ type
 implementation
 
 uses BGRAWriteLzp, BGRAReadLzp, UImageState, BGRAStreamLayers, BGRALzpCommon, ugraph, Types,
-  BGRATransform, zstream, LCVectorRectShapes, BGRAPen, math;
+  BGRATransform, zstream, LCVectorRectShapes, BGRAPen;
 
 function IsInverseImageDiff(ADiff1, ADiff2: TCustomImageDifference): boolean;
 begin

lazpaint/tools/utoolfloodfill.pas

@@ -27,7 +27,7 @@ type
   protected
     function CreateShape: TVectorShape; override;
     procedure DrawCustomShape(ADest: TBGRABitmap; AMatrix: TAffineMatrix; ADraft: boolean); override;
-    procedure AssignShapeStyle(AMatrix: TAffineMatrix); override;
+    procedure AssignShapeStyle({%H-}AMatrix: TAffineMatrix); override;
     procedure QuickDefineShape(AStart,AEnd: TPointF); override;
     function SlowShape: boolean; override;
     function GetStatusText: string; override;

lazpaint/tools/utoolphong.pas

@@ -14,11 +14,12 @@ type
   TToolPhong = class(TVectorialTool)
   protected
     FMatrix: TAffineMatrix;
-    constructor Create(AManager: TToolManager); override;
     procedure ShapeChange({%H-}ASender: TObject; ABounds: TRectF); override;
     procedure AssignShapeStyle(AMatrix: TAffineMatrix); override;
     function CreateShape: TVectorShape; override;
     function SlowShape: boolean; override;
+  public
+    constructor Create(AManager: TToolManager); override;
   end;
 
 implementation

lazpaint/tools/utoolpolygon.pas

@@ -32,10 +32,10 @@ type
     FCurveModeHintShown: Boolean;
     function GetCurrentMode: TToolSplineMode;
     procedure SetCurrentMode(AValue: TToolSplineMode);
-    procedure UpdateUserMode; override;
   protected
     function CreateShape: TVectorShape; override;
     procedure AssignShapeStyle(AMatrix: TAffineMatrix); override;
+    procedure UpdateUserMode; override;
   public
     constructor Create(AManager: TToolManager); override;
     function ToolKeyPress(var key: TUTF8Char): TRect; override;

lazpaint/tools/utoolselect.pas

@@ -14,7 +14,7 @@ type
   TVectorialSelectTool = class(TVectorialTool)
   protected
     function GetIsSelectingTool: boolean; override;
-    procedure AssignShapeStyle(AMatrix: TAffineMatrix); override;
+    procedure AssignShapeStyle({%H-}AMatrix: TAffineMatrix); override;
     function RoundCoordinate(ptF: TPointF): TPointF; override;
     function UpdateShape(toolDest: TBGRABitmap): TRect; override;
     procedure QuickDefineEnd; override;

lazpaint/ulayerstack.pas

@@ -42,8 +42,8 @@ type
       Y: Integer);
     procedure BGRALayerStackMouseUp(Sender: TObject; Button: TMouseButton;
       {%H-}Shift: TShiftState; X, Y: Integer);
-    procedure BGRALayerStackMouseWheel(Sender: TObject; Shift: TShiftState;
-      WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
+    procedure BGRALayerStackMouseWheel(Sender: TObject; {%H-}Shift: TShiftState;
+      WheelDelta: Integer; {%H-}MousePos: TPoint; var Handled: Boolean);
     procedure BGRALayerStackRedraw(Sender: TObject; Bitmap: TBGRABitmap);
     procedure BGRALayerStackResize(Sender: TObject);
     procedure ComboBox_BlendOpChange(Sender: TObject);
@@ -1003,6 +1003,7 @@ procedure TFLayerStack.BGRALayerStackMouseWheel(Sender: TObject;
   var Handled: Boolean);
 begin
   DoScrollVertically(round(-WheelDelta*ZoomFactor*50/120));
+  Handled := true;
 end;
 
 {$R *.lfm}