From da51b1637f732ffa85e06bc40f0b5ffb819c584f Mon Sep 17 00:00:00 2001 From: mattias Date: Tue, 9 Mar 2010 17:00:07 +0000 Subject: [PATCH] lcl: newautosize: reduced debugging git-svn-id: trunk@23899 - --- lcl/include/control.inc | 1 + lcl/include/wincontrol.inc | 6 +++--- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/lcl/include/control.inc b/lcl/include/control.inc index a279be8348..8fb39e9704 100644 --- a/lcl/include/control.inc +++ b/lcl/include/control.inc @@ -2401,6 +2401,7 @@ begin if AutoSizingAll then exit; fAutoSizingAll:=true; DebugLn(['TControl.DoAllAutoSize START ',DbgSName(Self)]); + //writeln(GetStackTrace(true)); try while (not AutoSizeDelayed) and (cfAutoSizeNeeded in FControlFlags) do begin diff --git a/lcl/include/wincontrol.inc b/lcl/include/wincontrol.inc index 6d9bb85227..5cab643bdb 100644 --- a/lcl/include/wincontrol.inc +++ b/lcl/include/wincontrol.inc @@ -7236,7 +7236,7 @@ var CurControl: TWinControl; begin {$IFDEF NewAutoSize} - DebugLn(['TWinControl.Loaded START ',DbgSName(Self),' cfWidthLoaded=',cfWidthLoaded in FControlFlags,' cfHeightLoaded=',cfHeightLoaded in FControlFlags,' ']); + //DebugLn(['TWinControl.Loaded START ',DbgSName(Self),' cfWidthLoaded=',cfWidthLoaded in FControlFlags,' cfHeightLoaded=',cfHeightLoaded in FControlFlags,' ']); {$ELSE} // obsolete DisableAlign; @@ -7307,11 +7307,11 @@ begin {$ENDIF} finally {$IFDEF NewAutoSize} - DebugLn(['TWinControl.Loaded enableautosizing ',DbgSName(Self),' ',dbgs(BoundsRect)]); + //DebugLn(['TWinControl.Loaded enableautosizing ',DbgSName(Self),' ',dbgs(BoundsRect)]); {$ENDIF} EnableAutoSizing; {$IFDEF NewAutoSize} - DebugLn(['TWinControl.Loaded END ',DbgSName(Self),' ',dbgs(BoundsRect)]); + //DebugLn(['TWinControl.Loaded END ',DbgSName(Self),' ',dbgs(BoundsRect)]); {$ELSE} // obsolete EnableAlign;