From 1e63bb30753ef4b92bdc91ee74d3a5f8ea2380f5 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Thu, 12 Dec 2024 23:30:41 +0000
Subject: [PATCH] LazMapViewer: Publish properties Anchors and BorderSpacing

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9522 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../examples/plugin_demos/grid_demo/main.lfm  | 22 ++++++++++---------
 .../lazmapviewer/source/mvmapviewer.pas       |  2 ++
 2 files changed, 14 insertions(+), 10 deletions(-)

diff --git a/components/lazmapviewer/examples/plugin_demos/grid_demo/main.lfm b/components/lazmapviewer/examples/plugin_demos/grid_demo/main.lfm
index 6767e7b36..ba3a8b15f 100644
--- a/components/lazmapviewer/examples/plugin_demos/grid_demo/main.lfm
+++ b/components/lazmapviewer/examples/plugin_demos/grid_demo/main.lfm
@@ -1,20 +1,22 @@
 object Form1: TForm1
   Left = 314
-  Height = 568
+  Height = 524
   Top = 130
-  Width = 871
+  Width = 884
   Caption = 'Grid Plugin Demo'
-  ClientHeight = 568
-  ClientWidth = 871
+  ClientHeight = 524
+  ClientWidth = 884
   LCLVersion = '4.99.0.0'
   OnCreate = FormCreate
   object MapView: TMapView
     Left = 157
-    Height = 568
-    Top = 0
-    Width = 714
+    Height = 508
+    Top = 8
+    Width = 719
     Active = True
     Align = alClient
+    Anchors = [akTop, akRight, akBottom]
+    BorderSpacing.Around = 8
     Cyclic = True
     DownloadEngine = MapView.BuiltInDLE
     DrawingEngine = MapView.BuiltInDE
@@ -25,18 +27,18 @@ object Form1: TForm1
     MapCenter.Latitude = 49
     PluginManager = PluginManager
     UseThreads = True
-    Zoom = 8
+    Zoom = 3
   end
   object ParamsPanel: TPanel
     Left = 8
-    Height = 552
+    Height = 508
     Top = 8
     Width = 141
     Align = alLeft
     AutoSize = True
     BorderSpacing.Around = 8
     BevelOuter = bvNone
-    ClientHeight = 552
+    ClientHeight = 508
     ClientWidth = 141
     TabOrder = 0
     object cbEnabled: TCheckBox
diff --git a/components/lazmapviewer/source/mvmapviewer.pas b/components/lazmapviewer/source/mvmapviewer.pas
index 5e81b456d..c3deefc4d 100644
--- a/components/lazmapviewer/source/mvmapviewer.pas
+++ b/components/lazmapviewer/source/mvmapviewer.pas
@@ -703,6 +703,8 @@ type
     published
       property Active: boolean read FActive write SetActive default false;
       property Align;
+      property Anchors;
+      property BorderSpacing;
       property CacheOnDisk: boolean read GetCacheOnDisk write SetCacheOnDisk default true;
       property CacheLocation: TCacheLocation read FCacheLocation write SetCacheLocation default clProfile;
       property CachePath: String read FCachePath write SetCachePath stored IsCachePathStored;