paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 04:07:57 +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
{$IFNDEF DisableChecks}
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}
{$IFDEF DebugLCLComponents}
//DebugLn('TLCLComponent.Destroy ',DbgSName(Self));