|
@@ -317,6 +317,7 @@ begin
|
|
for k := 0 to TPasClassType(ParentElement).Members.Count-1 do
|
|
for k := 0 to TPasClassType(ParentElement).Members.Count-1 do
|
|
begin
|
|
begin
|
|
TmpElement := TPasElement(TPasClassType(ParentElement).Members.Items[k]);
|
|
TmpElement := TPasElement(TPasClassType(ParentElement).Members.Items[k]);
|
|
|
|
+ s:='';
|
|
if TmpElement is TPasEnumValue then
|
|
if TmpElement is TPasEnumValue then
|
|
s := UTF8Encode(ResolveLinkIDAbs(tmpElement.Parent.PathName))
|
|
s := UTF8Encode(ResolveLinkIDAbs(tmpElement.Parent.PathName))
|
|
else
|
|
else
|
|
@@ -355,7 +356,8 @@ begin
|
|
TmpItem := MemberItem.Children.NewItem;
|
|
TmpItem := MemberItem.Children.NewItem;
|
|
TmpItem.Text := ParentElement.Name;
|
|
TmpItem.Text := ParentElement.Name;
|
|
s2:=Allocator.GetFilename(TmpElement, 0);
|
|
s2:=Allocator.GetFilename(TmpElement, 0);
|
|
- if s<>s2 then
|
|
|
|
|
|
+ tmpitem.addlocal(s2);
|
|
|
|
+ if(trim(s)<>'') and (s<>s2) then
|
|
begin
|
|
begin
|
|
writeln('Hint: Index2 Resolved:',tmpitem.local,' to ',s);
|
|
writeln('Hint: Index2 Resolved:',tmpitem.local,' to ',s);
|
|
TmpItem.AddLocal(s);
|
|
TmpItem.AddLocal(s);
|