IDE: fpc msg parser: nicer message, when a ppu file is missing, although a package with this unit is used

git-svn-id: trunk@45500 -

ide/etfpcmsgparser.pas

@@ -1761,6 +1761,7 @@ var
   s: String;
   PPUFiles: TStringList; // Strings:PPUFilename, Objects:TIDEPackage
   i: Integer;
+  DepOwner: TObject;
 begin
   if MsgLine.Urgency<mluError then exit;
   if not IsMsgID(MsgLine,FPCMsgIDCantFindUnitUsedBy,fMsgItemCantFindUnitUsedBy)
@@ -1888,6 +1889,12 @@ begin
           // two units of a package cannot find each other
           s+=Format(lisCheckSearchPathPackageTryACleanRebuildCheckImpleme, [
             TIDEPackage(UsedByOwner).Name]);
+        end else if (UsedByOwner<>nil) and (PkgName<>'')
+        and PackageEditingInterface.IsOwnerDependingOnPkg(UsedByOwner,PkgName,DepOwner)
+        then begin
+          // ppu file of an used package is missing
+          s+=Format(lisCheckIfPackageCreatesPpuCheckNothingDeletesThisFil, [
+            PkgName, MissingUnitName]);
         end else begin
           if PkgName<>'' then
             s+=Format(lisCheckIfPackageIsInTheDependencies, [PkgName]);

ide/lazarusidestrconsts.pas

@@ -5706,6 +5706,9 @@ resourcestring
     +' package %s, try a clean rebuild, check implementation uses sections.';
   lisCheckIfPackageIsInTheDependencies = '. Check if package %s is in the '
     +'dependencies';
+  lisCheckIfPackageCreatesPpuCheckNothingDeletesThisFil = '. Check if package '
+    +'%s creates %s.ppu, check nothing deletes this file and check that no two'
+    +' packages have access to the unit source.';
   lisOfTheProjectInspector = ' of the Project Inspector';
   lisOfPackage = ' of package %s';
   lisCompileWithVdForMoreDetailsCheckForDuplicates = '%s -> Compile with -vd '