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

IDE: find in files: captions for multi directories

Browse Source 
git-svn-id: trunk@46003 -
This commit is contained in:
mattias 2014-08-01 12:12:53 +00:00
parent 5615c5a447
commit aa7b7878b5
3 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ide/findinfilesdlg.lfm
View File

@ -90,7 +90,7 @@ object LazFindInFilesDialog: TLazFindInFilesDialog
OnClick = WhereRadioGroupClick
TabOrder = 4
end
object DirectoryOptionsGroupBox: TGroupBox
object DirectoriesOptionsGroupBox: TGroupBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = WhereRadioGroup
AnchorSideTop.Side = asrBottom
@ -103,13 +103,13 @@ object LazFindInFilesDialog: TLazFindInFilesDialog
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Directory Options'
Caption = 'Directories'
ClientHeight = 108
ClientWidth = 445
Enabled = False
TabOrder = 5
object DirectoriesLabel: TLabel
AnchorSideLeft.Control = DirectoryOptionsGroupBox
AnchorSideLeft.Control = DirectoriesOptionsGroupBox
AnchorSideTop.Control = DirectoriesComboBox
AnchorSideTop.Side = asrCenter
Left = 6
@ -122,7 +122,7 @@ object LazFindInFilesDialog: TLazFindInFilesDialog
ParentColor = False
end
object FileMaskLabel: TLabel
AnchorSideLeft.Control = DirectoryOptionsGroupBox
AnchorSideLeft.Control = DirectoriesOptionsGroupBox
AnchorSideTop.Control = DirectoriesComboBox
AnchorSideTop.Side = asrBottom
Left = 6
@ -138,7 +138,7 @@ object LazFindInFilesDialog: TLazFindInFilesDialog
object DirectoriesComboBox: TComboBox
AnchorSideLeft.Control = DirectoriesLabel
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = DirectoryOptionsGroupBox
AnchorSideTop.Control = DirectoriesOptionsGroupBox
AnchorSideRight.Control = DirectoriesBrowse
Left = 77
Height = 27
@ -156,7 +156,7 @@ object LazFindInFilesDialog: TLazFindInFilesDialog
object DirectoriesBrowse: TBitBtn
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = DirectoriesComboBox
AnchorSideRight.Control = DirectoryOptionsGroupBox
AnchorSideRight.Control = DirectoriesOptionsGroupBox
AnchorSideRight.Side = asrBottom
Left = 418
Height = 27
@ -188,7 +188,7 @@ object LazFindInFilesDialog: TLazFindInFilesDialog
Text = '*.pas;*.pp;*.inc'
end
object IncludeSubDirsCheckBox: TCheckBox
AnchorSideLeft.Control = DirectoryOptionsGroupBox
AnchorSideLeft.Control = DirectoriesOptionsGroupBox
AnchorSideTop.Control = FileMaskComboBox
AnchorSideTop.Side = asrBottom
Left = 6

12
ide/findinfilesdlg.pas
View File

@ -39,7 +39,7 @@ type
DirectoriesComboBox: TComboBox;
DirectoriesLabel: TLabel;
FileMaskLabel: TLabel;
DirectoryOptionsGroupBox: TGroupBox;
DirectoriesOptionsGroupBox: TGroupBox;
OptionsCheckGroupBox: TCheckGroup;
SelectDirectoryDialog: TSelectDirectoryDialog;
TextToFindComboBox: TComboBox;
@ -121,7 +121,7 @@ end;
procedure TLazFindInFilesDialog.WhereRadioGroupClick(Sender: TObject);
begin
DirectoryOptionsGroupBox.Enabled := (WhereRadioGroup.ItemIndex = ItemIndDirectories)
DirectoriesOptionsGroupBox.Enabled := (WhereRadioGroup.ItemIndex = ItemIndDirectories)
end;
procedure TLazFindInFilesDialog.DirectoriesBrowseClick(Sender: TObject);
@ -174,9 +174,9 @@ begin
WhereRadioGroup.Items[ItemIndDirectories] := lisFindFilesearchInDirectories;
WhereRadioGroup.Items[ItemIndActiveFile] := lisFindFilesearchInActiveFile;
DirectoryOptionsGroupBox.Caption := lisFindFileDirectoryOptions;
DirectoriesOptionsGroupBox.Caption := lisDirectories;
DirectoriesComboBox.Hint:=lisMultipleDirectoriesAreSeparatedWithSemicolons;
DirectoriesLabel.Caption := lisFindFileDirectory;
DirectoriesLabel.Caption := lisFindFileDirectories;
FileMaskLabel.Caption := lisFindFileFileMask;
IncludeSubDirsCheckBox.Caption := lisFindFileIncludeSubDirectories;
@ -187,7 +187,7 @@ begin
ReplaceCheckBox.Enabled:=true;
UpdateReplaceCheck;
DirectoryOptionsGroupBox.Enabled:=WhereRadioGroup.ItemIndex=ItemIndDirectories;
DirectoriesOptionsGroupBox.Enabled:=WhereRadioGroup.ItemIndex=ItemIndDirectories;
AutoSize:=IDEDialogLayoutList.Find(Self,false)=nil;
IDEDialogLayoutList.ApplyLayout(Self);
@ -229,7 +229,7 @@ begin
OptionsCheckGroupBox.Checked[1] := fifWholeWord in NewOptions;
OptionsCheckGroupBox.Checked[2] := fifRegExpr in NewOptions;
OptionsCheckGroupBox.Checked[3] := fifMultiLine in NewOptions;
DirectoryOptionsGroupBox.Enabled := fifSearchDirectories in NewOptions;
DirectoriesOptionsGroupBox.Enabled := fifSearchDirectories in NewOptions;
IncludeSubDirsCheckBox.Checked := fifIncludeSubDirs in NewOptions;
ReplaceCheckBox.Checked := [fifReplace,fifReplaceAll]*NewOptions<>[];

4
ide/lazarusidestrconsts.pas
View File

@ -3746,10 +3746,10 @@ resourcestring
lisFindFilesearchAllOpenFiles = 'search all &open files';
lisFindFilesearchInActiveFile = 'search in &active file';
lisFindFilesearchInDirectories = 'search in &directories';
lisFindFileDirectoryOptions = 'Directory options';
lisFindFileDirectory = 'D&irectory';
lisFindFileDirectories = 'D&irectories';
lisMultipleDirectoriesAreSeparatedWithSemicolons = 'Multiple directories are'
+' separated with semicolons';
lisDirectories = 'Directories';
lisFindFileFileMask = 'Fi&le mask';
lisFindFileIncludeSubDirectories = 'Include &sub directories';
lisFindFileOnlyTextFiles = 'Only text files';