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

Merged revision(s) 49171 #9d7274a075 from trunk:

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

git-svn-id: branches/fixes_1_4@49185 -
This commit is contained in:
maxim 2015-05-26 22:32:12 +00:00
parent db1ee32053
commit 7f751df65d
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

@ -3062,7 +3062,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);