From 2403a04edb7e9a81eb38565252cfb2756321e45b Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 15 Jan 2024 12:15:22 +0000
Subject: [PATCH] LazMapViewer: In TMapView, replace some calls to
 Engine.Redraw by Invalidate

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9143 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/lazmapviewer/source/mvmapviewer.pas | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/components/lazmapviewer/source/mvmapviewer.pas b/components/lazmapviewer/source/mvmapviewer.pas
index a6d265f41..565af7ccd 100644
--- a/components/lazmapviewer/source/mvmapviewer.pas
+++ b/components/lazmapviewer/source/mvmapviewer.pas
@@ -502,7 +502,7 @@ end;
 procedure TMapView.SetCyclic(AValue: Boolean);
 begin
   Engine.Cyclic := AValue;
-  Engine.Redraw;
+  Invalidate;
 end;
 
 procedure TMapView.SetDebugTiles(AValue: Boolean);
@@ -597,28 +597,28 @@ procedure TMapView.SetPOIImage(const AValue: TBitmap);
 begin
   if FPOIImage = AValue then exit;
   FPOIImage := AValue;
-  Engine.Redraw;
+  Invalidate;
 end;
 
 procedure TMapView.SetPOIImages(const AValue: TCustomImageList);
 begin
   if FPOIImages = AValue then exit;
   FPOIImages := AValue;
-  Engine.Redraw;
+  Invalidate;
 end;
 
 procedure TMapView.SetPOIImagesWidth(AValue: Integer);
 begin
   if FPOIImagesWidth = AValue then exit;
   FPOIImagesWidth := AValue;
-  Engine.Redraw;
+  Invalidate;
 end;
 
 procedure TMapView.SetPOITextBgColor(AValue: TColor);
 begin
   if FPOITextBgColor = AValue then exit;
   FPOITextBgColor := AValue;
-  Engine.Redraw;
+  Invalidate;
 end;
 
 procedure TMapView.SetUseThreads(AValue: boolean);
@@ -629,6 +629,7 @@ end;
 procedure TMapView.SetZoom(AValue: integer);
 begin
   Engine.Zoom := AValue;
+  Invalidate;
 end;
 
 procedure TMapView.SetZoomToCursor(AValue: Boolean);