From 863690f0669a5660fd7f52a86fc07b6af028f669 Mon Sep 17 00:00:00 2001
From: zeljko <zeljko@lazarus-ide.org>
Date: Sat, 24 Sep 2011 18:58:39 +0000
Subject: [PATCH] LCL: fixed bug in TControl.IsEnabled, must check for local
 control pointer.

git-svn-id: trunk@32505 -
---
 lcl/include/control.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/include/control.inc b/lcl/include/control.inc
index b79680d9c6..08f3c922fd 100644
--- a/lcl/include/control.inc
+++ b/lcl/include/control.inc
@@ -672,7 +672,7 @@ begin
   repeat
     Result := TheControl.Enabled;
     TheControl := TheControl.Parent;
-  until (not Result) or (TheControl.Parent = nil);
+  until (TheControl = nil) or (not Result) or (TheControl.Parent = nil);
 end;
 
 function TControl.FormIsUpdating: boolean;