paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-24 14:59:11 +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; APkgFile: TPkgFile;
begin begin
while Dependency<>nil do 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 // dependency ok
RequiredPackage:=Dependency.RequiredPackage; RequiredPackage:=Dependency.RequiredPackage;
if not (lpfVisited in RequiredPackage.Flags) then begin if not (lpfVisited in RequiredPackage.Flags) then begin
if RequiredPackage.Installed=pitNope then begin if (RequiredPackage.Installed=pitNope)
// package not installed and (RequiredPackage.PackageType in [lptDesignTime,lptRunAndDesignTime])
then begin
// package not installed and can be installed
for i:=0 to RequiredPackage.FileCount-1 do begin for i:=0 to RequiredPackage.FileCount-1 do begin
APkgFile:=RequiredPackage.Files[i]; APkgFile:=RequiredPackage.Files[i];
if APkgFile.HasRegisterProc then begin if APkgFile.HasRegisterProc then begin