paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 12:18:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

Packager: Add a frame's unit to uses section when the frame is part of project. Issue #40003.

Browse Source
This commit is contained in:
Juha 2022-11-21 09:21:46 +02:00
parent fa711164a9
commit 2c216480d1
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
packager/pkgmanager.pas
View File

@ -4453,17 +4453,24 @@ var
var
Dependencies: TPackagePackageArray;
UnitInfo: TUnitInfo;
begin
Result:=mrCancel;
UnitNames:=nil;
Dependencies:=nil;
MissingDependencies:=nil;
try
Result:=GetUnitsAndDepsForComps(ComponentClasses, Dependencies, UnitNames);
if Result<>mrOk then exit;
// TODO: Frame instances are not registered components, UnitNames is not assigned
if (UnitNames=nil) then exit(mrCancel);
// Frame instances are not registered components, UnitNames is not assigned.
// Find the frame from the project units.
if UnitNames=nil then begin
UnitNames:=TStringList.Create;
Assert(ComponentClasses.Count=1, 'TPkgManager.AddUnitDepsForCompClasses: '
+ IntToStr(ComponentClasses.Count) + ' frame classes requested.');
UnitInfo:=Project1.UnitWithComponentClass(TComponentClass(ComponentClasses[0]));
if UnitInfo=nil then exit(mrCancel);
UnitNames.Add(UnitInfo.Unit_Name);
end;
if (Dependencies<>nil) then
begin
Result:=FilterMissingDepsForUnit(UnitFilename,Dependencies,MissingDependencies);