paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-01 12:52:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: newautosize: reduced debugging

Browse Source 
git-svn-id: trunk@23899 -
This commit is contained in:
mattias 2010-03-09 17:00:07 +00:00
parent 51e74f6092
commit da51b1637f
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/include/control.inc
View File

@ -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

6
lcl/include/wincontrol.inc
View File

@ -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;