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

LCL: Improve a debug msg when destroying a component with LCLRefCount>0.

Browse Source 
git-svn-id: trunk@51948 -
This commit is contained in:
juha 2016-03-15 11:22:21 +00:00
parent 0c321120f7
commit c44a316e99
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/lclclasses.pp
View File

@ -122,7 +122,7 @@ destructor TLCLComponent.Destroy;
begin begin
{$IFNDEF DisableChecks} {$IFNDEF DisableChecks}
if FLCLRefCount>0 then if FLCLRefCount>0 then
DebugLn(['WARNING: TLCLComponent.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?']);
{$ENDIF} {$ENDIF}
{$IFDEF DebugLCLComponents} {$IFDEF DebugLCLComponents}
//DebugLn('TLCLComponent.Destroy ',DbgSName(Self)); //DebugLn('TLCLComponent.Destroy ',DbgSName(Self));