From 04efc01f6ee92d593e422a6e9507454c40a20b53 Mon Sep 17 00:00:00 2001
From: zeljko <zeljko@lazarus-ide.org>
Date: Wed, 29 Oct 2014 10:00:11 +0000
Subject: [PATCH] Qt: better debug info in TQtWidgetSet.DeleteObject() when
 trying to delete default resource.

git-svn-id: trunk@46697 -
---
 lcl/interfaces/qt/qtwinapi.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/interfaces/qt/qtwinapi.inc b/lcl/interfaces/qt/qtwinapi.inc
index 65dc5fe5e5..76806bed2d 100644
--- a/lcl/interfaces/qt/qtwinapi.inc
+++ b/lcl/interfaces/qt/qtwinapi.inc
@@ -874,7 +874,7 @@ begin
     if TQtResource(AObject).Owner <> nil then
     begin
       // this is an owned (default) resource, let owner free it
-      DebugLn('WARNING: Trying to Free a default resource');
+      DebugLn('WARNING: TQtWidgetSet.DeleteObject() trying to free a default resource ',dbgsName(AObject),' owner=',dbgsName(TQtResource(AObject).Owner));
       AObject := nil;
     end;