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

IDE/SearchResultsView: Only consider filtered results when opening the search result via IDE commands. Issue #40328, merge request !401.

Browse Source
This commit is contained in:
n7800 2024-12-13 01:42:44 +05:00 committed by Juha
parent f6a164e1bb
commit 05ddfc0ab2
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
ide/searchresultview.pp
View File

@ -1559,26 +1559,26 @@ begin
if Assigned(lSelNode.Data) then begin
// file pos node
if DirectionDown then
lNextNode := lSelNode.GetNextSibling
lNextNode := lSelNode.GetNextVisibleSibling
else
lNextNode := lSelNode.GetPrevSibling;
lNextNode := lSelNode.GetPrevVisibleSibling;
if not Assigned(lNextNode) then begin
// if no more siblings, find first/last child of parent's sibling
if DirectionDown then begin
lNextNode := lSelNode.Parent;
if Assigned(lNextNode) then begin
lNextNode := lNextNode.GetNextSibling;
lNextNode := lNextNode.GetNextVisibleSibling;
if Assigned(lNextNode) then
lNextNode := lNextNode.GetFirstChild;
lNextNode := lNextNode.GetFirstVisibleChild;
end;
end
else begin
lNextNode := lSelNode.Parent;
if Assigned(lNextNode) then begin
lNextNode := lNextNode.GetPrevSibling;
lNextNode := lNextNode.GetPrevVisibleSibling;
if Assigned(lNextNode) then
lNextNode := lNextNode.GetLastChild;
lNextNode := lNextNode.GetLastVisibleChild;
end;
end;
end;
@ -1586,11 +1586,11 @@ begin
else begin
// file node - need to use first child or last child of prev sibling
if DirectionDown then
lNextNode := lSelNode.GetFirstChild
lNextNode := lSelNode.GetFirstVisibleChild
else begin
lNextNode := lSelNode.GetPrevSibling;
lNextNode := lSelNode.GetPrevVisibleSibling;
if Assigned(lNextNode) then
lNextNode := lNextNode.GetLastChild;
lNextNode := lNextNode.GetLastVisibleChild;
end;
end;