From 49c88c1cb18ebc8fd8d89d505eea8796f52d0670 Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graemeg@gmail.com>
Date: Tue, 17 Jul 2012 17:23:21 +0100
Subject: Extra debug output added to TfpgWidget.HandleAlignments

---
 src/corelib/fpg_widget.pas | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/corelib/fpg_widget.pas b/src/corelib/fpg_widget.pas
index 3e4c5bc9..440645c4 100644
--- a/src/corelib/fpg_widget.pas
+++ b/src/corelib/fpg_widget.pas
@@ -1316,7 +1316,12 @@ begin
   itf := DebugMethodEnter('TfpgWidget.HandleAlignments - ' + ClassName + ' ('+Name+')');
   {$ENDIF}
   if (csLoading in ComponentState) then
+  begin
+    {$IFDEF CStackDebug}
+    DebugLn('HandleAlignments ('+Name+'): csLoading detected, so we exit early');
+    {$ENDIF}
     Exit;  //==>
+  end;
 
   {$IFDEF CStackDebug}
   DebugLn(Format('dwidth=%d  dheight=%d  Classname=''%s''', [dwidth, dheight, ClassName]));
-- 
cgit v1.2.3-70-g09d2