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

SourceEditor: Use selection as default search only if caret is in/at selection (persistent selection)

Browse Source 
git-svn-id: trunk@39101 -
This commit is contained in:
martin 2012-10-16 11:51:25 +00:00
parent bb0271b1c9
commit 70d1556197
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/sourceeditor.pp
View File

@ -2681,7 +2681,13 @@ begin
with EditorComponent do begin
if EditorOpts.FindTextAtCursor then begin
if SelAvail and (BlockBegin.Y = BlockEnd.Y) then begin
if SelAvail and (BlockBegin.Y = BlockEnd.Y) and
( ((ComparePoints(BlockBegin, LogicalCaretXY) <= 0) and
(ComparePoints(BlockEnd, LogicalCaretXY) >= 0)) or
((ComparePoints(BlockBegin, LogicalCaretXY) >= 0) and
(ComparePoints(BlockEnd, LogicalCaretXY) <= 0))
)
then begin
//debugln('TSourceEditor.StartFindAndReplace B FindTextAtCursor SelAvail');
LazFindReplaceDialog.FindText := SelText
end else begin