LazMapViewer: Add icon for BGRADrawingEngine to resource. Less hints.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7338 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/lazmapviewer/source/addons/bgra_drawingengine/mvde_bgra.pas

@@ -116,8 +116,6 @@ procedure TMvBGRADrawingEngine.DrawLazIntfImage(X, Y: Integer;
 //http://mantis.freepascal.org/view.php?id=27144
 var
   temp: TBGRABitmap;
-  rawImg: TRawImage;
-  intfImg: TLazIntfImage;
 begin
   temp:=TBGRABitmap.Create(AImg);
   try
@@ -354,7 +352,7 @@ begin
       img := bmp.CreateIntfImage;
       try
         fc := TColorToFPColor(bmp.Canvas.Font.Color);
-        intens0 := (fc.Red + fc.Green + fc.Blue);
+        intens0 := Int64(fc.Red) + fc.Green + fc.Blue;
         for j := 0 to img.Height - 1 do
           for i := 0 to img.Width - 1 do begin
             c := bmp.Canvas.Pixels[i, j];
@@ -364,7 +362,7 @@ begin
             else if c = FFontColor then
               tc.Alpha := alphaOpaque
             else begin
-              intens := tc.Red + tc.Green + tc.Blue;
+              intens := Int64(tc.Red) + tc.Green + tc.Blue;
               if intens0 = 0 then
                 alpha := (3 * alphaopaque - intens) / (3 * alphaOpaque - intens0)
               else

components/lazmapviewer/source/addons/rgbgraphics_drawingengine/mvde_rgbgraphics.pas

@@ -115,7 +115,6 @@ procedure TMvRGBGraphicsDrawingEngine.DrawLazIntfImage(X, Y: Integer;
   AImg: TLazIntfImage);
 //http://mantis.freepascal.org/view.php?id=27144
 var
-  temp: TRGB32Bitmap;
   rawImg: TRawImage;
   intfImg: TLazIntfImage;
 begin
@@ -363,7 +362,7 @@ begin
       img := bmp.CreateIntfImage;
       try
         fc := TColorToFPColor(bmp.Canvas.Font.Color);
-        intens0 := (fc.Red + fc.Green + fc.Blue);
+        intens0 := Int64(fc.Red) + fc.Green + fc.Blue;
         for j := 0 to img.Height - 1 do
           for i := 0 to img.Width - 1 do begin
             c := bmp.Canvas.Pixels[i, j];
@@ -373,7 +372,7 @@ begin
             else if c = FFontColor then
               tc.Alpha := alphaOpaque
             else begin
-              intens := tc.Red + tc.Green + tc.Blue;
+              intens := Int64(tc.Red) + tc.Green + tc.Blue;
               if intens0 = 0 then
                 alpha := (3 * alphaopaque - intens) / (3 * alphaOpaque - intens0)
               else

components/lazmapviewer/source/mvde_lcl.pas

@@ -33,7 +33,7 @@ type
       destructor Destroy; override;
       procedure CreateBuffer(AWidth, AHeight: Integer); override;
       procedure DrawBitmap(X, Y: Integer; ABitmap: TCustomBitmap;
-        UseAlphaChannel: Boolean); override;
+        {%H-}UseAlphaChannel: Boolean); override;
       procedure DrawLazIntfImage(X, Y: Integer; AImg: TLazIntfImage); override;
       procedure Ellipse(X1, Y1, X2, Y2: Integer); override;
       procedure FillRect(X1, Y1, X2, Y2: Integer); override;

components/lazmapviewer/source/mvgeonames.pas

@@ -156,7 +156,7 @@ end;
 
 procedure TMvGeoNames.FoundTextHandler(AText: String);
 var
-  code: Integer;
+  {%H-}code: Integer;
 begin
   if not FInDataRows or (AText = #10) then
     exit;

components/lazmapviewer/source/mvjobqueue.pas

@@ -137,7 +137,7 @@ type
     FTask: integer;
   protected
     procedure DoCancel; override;
-    procedure pTaskStarted(aTask: integer); override;
+    procedure pTaskStarted({%H-}aTask: integer); override;
     procedure pTaskEnded(aTask: integer; aExcept: Exception); override;
     function pGetTask: integer; override;
   public

components/lazmapviewer/source/mvmapviewer.pas

@@ -96,7 +96,7 @@ Type
       procedure ActivateEngine;
       procedure DblClick; override;
       procedure DoDrawTile(const TileId: TTileId; X,Y: integer; TileImg: TLazIntfImage);
-      procedure DoDrawTileInfo(const TileID: TTileID; X,Y: Integer);
+      procedure DoDrawTileInfo(const {%H-}TileID: TTileID; X,Y: Integer);
       function DoMouseWheel(Shift: TShiftState; WheelDelta: Integer;
         MousePos: TPoint): Boolean; override;
       procedure DoOnResize; override;