paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-09 12:56:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

Packager: For a newly created component add a package dependency only when needed. Issue #36876.

Browse Source 
git-svn-id: trunk@62910 -
This commit is contained in:
juha 2020-04-07 21:42:43 +00:00
parent b2f327a643
commit 70d6e746cd
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packager/addtopackagedlg.pas
View File

@ -520,14 +520,12 @@ begin
ARequiredPackage:=PkgComponent.PkgFile.LazPackage;
ARequiredPackage:=TLazPackage(PackageEditingInterface.RedirectPackageDependency(ARequiredPackage));
NewDependency:=TPkgDependency.Create;
try
NewDependency.DependencyType:=pdtLazarus;
NewDependency.PackageName:=ARequiredPackage.Name;
if CheckAddingPackageDependency(LazPackage,NewDependency,false,false)=mrOK then
PackageGraph.AddDependencyToPackage(LazPackage, NewDependency);
finally
NewDependency.DependencyType:=pdtLazarus;
NewDependency.PackageName:=ARequiredPackage.Name;
if CheckAddingPackageDependency(LazPackage,NewDependency,false,false)=mrOK then
PackageGraph.AddDependencyToPackage(LazPackage, NewDependency)
else
NewDependency.Free;
end;
end;
ModalResult:=mrOk;
end;