From 2d708f59bf39425f76967f68e76a81c9d051d09c Mon Sep 17 00:00:00 2001
From: blikblum <blikblum@lazarus-ide.org>
Date: Wed, 31 Oct 2012 02:44:08 +0000
Subject: [PATCH] lcl: add missing checks for FControl in TControlBorderSpacing

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

diff --git a/lcl/controls.pp b/lcl/controls.pp
index befe24cf74..18800f1ddf 100644
--- a/lcl/controls.pp
+++ b/lcl/controls.pp
@@ -3235,7 +3235,10 @@ end;
 
 function TControlBorderSpacing.IsInnerBorderStored: boolean;
 begin
-  Result:=Control.IsBorderSpacingInnerBorderStored;
+  if Control <> nil then
+    Result:=Control.IsBorderSpacingInnerBorderStored
+  else
+    Result:=True;
 end;
 
 function TControlBorderSpacing.IsLeftStored: boolean;
@@ -3402,7 +3405,8 @@ end;
 
 procedure TControlBorderSpacing.Change(InnerSpaceChanged: Boolean);
 begin
-  FControl.DoBorderSpacingChange(Self,InnerSpaceChanged);
+  if FControl <> nil then
+    FControl.DoBorderSpacingChange(Self,InnerSpaceChanged);
   if Assigned(OnChange) then OnChange(Self);
 end;