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

ide: find references: fixed order of search results

Browse Source
This commit is contained in:
mattias 2025-02-11 16:24:29 +01:00
parent 8726dd48e7
commit e78469d469
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/findrenameidentifier.pas
View File

@ -815,10 +815,10 @@ begin
CurIdentifier:=Refs.NewLocalSrcName; CurIdentifier:=Refs.NewLocalSrcName;
if CurIdentifier='' then CurIdentifier:=Identifier; if CurIdentifier='' then CurIdentifier:=Identifier;
ANode:=Tree.FindLowest; ANode:=Tree.FindHighest;
while ANode<>nil do begin while ANode<>nil do begin
CodePos:=PCodeXYPosition(ANode.Data); CodePos:=PCodeXYPosition(ANode.Data);
ANode:=Tree.FindSuccessor(ANode); ANode:=Tree.FindPrecessor(ANode);
CurLine:=TrimRight(CodePos^.Code.GetLine(CodePos^.Y-1,false)); CurLine:=TrimRight(CodePos^.Code.GetLine(CodePos^.Y-1,false));
TrimmedLine:=Trim(CurLine); TrimmedLine:=Trim(CurLine);