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

LCL: added DebugTLCLComponentDestroy

Browse Source 
git-svn-id: trunk@54853 -
This commit is contained in:
mattias 2017-05-10 14:40:55 +00:00
parent b49b4efff4
commit c824f9135d
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/lclclasses.pp
View File

@ -121,8 +121,12 @@ end;
destructor TLCLComponent.Destroy; destructor TLCLComponent.Destroy;
begin begin
{$IFNDEF DisableChecks} {$IFNDEF DisableChecks}
if FLCLRefCount>0 then if FLCLRefCount>0 then begin
DebugLn(['WARNING: ' + ClassName + '.Destroy with LCLRefCount>0. Hint: Maybe the component is processing an event?']); DebugLn(['WARNING: ' + ClassName + '.Destroy with LCLRefCount>0. Hint: Maybe the component is processing an event?']);
{$IFDEF DebugTLCLComponentDestroy}
DumpStack;
{$ENDIF}
end;
{$ENDIF} {$ENDIF}
{$IFDEF DebugLCLComponents} {$IFDEF DebugLCLComponents}
//DebugLn('TLCLComponent.Destroy ',DbgSName(Self)); //DebugLn('TLCLComponent.Destroy ',DbgSName(Self));