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

IDE: Set "Include SubDirs" by default for Find in File Options

Browse Source 
git-svn-id: trunk@38923 -
This commit is contained in:
juha 2012-09-30 16:08:52 +00:00
parent f8dbcc135d
commit 4593c8f87f
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/inputhistory.pas
View File

@ -164,8 +164,8 @@ type
fifWholeWord,
fifRegExpr,
fifMultiLine,
fifSearchProject, // search in all project files
fifSearchOpen, // search in all open files in editor
fifSearchProject, // search in all project files
fifSearchOpen, // search in all open files in editor
fifSearchDirectories,// search in directories
fifIncludeSubDirs,
fifReplace, // replace and ask user before each replace
@ -345,7 +345,7 @@ const
'RegExprMultiLine',
'ssoFindContinue'
);
LazFindInFileSearchOptionsDefault = [fifSearchOpen];
LazFindInFileSearchOptionsDefault = [fifSearchOpen, fifIncludeSubDirs];
LazFindInFileSearchOptionNames: array[TLazFindInFileSearchOption] of string =(
'MatchCase',
'WholeWord',
@ -353,6 +353,7 @@ const
'MultiLine',
'SearchProject',
'SearchOpen',
'SearchCurrent',
'SearchDirectories',
'IncludeSubDirs',
'Replace',
@ -506,8 +507,7 @@ begin
LoadRecentList(XMLConfig,FFindInFilesMaskHistory,Path+
'FindInFiles/History/Masks/',rltFile);
FFindInFilesSearchOptions:=[];
for FIFOption:=Low(TLazFindInFileSearchOption) to
High(TLazFindInFileSearchOption)
for FIFOption:=Low(TLazFindInFileSearchOption) to High(TLazFindInFileSearchOption)
do begin
if XMLConfig.GetValue(
Path+'FindInFiles/Options/'+LazFindInFileSearchOptionNames[FIFOption],