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

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

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

18
ide/searchresultview.pp
View File

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