paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 14:00:18 +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 VerboseSizeMsg}
{$DEFINE CHECK_POSITION}
{off $DEFINE CHECK_POSITION}
{$IFDEF CHECK_POSITION}
const CheckPostionClassName = 'xxTPage';
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));
{$IFDEF VerboseCanAutoSize}
if Result {and AutoSize} then begin
DbgOut('TWinControl.AutoSizeDelayed Self='+DbgSName(Self)+' ');
if not HandleAllocated then debugln('not HandleAllocated');
if not HandleAllocated then
debugln('TWinControl.AutoSizeDelayed Self='+DbgSName(Self)+' not HandleAllocated');
end;
{$ENDIF}
end;
@ -7388,6 +7388,7 @@ var
begin
if HandleAllocated then
begin
//DebugLn(['TWinControl.DestroyWnd ',DbgSName(Self)]);
{$IFNDEF OldAutoSize}
DisableAutoSizing;
try