LazMapViewer: Add icon for TMvBGRADrawingengine. Less hints. Preparing for release.

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

components/lazmapviewer/example/main.lfm

@@ -21,7 +21,6 @@ object MainForm: TMainForm
     CachePath = '../../../../example_cache/'
     DefaultTrackColor = clBlue
     DefaultTrackWidth = 3
-    DownloadEngine = MapView.BuiltInDLE
     DrawingEngine = MapView.BuiltInDE
     Font.Color = clBlack
     MapProvider = 'OpenStreetMap Mapnik'

components/lazmapviewer/source/mvde_intfgraphics.pas

@@ -414,7 +414,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];
@@ -424,7 +424,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/mvdlefpc.pas

@@ -94,6 +94,7 @@ begin
     try
       http.Get(Url, AStream);
     except
+      // Eat the exception because we don't know on which server the map is found.
     end;
     AStream.Position := 0;
   finally