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

IDE: Fix the order of iteration of units when searching class definition.

Browse Source
This commit is contained in:
Juha 2021-09-25 19:37:06 +03:00
parent 0da24dda48
commit 0b817c8df3
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/sourcefilemanager.pas
View File

@ -6858,14 +6858,14 @@ begin
{$ENDIF}
if (UsedUnitFilenames<>nil) then begin
// search for every used unit the .lfm file
for i:=UsedUnitFilenames.Count-1 downto 0 do begin
// search every used unit for .lfm file. The list is backwards, last unit first.
for i:=0 to UsedUnitFilenames.Count-1 do begin
if TryLFM(UsedUnitFilenames[i],AComponentClassName,Result) then exit;
end;
// search class via codetools
if TryFindDeclaration(Result) then exit;
// search the class in every used unit
for i:=UsedUnitFilenames.Count-1 downto 0 do begin
for i:=0 to UsedUnitFilenames.Count-1 do begin
if TryUsedUnitInterface(UsedUnitFilenames[i],Result) then exit;
end;
end;