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

IDE: Ask 'Continue search from the beginning?' only when not already in beginning. Issue #28177, patch from Ondrej Pokorny.

Browse Source 
git-svn-id: trunk@49171 -
This commit is contained in:
juha 2015-05-25 22:30:53 +00:00
parent 8077f55310
commit 9d7274a075
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

@ -3061,7 +3061,11 @@ begin
Manager.AddJumpPointClicked(Self);
OldEntireScope := ssoEntireScope in anOptions;
Again:=False;
//do not show lisUESearchStringContinueBeg/lisUESearchStringContinueEnd if the caret is in the beginning/end
if ssoBackwards in anOptions then
Again := ((FEditor.CaretY >= FEditor.Lines.Count) and (FEditor.CaretX > Length(FEditor.LineText)))//caret in the last line and last character
else
Again := ((FEditor.CaretY = 1) and (FEditor.CaretX = 1));//caret at the top/left
repeat
try
Result:=EditorComponent.SearchReplace(aFindText, aReplaceText, anOptions);