From 7677def6cf6eb668f34dfa2d7d91a2069772c69e Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 24 Mar 2025 17:42:51 +0000
Subject: [PATCH] LazMapViewer: Make TMapView respond to keyboard events.

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

diff --git a/components/lazmapviewer/source/mvmapviewer.pas b/components/lazmapviewer/source/mvmapviewer.pas
index a47dc0bf6..ba7ce209e 100644
--- a/components/lazmapviewer/source/mvmapviewer.pas
+++ b/components/lazmapviewer/source/mvmapviewer.pas
@@ -781,6 +781,8 @@ type
       property POIImagesWidth: Integer read FPOIImagesWidth write SetPOIImagesWidth default 0;
       property POITextBgColor: TColor read FPOITextBgColor write SetPOITextBgColor default clNone;
       property PopupMenu;
+      property TabOrder;
+      property TabStop;
       property TransparentMap: Boolean read FTransparentMap write SetTransparentMap default false;
       property UseThreads: boolean read GetUseThreads write SetUseThreads default true;
       property Width default 150;
@@ -805,6 +807,9 @@ type
       property OnDrawEditMark: TMapEditMarkDrawEvent read FEditMarkDrawEvent write FEditMarkDrawEvent;
       property OnZoomChange: TNotifyEvent read FOnZoomChange write FOnZoomChange;
       property OnZoomChanging: TZoomChangingEvent read FOnZoomChanging write FOnZoomChanging;
+      property OnKeyDown;
+      property OnKeyPress;
+      property OnKeyUp;
       property OnMouseDown;
       property OnMouseEnter;
       property OnMouseLeave;
@@ -3764,7 +3769,7 @@ var
   I: Integer;
 begin
   inherited Create(AOwner);
-  ControlStyle := ControlStyle + [csAcceptsControls];
+  ControlStyle := ControlStyle + [csAcceptsControls] - [csNoFocus];
 
   Width := 150;
   Height := 150;