paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-21 14:39:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fixed warning runtime package needs install

Browse Source 
git-svn-id: branches/fixes_2_0@61979 -
This commit is contained in:
mattias 2019-10-04 14:03:13 +00:00
parent 919869a94c
commit acdee84b77
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packager/packagesystem.pas
View File

@ -2747,12 +2747,16 @@ 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
// designtime package not installed
for i:=0 to RequiredPackage.FileCount-1 do begin
APkgFile:=RequiredPackage.Files[i];
if APkgFile.HasRegisterProc then begin