paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-13 05:29:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: not warn not installable packages

Browse Source 
git-svn-id: trunk@60632 -
This commit is contained in:
mattias 2019-03-09 12:13:52 +00:00
parent 8829aef910
commit dd78075e27
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packager/packagesystem.pas
View File

@ -2752,12 +2752,15 @@ function TLazPackageGraph.FindNotInstalledRegisterUnits(
APkgFile: TPkgFile;
begin
while Dependency<>nil do begin
if (Dependency.DependencyType=pdtLazarus) and (Dependency.LoadPackageResult=lprSuccess) then begin
if (Dependency.DependencyType=pdtLazarus)
and (Dependency.LoadPackageResult=lprSuccess) then begin
// dependency ok
RequiredPackage:=Dependency.RequiredPackage;
if not (lpfVisited in RequiredPackage.Flags) then begin
if RequiredPackage.Installed=pitNope then begin
// package not installed
if (RequiredPackage.Installed=pitNope)
and (RequiredPackage.PackageType in [lptDesignTime,lptRunAndDesignTime])
then begin
// package not installed and can be installed
for i:=0 to RequiredPackage.FileCount-1 do begin
APkgFile:=RequiredPackage.Files[i];
if APkgFile.HasRegisterProc then begin