less hints

lazpaint/tools/utool.pas

@@ -88,8 +88,8 @@ type
     function ToolKeyUp(var key: Word): TRect; virtual;
     function ToolKeyPress(var key: TUTF8Char): TRect; virtual;
     function ToolUp: TRect; virtual;
-    function ToolCommand(ACommand: TToolCommand): boolean; virtual;
-    function ToolProvideCommand(ACommand: TToolCommand): boolean; virtual;
+    function ToolCommand({%H-}ACommand: TToolCommand): boolean; virtual;
+    function ToolProvideCommand({%H-}ACommand: TToolCommand): boolean; virtual;
     function GetContextualToolbars: TContextualToolbars; virtual;
     function GetToolDrawingLayer: TBGRABitmap;
     procedure RestoreBackupDrawingLayer;

lazpaintcontrols/lcvectororiginal.pas

@@ -2863,7 +2863,6 @@ end;
 
 procedure TVectorOriginal.MoveShapeToIndex(AFromIndex: integer; AToIndex: integer);
 var
-  movedShape: TVectorShape;
   diff: TVectorOriginalMoveShapeToIndexDiff;
 begin
   diff := TVectorOriginalMoveShapeToIndexDiff.Create(AFromIndex,AToIndex);

lazpaintcontrols/lcvectorrectshapes.pas

@@ -108,7 +108,7 @@ type
   public
     constructor Create(AContainer: TVectorOriginal); override;
     class function Fields: TVectorShapeFields; override;
-    function GetAlignBounds(const ALayoutRect: TRect; const AMatrix: TAffineMatrix): TRectF; override;
+    function GetAlignBounds(const {%H-}ALayoutRect: TRect; const AMatrix: TAffineMatrix): TRectF; override;
     procedure Render(ADest: TBGRABitmap; AMatrix: TAffineMatrix; ADraft: boolean); override;
     function GetRenderBounds({%H-}ADestRect: TRect; AMatrix: TAffineMatrix; AOptions: TRenderBoundsOptions = []): TRectF; override;
     function PointInShape(APoint: TPointF): boolean; override;

lazpaintcontrols/lcvectortextshapes.pas

@@ -164,7 +164,7 @@ type
     function CutSelection: boolean;
     function PasteSelection: boolean;
     function DeleteSelection: boolean;
-    function GetAlignBounds(const ALayoutRect: TRect; const AMatrix: TAffineMatrix): TRectF; override;
+    function GetAlignBounds(const {%H-}ALayoutRect: TRect; const AMatrix: TAffineMatrix): TRectF; override;
     procedure Transform(const AMatrix: TAffineMatrix); override;
     property HasSelection: boolean read GetHasSelection;
     property CanPasteSelection: boolean read GetCanPasteSelection;