From c70222fe4e7f7c1108858490826f49f05504948f Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Fri, 19 Mar 2010 11:24:42 +0000
Subject: [PATCH] LCL: debugging for disableautosizing

git-svn-id: trunk@24096 -
---
 lcl/controls.pp            | 2 +-
 lcl/include/control.inc    | 3 ++-
 lcl/include/customform.inc | 2 +-
 3 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/lcl/controls.pp b/lcl/controls.pp
index ca686b9681..ea6a9d0067 100644
--- a/lcl/controls.pp
+++ b/lcl/controls.pp
@@ -1301,7 +1301,7 @@ type
     procedure DisableAutoSizing{$IFDEF DebugDisableAutoSizing}(const Reason: string){$ENDIF};
     procedure EnableAutoSizing{$IFDEF DebugDisableAutoSizing}(const Reason: string){$ENDIF};
     {$IFDEF DebugDisableAutoSizing}
-    procedure WriteAutoSizeReasons;
+    procedure WriteAutoSizeReasons(NotIfEmpty: boolean);
     {$ENDIF}
     procedure UpdateBaseBounds(StoreBounds, StoreParentClientSize,
                                UseLoadedValues: boolean); virtual;
diff --git a/lcl/include/control.inc b/lcl/include/control.inc
index a4be39947b..96b49ed5a5 100644
--- a/lcl/include/control.inc
+++ b/lcl/include/control.inc
@@ -4922,8 +4922,9 @@ begin
 end;
 
 {$IFDEF DebugDisableAutoSizing}
-procedure TControl.WriteAutoSizeReasons;
+procedure TControl.WriteAutoSizeReasons(NotIfEmpty: boolean);
 begin
+  if NotIfEmpty and (FAutoSizingLockReasons.Count=0) then exit;
   DebugLn(['TControl.WriteAutoSizeReasons ',DbgSName(Self)]);
   debugln(FAutoSizingLockReasons.Text);
 end;
diff --git a/lcl/include/customform.inc b/lcl/include/customform.inc
index 0f285f8ac7..c890749429 100644
--- a/lcl/include/customform.inc
+++ b/lcl/include/customform.inc
@@ -1367,7 +1367,7 @@ var
   I: Integer;
 begin
   if (csDesigning in ComponentState) or (not Showing) then exit;
-  {$IFDEF DebugDisableAutoSizing}WriteAutoSizeReasons;{$ENDIF}
+  {$IFDEF DebugDisableAutoSizing}WriteAutoSizeReasons(true);{$ENDIF}
   // update this form
   InitiateAction;
   // update main menu's top-most items