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

IDE/SynEdit: fix search and replace in current selection only. issue #14447

Browse Source 
git-svn-id: trunk@21466 -
This commit is contained in:
martin 2009-08-27 16:39:05 +00:00
parent 92fc448dae
commit 94e36f9611
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/sourceeditor.pp
View File

@ -1385,7 +1385,11 @@ begin
end; end;
OldCaretXY:=EditorComponent.CaretXY; OldCaretXY:=EditorComponent.CaretXY;
if EditorComponent.SelAvail then begin if EditorComponent.SelAvail and
not(ssoSelectedOnly in LazFindReplaceDialog.Options)
then begin
// Adjust the cursor. to exclude the selection from being searched
// needed for find next / find previous
if ssoBackwards in LazFindReplaceDialog.Options then if ssoBackwards in LazFindReplaceDialog.Options then
EditorComponent.LogicalCaretXY:=EditorComponent.BlockBegin EditorComponent.LogicalCaretXY:=EditorComponent.BlockBegin
else else