mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-14 00:54:03 +02:00
IDE: fixed AddUnitDependenciesForComponentClasses when component has no deps
git-svn-id: trunk@62660 -
This commit is contained in:
parent
1ba42be4c3
commit
9a9174aa69
@ -4498,7 +4498,6 @@ var
|
|||||||
|
|
||||||
var
|
var
|
||||||
Dependencies: TPackagePackageArray;
|
Dependencies: TPackagePackageArray;
|
||||||
|
|
||||||
begin
|
begin
|
||||||
Result:=mrCancel;
|
Result:=mrCancel;
|
||||||
UnitNames:=nil;
|
UnitNames:=nil;
|
||||||
@ -4509,8 +4508,11 @@ begin
|
|||||||
Dependencies,UnitNames);
|
Dependencies,UnitNames);
|
||||||
if Result<>mrOk then exit;
|
if Result<>mrOk then exit;
|
||||||
|
|
||||||
Result:=FilterMissingDependenciesForUnit(UnitFilename,Dependencies,MissingDependencies);
|
if (Dependencies<>nil) then
|
||||||
if Result<>mrOk then exit;
|
begin
|
||||||
|
Result:=FilterMissingDependenciesForUnit(UnitFilename,Dependencies,MissingDependencies);
|
||||||
|
if Result<>mrOk then exit;
|
||||||
|
end;
|
||||||
|
|
||||||
Result:=RemoveExistingUnitnames;
|
Result:=RemoveExistingUnitnames;
|
||||||
if Result<>mrOk then exit;
|
if Result<>mrOk then exit;
|
||||||
|
Loading…
Reference in New Issue
Block a user