paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

LazMapViewer: Make TMapView respond to keyboard events.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9700 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2025-03-24 17:42:51 +00:00
parent f7d9f1cbd8
commit 7677def6cf
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/lazmapviewer/source/mvmapviewer.pas
View File

@ -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;