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

LazMapViewer: Activate ControlStyle csAcceptsControls in TMapView (allowing to add any controls to the map viewer). Issue #39090.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9554 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2024-12-29 00:15:28 +00:00
parent 2a66f07424
commit 44cbf67019
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -27,9 +27,8 @@ interface
uses uses
Classes, SysUtils, Types, fgl, FPImage, Classes, SysUtils, Types, fgl, FPImage,
LazFileUtils, GraphType, LazFileUtils, GraphType, IntfGraphics, Graphics,
Controls, Graphics, IntfGraphics, Forms, Controls, ImgList, ExtCtrls, LCLVersion,
Forms, ImgList, LCLVersion,
mvTypes, mvGeoMath, mvGPSObj, mvDragObj, mvCache, mvExtraData, mvTypes, mvGeoMath, mvGPSObj, mvDragObj, mvCache, mvExtraData,
mvEngine, mvMapProvider, mvDownloadEngine, mvDrawingEngine; mvEngine, mvMapProvider, mvDownloadEngine, mvDrawingEngine;
@ -3298,6 +3297,7 @@ var
I: Integer; I: Integer;
begin begin
inherited Create(AOwner); inherited Create(AOwner);
ControlStyle := ControlStyle + [csAcceptsControls];
Width := 150; Width := 150;
Height := 150; Height := 150;