paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 07:19:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

increased verbosity when using -dVerboseAutoSize

Browse Source 
git-svn-id: trunk@7738 -
This commit is contained in:
vincents 2005-09-19 11:50:40 +00:00
parent 78d3820117
commit e5144c22c8
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/include/wincontrol.inc
View File

@ -725,7 +725,7 @@ var
dx: Integer; dx: Integer;
dy: Integer; dy: Integer;
begin begin
//debugln('TWinControl.DoAutoSize ',DbgSName(Self)); debugln('TWinControl.DoAutoSize ',DbgSName(Self));
If not AutoSizeCanStart then exit; If not AutoSizeCanStart then exit;
if AutoSizeDelayed then begin if AutoSizeDelayed then begin
Include(FControlFlags,cfAutoSizeNeeded); Include(FControlFlags,cfAutoSizeNeeded);
@ -2950,8 +2950,13 @@ begin
Include(FWinControlFlags,wcfReAlignNeeded); Include(FWinControlFlags,wcfReAlignNeeded);
exit; exit;
end; end;
//DebugLn('TWinControl.ReAlign ',Name,':',ClassName); {$IFDEF VerboseAutoSize}
DebugLn('TWinControl.ReAlign A',Name,':',ClassName,' ', Dbgs(BoundsRect));
{$ENDIF}
AlignControl(nil); AlignControl(nil);
{$IFDEF VerboseAutoSize}
DebugLn('TWinControl.ReAlign B',Name,':',ClassName,' ', Dbgs(BoundsRect));
{$ENDIF}
Exclude(FWinControlFlags,wcfReAlignNeeded); Exclude(FWinControlFlags,wcfReAlignNeeded);
end; end;