paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 08:58:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: improved debug output

Browse Source 
git-svn-id: trunk@13951 -
This commit is contained in:
mattias 2008-02-02 09:39:38 +00:00
parent f7642e89fe
commit 11b2e6f04c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/lresources.pp
View File

@ -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);