From cc3adb8d445454600334a4aa8da088b86cb2e620 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Tue, 13 Mar 2012 06:15:47 +0000
Subject: [PATCH] lcl: set missing csReadingState flag when Control executes a
 ReadState

git-svn-id: trunk@35915 -
---
 lcl/include/control.inc | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lcl/include/control.inc b/lcl/include/control.inc
index 2188bea021..8d9e886a1c 100644
--- a/lcl/include/control.inc
+++ b/lcl/include/control.inc
@@ -3559,11 +3559,13 @@ end;
 
 procedure TControl.ReadState(Reader: TReader);
 begin
-  Include(FControlFlags,cfLoading);
+  Include(FControlFlags, cfLoading);
   DisableAutoSizing{$IFDEF DebugDisableAutoSizing}('TControl.ReadState'){$ENDIF};
   try
+    Include(FControlState, csReadingState);
     inherited ReadState(Reader);
   finally
+    Exclude(FControlState, csReadingState);
     EnableAutoSizing{$IFDEF DebugDisableAutoSizing}('TControl.ReadState'){$ENDIF};
   end;
 end;