diff --git a/components/lazmapviewer/example/main.lfm b/components/lazmapviewer/example/main.lfm index 3ef9ba3ca..6b193f7c5 100644 --- a/components/lazmapviewer/example/main.lfm +++ b/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' diff --git a/components/lazmapviewer/images/tmvbgradrawingengine.png b/components/lazmapviewer/images/tmvbgradrawingengine.png new file mode 100644 index 000000000..7c67af500 Binary files /dev/null and b/components/lazmapviewer/images/tmvbgradrawingengine.png differ diff --git a/components/lazmapviewer/images/tmvbgradrawingengine_150.png b/components/lazmapviewer/images/tmvbgradrawingengine_150.png new file mode 100644 index 000000000..cccb3d6c4 Binary files /dev/null and b/components/lazmapviewer/images/tmvbgradrawingengine_150.png differ diff --git a/components/lazmapviewer/images/tmvbgradrawingengine_200.png b/components/lazmapviewer/images/tmvbgradrawingengine_200.png new file mode 100644 index 000000000..7f9774e28 Binary files /dev/null and b/components/lazmapviewer/images/tmvbgradrawingengine_200.png differ diff --git a/components/lazmapviewer/source/mvde_intfgraphics.pas b/components/lazmapviewer/source/mvde_intfgraphics.pas index 98326203b..b8875fe57 100644 --- a/components/lazmapviewer/source/mvde_intfgraphics.pas +++ b/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 diff --git a/components/lazmapviewer/source/mvdlefpc.pas b/components/lazmapviewer/source/mvdlefpc.pas index 4eb94c20c..2b1df5205 100644 --- a/components/lazmapviewer/source/mvdlefpc.pas +++ b/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