paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 15:20:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: improved message improve for can not find unit, when a package can not findone of its own units

Browse Source 
git-svn-id: trunk@39949 -
This commit is contained in:
mattias 2013-01-24 11:12:22 +00:00
parent 4c2834e47a
commit 7b25e8ece6
1 changed files with 15 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
ide/msgquickfixes.pas
View File

@ -438,7 +438,7 @@ var
CodeBuf: TCodeBuffer; CodeBuf: TCodeBuffer;
MissingUnitname: String; MissingUnitname: String;
UsedByUnit: String; UsedByUnit: String;
NewFilename: String; NewFilename: String; // referencing unit
Dir: String; Dir: String;
PPUFilename: String; PPUFilename: String;
s: String; s: String;
@ -556,12 +556,20 @@ begin
s:='Can not find unit '+MissingUnitname; s:='Can not find unit '+MissingUnitname;
if UsedByUnit<>'' then if UsedByUnit<>'' then
s+=' used by '+UsedByUnit; s+=' used by '+UsedByUnit;
if PkgName<>'' then if (UsedByOwner is TIDEPackage)
s+='. Check if package '+PkgName+' is in the dependencies'; and (CompareTextCT(TIDEPackage(UsedByOwner).Name,PkgName)=0) then
if UsedByOwner is TLazProject then begin
s+=' of the project inspector' // unit of package is not found by a unit of package
else if UsedByOwner is TIDEPackage then s+='. Check search path of package '+TIDEPackage(UsedByOwner).Name
s+=' of package '+TIDEPackage(UsedByOwner).Name; +' and unit cycles.';
end else begin
if PkgName<>'' then
s+='. Check if package '+PkgName+' is in the dependencies';
if UsedByOwner is TLazProject then
s+=' of the project inspector'
else if UsedByOwner is TIDEPackage then
s+=' of package '+TIDEPackage(UsedByOwner).Name;
end;
s+='.'; s+='.';
end; end;
Msg.GetSourcePosition(Filename,Line,Col); Msg.GetSourcePosition(Filename,Line,Col);