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

IDE: fixed TSourceEditor.SearchReplace using parameters

Browse Source 
git-svn-id: trunk@48227 -
This commit is contained in:
mattias 2015-03-10 15:23:02 +00:00
parent 679614a73b
commit a950c69696
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/sourceeditor.pp
View File

@ -5319,8 +5319,7 @@ begin
for o:=Low(TSrcEditSearchOption) to High(TSrcEditSearchOption) do for o:=Low(TSrcEditSearchOption) to High(TSrcEditSearchOption) do
if o in SearchOptions then if o in SearchOptions then
Include(NewOptions,SrcEdit2SynEditSearchOption[o]); Include(NewOptions,SrcEdit2SynEditSearchOption[o]);
Result:=DoFindAndReplace(LazFindReplaceDialog.FindText, LazFindReplaceDialog.ReplaceText, Result:=DoFindAndReplace(ASearch, AReplace, NewOptions);
NewOptions);
end; end;
function TSourceEditor.GetSourceText: string; function TSourceEditor.GetSourceText: string;