|
@@ -3350,6 +3350,7 @@ function TPCUWriter.IsExternalEl(El: TPasElement): boolean;
|
|
var
|
|
var
|
|
C: TClass;
|
|
C: TClass;
|
|
begin
|
|
begin
|
|
|
|
+ Result:=false;
|
|
while El<>nil do
|
|
while El<>nil do
|
|
begin
|
|
begin
|
|
C:=El.ClassType;
|
|
C:=El.ClassType;
|
|
@@ -3477,6 +3478,8 @@ begin
|
|
ParentRef:=WriteExternalReference(SpecItem.GenericEl,aContext)
|
|
ParentRef:=WriteExternalReference(SpecItem.GenericEl,aContext)
|
|
else if IsExternalEl(Parent) then
|
|
else if IsExternalEl(Parent) then
|
|
ParentRef:=WriteExternalReference(Parent,aContext)
|
|
ParentRef:=WriteExternalReference(Parent,aContext)
|
|
|
|
+ else if Parent=nil then
|
|
|
|
+ ParentRef:=nil
|
|
else
|
|
else
|
|
begin
|
|
begin
|
|
// El is external, Parent is not
|
|
// El is external, Parent is not
|