From 0f7890690f7657d4e7cba456cf40dda8d670aa59 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 26 Apr 2014 08:29:52 +0000
Subject: [PATCH] lcl: made TControlBorderSpacing.GetSpace/GetSpaceAround
 virtual, patch #26048

git-svn-id: trunk@44805 -
---
 lcl/controls.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lcl/controls.pp b/lcl/controls.pp
index 50af54f628..46c435831a 100644
--- a/lcl/controls.pp
+++ b/lcl/controls.pp
@@ -718,9 +718,9 @@ type
     procedure Assign(Source: TPersistent); override;
     procedure AssignTo(Dest: TPersistent); override;
     function IsEqual(Spacing: TControlBorderSpacing): boolean;
-    procedure GetSpaceAround(var SpaceAround: TRect);
+    procedure GetSpaceAround(var SpaceAround: TRect); virtual;
     function GetSideSpace(Kind: TAnchorKind): Integer; // Around+GetSpace
-    function GetSpace(Kind: TAnchorKind): Integer;
+    function GetSpace(Kind: TAnchorKind): Integer; virtual;
   public
     property Control: TControl read FControl;
     property Space[Kind: TAnchorKind]: integer read GetSpace write SetSpace;