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

SynEdit: search/replace, use undo-group if replace all with no user prompt

Browse Source 
git-svn-id: trunk@39809 -
This commit is contained in:
martin 2013-01-08 20:01:23 +00:00
parent 25305c11d4
commit fa3535fa07
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/synedit/synedit.pp
View File

@ -7150,6 +7150,7 @@ begin
fTSearch.Backwards:=bBackward;
// search while the current search position is inside of the search range
IncPaintLock;
BeginUndoBlock;
try
ptFoundStartSel.y := -1;
//DebugLn(['TCustomSynEdit.SearchReplace ptStart=',dbgs(ptStart),' ptEnd=',dbgs(ptEnd),' ASearch="',dbgstr(ASearch),'" AReplace="',dbgstr(AReplace),'"']);
@ -7179,11 +7180,13 @@ begin
SetFoundCaretAndSel;
EnsureCursorPosVisible;
try
EndUndoBlock;
DecPaintLock;
nAction := DoOnReplaceText(ASearch,CurReplace,
ptFoundStart.Y,ptFoundStart.X);
finally
IncPaintLock;
BeginUndoBlock
end;
if nAction = raCancel then exit;
end else
@ -7227,6 +7230,7 @@ begin
end;
finally
SetFoundCaretAndSel;
EndUndoBlock;
DecPaintLock;
end;
end;