paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-07 11:38:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: nicer debug msg

Browse Source 
git-svn-id: trunk@55650 -
This commit is contained in:
mattias 2017-08-12 08:34:01 +00:00
parent 2f945a5ee7
commit 746dbe6086
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
designer/objinspext.pas
View File

@ -273,7 +273,7 @@ begin
FilenameOfClass:=CodeToolBoss.DirectoryCachePool.FindUnitSourceInCompletePath( FilenameOfClass:=CodeToolBoss.DirectoryCachePool.FindUnitSourceInCompletePath(
ExtractFilePath(AFile.Filename),AnUnitName,InFilename); ExtractFilePath(AFile.Filename),AnUnitName,InFilename);
if FilenameOfClass='' then begin if FilenameOfClass='' then begin
debugln(['FindDeclarationOfOIProperty Row=',Row.Name,' Instance=',DbgSName(APersistent),' LookupRoot=',DbgSName(LookupRoot),' Unit not found: ',AnUnitName,' started search in directory of lookuproot: ',AFile.Filename]); debugln(['FindDeclarationOfOIProperty FindUnitSourceInCompletePath failed: Row=',Row.Name,' Instance=',DbgSName(APersistent),' LookupRoot=',DbgSName(LookupRoot),' Unit not found: ',AnUnitName,' started search in directory of lookuproot: ',AFile.Filename]);
exit; exit;
end; end;
if not LazarusIDE.BeginCodeTools then begin if not LazarusIDE.BeginCodeTools then begin