From 11b2e6f04cce3f9353ae25f780e4c0e7cf664bea Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 2 Feb 2008 09:39:38 +0000
Subject: [PATCH] LCL: improved debug output

git-svn-id: trunk@13951 -
---
 lcl/lresources.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lcl/lresources.pp b/lcl/lresources.pp
index 5c05e88e3e..cb771bbd2f 100644
--- a/lcl/lresources.pp
+++ b/lcl/lresources.pp
@@ -2710,7 +2710,7 @@ function InitLazResourceComponent(Instance: TComponent;
     DestroyDriver: Boolean;
     Driver: TAbstractObjectReader;
   begin
-    //DebugLn(['[InitComponent] ',ClassType.Classname,' ',Instance<>nil]);
+    //DebugLn(['[InitComponent] ClassType=',ClassType.Classname,' Instance=',DbgsName(Instance),' RootAncestor=',DbgsName(RootAncestor),' ClassType.ClassParent=',DbgsName(ClassType.ClassParent)]);
     Result := False;
     if (ClassType = TComponent) or (ClassType = RootAncestor) then
       Exit;
@@ -2740,7 +2740,7 @@ function InitLazResourceComponent(Instance: TComponent;
       Exit;
       
     try
-      //DebugLn('Form Stream "',ClassType.ClassName,'" Signature=',copy(CompResource.Value,1,4));
+      //DebugLn('Form Stream "',ClassType.ClassName,'"');
       //try
       DestroyDriver:=false;
       Reader := CreateLRSReader(Stream, DestroyDriver);