paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 08:29:06 +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;
begin
{$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?']);
{$IFDEF DebugTLCLComponentDestroy}
DumpStack;
{$ENDIF}
end;
{$ENDIF}
{$IFDEF DebugLCLComponents}
//DebugLn('TLCLComponent.Destroy ',DbgSName(Self));