paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-04 20:20:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: improved debugging

Browse Source 
git-svn-id: trunk@24069 -
This commit is contained in:
mattias 2010-03-17 16:07:58 +00:00
parent bf4387a62b
commit 0f10f9bfc1
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/include/wincontrol.inc
View File

@ -30,7 +30,7 @@
{off $DEFINE VerboseCanAutoSize} {off $DEFINE VerboseCanAutoSize}
{off $DEFINE VerboseSizeMsg} {off $DEFINE VerboseSizeMsg}
{$DEFINE CHECK_POSITION} {off $DEFINE CHECK_POSITION}
{$IFDEF CHECK_POSITION} {$IFDEF CHECK_POSITION}
const CheckPostionClassName = 'xxTPage'; const CheckPostionClassName = 'xxTPage';
const CheckPostionName = 'IDEOptionsDialog'; const CheckPostionName = 'IDEOptionsDialog';
@ -2289,8 +2289,8 @@ begin
//if Result then debugln('TWinControl.AutoSizeDelayed A ',DbgSName(Self),' wcfCreatingChildHandles=',dbgs(wcfCreatingChildHandles in FWinControlFlags),' csLoading=',dbgs(csLoading in ComponentState)); //if Result then debugln('TWinControl.AutoSizeDelayed A ',DbgSName(Self),' wcfCreatingChildHandles=',dbgs(wcfCreatingChildHandles in FWinControlFlags),' csLoading=',dbgs(csLoading in ComponentState));
{$IFDEF VerboseCanAutoSize} {$IFDEF VerboseCanAutoSize}
if Result {and AutoSize} then begin if Result {and AutoSize} then begin
DbgOut('TWinControl.AutoSizeDelayed Self='+DbgSName(Self)+' '); if not HandleAllocated then
if not HandleAllocated then debugln('not HandleAllocated'); debugln('TWinControl.AutoSizeDelayed Self='+DbgSName(Self)+' not HandleAllocated');
end; end;
{$ENDIF} {$ENDIF}
end; end;
@ -7388,6 +7388,7 @@ var
begin begin
if HandleAllocated then if HandleAllocated then
begin begin
//DebugLn(['TWinControl.DestroyWnd ',DbgSName(Self)]);
{$IFNDEF OldAutoSize} {$IFNDEF OldAutoSize}
DisableAutoSizing; DisableAutoSizing;
try try