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

IDE: Share options between FindInFiles and FindReplace dialogs. Issue #28302, patch from Ondrej Pokorny.

Browse Source 
git-svn-id: trunk@49339 -
This commit is contained in:
juha 2015-06-15 23:31:57 +00:00
parent 00c17981b8
commit 4478095f51
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/findinfilesdlg.pas
View File

@ -308,6 +308,9 @@ begin
Result:=GetCurrentDirUTF8;
end;
const
SharedOptions = [ssoWholeWord,ssoEntireScope,ssoRegExpr,ssoRegExprMultiLine];
procedure TLazFindInFilesDialog.LoadHistory;
procedure AssignToComboBox(AComboBox: TComboBox; Strings: TStrings);
@ -363,6 +366,7 @@ begin
// show last used file masks
AssignToComboBox(FileMaskComboBox, InputHistories.FindInFilesMaskHistory);
Options := InputHistories.FindInFilesSearchOptions;
SynSearchOptions := InputHistories.FindOptions * SharedOptions;//share basic options with FindReplaceDlg
end;
procedure TLazFindInFilesDialog.SaveHistory;
@ -377,6 +381,7 @@ begin
InputHistories.AddToFindInFilesPathHistory(Dir);
InputHistories.AddToFindInFilesMaskHistory(FileMaskComboBox.Text);
InputHistories.FindInFilesSearchOptions:=Options;
InputHistories.FindOptions := InputHistories.FindOptions - SharedOptions + (SynSearchOptions*SharedOptions);//share basic options with FindReplaceDlg
InputHistories.Save;
end;