From d46dae3faa6111c90034d70db42be32d6a5fc17b Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 10 Mar 2025 21:56:53 +0000
Subject: [PATCH] LazMapViewer: Apply EditMark.CursorShape only when mouse is
 over MapView

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9671 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/lazmapviewer/source/mvmapviewer.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/components/lazmapviewer/source/mvmapviewer.pas b/components/lazmapviewer/source/mvmapviewer.pas
index 973df24e5..c42c83bee 100644
--- a/components/lazmapviewer/source/mvmapviewer.pas
+++ b/components/lazmapviewer/source/mvmapviewer.pas
@@ -2977,7 +2977,8 @@ procedure TMapView.MouseMove(Shift: TShiftState; X, Y: Integer);
       Hits := Layers.HitTest(A);
       try
         FEditMark.UpdateFrom(Hits);
-        Screen.Cursor := FEditMark.CursorShape;
+        Cursor := FEditMark.CursorShape;
+//        Screen.Cursor := FEditMark.CursorShape;
       finally
         Hits.Free;
       end;