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

now using SynRegExpr for Find-Replace in IDE

Browse Source 
git-svn-id: trunk@3027 -
This commit is contained in:
mattias 2002-08-18 08:57:08 +00:00
parent 0392fd6f0f
commit e31081b59d
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ide/uniteditor.pp
View File

@ -44,7 +44,7 @@ uses
Classes, Controls, Forms, Buttons, ComCtrls, SysUtils, Dialogs, FormEditor,
FindReplaceDialog, EditorOptions, CustomFormEditor, KeyMapping, StdCtrls,
Compiler, MsgView, WordCompletion, CodeToolManager, CodeCache, SourceLog,
SynEditTypes, SynEdit, SynEditHighlighter, SynHighlighterPas,
SynEditTypes, SynEdit, SynRegExpr, SynEditHighlighter, SynHighlighterPas,
SynEditAutoComplete, SynEditKeyCmds, SynCompletion, GraphType, Graphics,
Extctrls, Menus, FindInFilesDlg, LMessages, IDEProcs, IDEOptionDefs,
InputHistory, LazarusIDEStrConsts, BaseDebugManager, Debugger, FileCtrl,
@ -787,8 +787,16 @@ begin
else
EditorComponent.CaretXY:=EditorComponent.BlockEnd
end;
EditorComponent.SearchReplace(
FindReplaceDlg.FindText,FindReplaceDlg.ReplaceText,FindReplaceDlg.Options);
try
EditorComponent.SearchReplace(
FindReplaceDlg.FindText,FindReplaceDlg.ReplaceText,FindReplaceDlg.Options);
except
on E: ERegExpr do begin
MessageDlg('Error in regular expression',
E.Message,mtError,[mbCancel],0);
exit;
end;
end;
if (OldCaretXY.X=EditorComponent.CaretX)
and (OldCaretXY.Y=EditorComponent.CaretY)
and not (ssoReplaceAll in FindReplaceDlg.Options) then begin