mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity
doublecmd/src/fFindDlg.lfm
Denis Bisson a9a6120462 FIX: In the operators used in file search with WDX content plugin, the ones using "(case)" were misleading since these ones were not case-sensitive and the ones without the mention were case-sensitive. It is also the opposite behavior as a certain old orthodox file manager while still using the same names. So this has been fixed and in such a way that existing setups made in the past will still result in finding the same thing as what they would find before. 
ADD: The strings "contains" and "(case)" used in file search with WDX content plugin are now translatable.
UPD: Because of the above mentionned modification, there are new language files. The French file is completely translated.
CHG: For the "fFindDlg", switch the .lrt file for the newer .lrj
RMV: In the "fFindDlg", set "NullInputAllowed" to False for the date requester so the "TextForNullDate" could be remove from translatable files.
REG: Strangely, "fFindDlg" form was with LCL version 1.9.0.0... Now fall back to 1.8.4.0.
2018-11-18 05:01:05 +00:00

1598 lines
49 KiB
Text
Raw Blame History

object frmFindDlg: TfrmFindDlg
Left = 275
Height = 469
Top = 176
Width = 875
Caption = 'Find files'
ClientHeight = 449
ClientWidth = 875
Constraints.MinHeight = 360
Constraints.MinWidth = 585
KeyPreview = True
Menu = mmMainMenu
OnClose = frmFindDlgClose
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = frmFindDlgShow
Position = poScreenCenter
SessionProperties = 'Height;Left;Top;Width;WindowState'
ShowInTaskBar = stAlways
LCLVersion = '1.8.4.0'
object pnlFindFile: TPanel
Left = 3
Height = 443
Top = 3
Width = 869
Align = alClient
BorderSpacing.Around = 3
BevelOuter = bvNone
ClientHeight = 443
ClientWidth = 869
TabOrder = 0
object pgcSearch: TPageControl
Left = 0
Height = 443
Top = 0
Width = 760
ActivePage = tsStandard
Align = alClient
TabIndex = 0
TabOrder = 0
OnChange = pgcSearchChange
object tsStandard: TTabSheet
Caption = 'Standard'
ChildSizing.LeftRightSpacing = 3
ChildSizing.TopBottomSpacing = 3
ClientHeight = 415
ClientWidth = 752
OnEnter = tsStandardEnter
object gbDirectories: TGroupBox
AnchorSideLeft.Control = tsStandard
AnchorSideTop.Control = tsStandard
AnchorSideRight.Control = tsStandard
AnchorSideRight.Side = asrBottom
Left = 3
Height = 116
Top = 3
Width = 746
Anchors = [akTop, akLeft, akRight]
AutoSize = True
Caption = 'Directories'
ChildSizing.LeftRightSpacing = 5
ClientHeight = 96
ClientWidth = 742
TabOrder = 0
OnResize = gbDirectoriesResize
object lblFindPathStart: TLabel
AnchorSideLeft.Control = gbDirectories
AnchorSideBottom.Control = cbFollowSymLinks
AnchorSideBottom.Side = asrBottom
Left = 5
Height = 15
Top = 4
Width = 87
Anchors = [akLeft, akBottom]
Caption = 'Start in &directory'
FocusControl = cmbFindPathStart
ParentColor = False
end
object cbFollowSymLinks: TCheckBox
AnchorSideTop.Control = gbDirectories
AnchorSideRight.Control = gbDirectories
AnchorSideRight.Side = asrBottom
Left = 633
Height = 19
Top = 0
Width = 104
Anchors = [akTop, akRight]
Caption = 'Follow s&ymlinks'
TabOrder = 0
end
object cmbFindPathStart: TComboBoxWithDelItems
AnchorSideLeft.Control = lblFindPathStart
AnchorSideTop.Control = cbFollowSymLinks
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = btnChooseFolder
Left = 5
Height = 23
Top = 19
Width = 707
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 2
ItemHeight = 15
TabOrder = 1
end
object btnChooseFolder: TSpeedButton
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cmbFindPathStart
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = cmbFindPathStart
AnchorSideBottom.Side = asrBottom
Left = 714
Height = 23
Top = 19
Width = 23
Anchors = [akTop, akRight, akBottom]
OnClick = btnSelDirClick
end
object lblExcludeDirectories: TLabel
AnchorSideLeft.Control = cmbFindPathStart
AnchorSideTop.Control = cmbFindPathStart
AnchorSideTop.Side = asrBottom
Left = 5
Height = 15
Top = 45
Width = 117
BorderSpacing.Top = 3
Caption = 'E&xclude subdirectories'
FocusControl = cmbExcludeDirectories
ParentColor = False
end
object cmbExcludeDirectories: TComboBoxWithDelItems
AnchorSideLeft.Control = lblExcludeDirectories
AnchorSideTop.Control = lblExcludeDirectories
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pnlDirectoriesDepth
Left = 5
Height = 23
Hint = 'Enter directories names that should be excluded from search separated with ";"'
Top = 60
Width = 527
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 5
BorderSpacing.Bottom = 5
ItemHeight = 15
ParentShowHint = False
ShowHint = True
TabOrder = 2
end
object pnlDirectoriesDepth: TPanel
AnchorSideTop.Control = lblExcludeDirectories
AnchorSideRight.Control = gbDirectories
AnchorSideRight.Side = asrBottom
Left = 537
Height = 51
Top = 45
Width = 200
Anchors = [akTop, akRight]
BevelOuter = bvNone
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 51
ClientWidth = 200
TabOrder = 3
object lblSearchDepth: TLabel
Left = 0
Height = 15
Top = 0
Width = 200
Caption = 'Search su&bdirectories:'
FocusControl = cmbSearchDepth
ParentColor = False
end
object cmbSearchDepth: TComboBox
Left = 0
Height = 23
Top = 15
Width = 200
ItemHeight = 15
Style = csDropDownList
TabOrder = 0
end
end
object cbSelectedFiles: TCheckBox
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = cbFollowSymLinks
AnchorSideBottom.Control = cbFollowSymLinks
AnchorSideBottom.Side = asrBottom
Left = 458
Height = 19
Top = 0
Width = 169
Anchors = [akRight, akBottom]
BorderSpacing.Right = 6
Caption = 'Selected directories and &files'
OnChange = cbSelectedFilesChange
TabOrder = 4
end
object cbOpenedTabs: TCheckBox
AnchorSideRight.Control = cbSelectedFiles
AnchorSideBottom.Control = cbSelectedFiles
AnchorSideBottom.Side = asrBottom
Left = 365
Height = 19
Top = 0
Width = 87
Anchors = [akRight, akBottom]
BorderSpacing.Right = 6
Caption = 'Opened tabs'
OnChange = cbOpenedTabsChange
TabOrder = 5
end
end
object gbFiles: TGroupBox
AnchorSideLeft.Control = tsStandard
AnchorSideTop.Control = gbDirectories
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = tsStandard
AnchorSideRight.Side = asrBottom
Left = 3
Height = 108
Top = 119
Width = 746
Anchors = [akTop, akLeft, akRight]
AutoSize = True
Caption = 'Files'
ChildSizing.LeftRightSpacing = 5
ClientHeight = 88
ClientWidth = 742
TabOrder = 1
object lblFindFileMask: TLabel
AnchorSideLeft.Control = gbFiles
AnchorSideBottom.Control = cbPartialNameSearch
AnchorSideBottom.Side = asrBottom
Left = 5
Height = 15
Top = 4
Width = 51
Anchors = [akLeft, akBottom]
Caption = '&File mask'
FocusControl = cmbFindFileMask
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object cmbFindFileMask: TComboBoxWithDelItems
AnchorSideLeft.Control = gbFiles
AnchorSideTop.Control = lblFindFileMask
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = gbFiles
AnchorSideRight.Side = asrBottom
Left = 5
Height = 23
Hint = 'Enter files names separated with ";"'
Top = 19
Width = 732
Anchors = [akTop, akLeft, akRight]
ItemHeight = 15
ParentShowHint = False
ShowHint = True
TabOrder = 0
end
object lblExcludeFiles: TLabel
AnchorSideLeft.Control = cmbFindFileMask
AnchorSideTop.Control = cmbFindFileMask
AnchorSideTop.Side = asrBottom
Left = 5
Height = 15
Top = 45
Width = 64
BorderSpacing.Top = 3
Caption = '&Exclude files'
FocusControl = cmbExcludeFiles
ParentColor = False
end
object cmbExcludeFiles: TComboBoxWithDelItems
AnchorSideLeft.Control = gbFiles
AnchorSideTop.Control = lblExcludeFiles
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = gbFiles
AnchorSideRight.Side = asrBottom
Left = 5
Height = 23
Hint = 'Enter files names that should be excluded from search separated with ";"'
Top = 60
Width = 732
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Bottom = 5
ItemHeight = 15
ParentShowHint = False
ShowHint = True
TabOrder = 1
end
object cbPartialNameSearch: TCheckBox
AnchorSideRight.Control = cbRegExp
AnchorSideBottom.Control = cbRegExp
AnchorSideBottom.Side = asrBottom
Left = 450
Height = 19
Top = 0
Width = 163
Anchors = [akRight, akBottom]
BorderSpacing.Right = 6
Caption = 'Searc&h for part of file name'
Checked = True
OnChange = cbPartialNameSearchChange
State = cbChecked
TabOrder = 3
end
object cbRegExp: TCheckBox
AnchorSideTop.Control = gbFiles
AnchorSideRight.Control = gbFiles
AnchorSideRight.Side = asrBottom
Left = 619
Height = 19
Top = 0
Width = 118
Anchors = [akTop, akRight]
Caption = '&Regular expression'
OnChange = cbRegExpChange
TabOrder = 4
end
object cbFindInArchive: TCheckBox
AnchorSideRight.Control = cbPartialNameSearch
AnchorSideBottom.Control = cbPartialNameSearch
AnchorSideBottom.Side = asrBottom
Left = 330
Height = 19
Top = 0
Width = 114
Anchors = [akRight, akBottom]
BorderSpacing.Right = 6
Caption = 'Search in &archives'
OnChange = cbFindInArchiveChange
TabOrder = 2
end
end
object gbFindData: TGroupBox
AnchorSideLeft.Control = tsStandard
AnchorSideTop.Control = gbFiles
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = tsStandard
AnchorSideRight.Side = asrBottom
Left = 3
Height = 123
Top = 227
Width = 746
Anchors = [akTop, akLeft, akRight]
AutoSize = True
Caption = 'Find Data'
ChildSizing.TopBottomSpacing = 2
ClientHeight = 103
ClientWidth = 742
TabOrder = 2
object lblEncoding: TLabel
AnchorSideLeft.Control = gbFindData
AnchorSideTop.Control = cmbEncoding
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = CheksPanel
AnchorSideRight.Side = asrBottom
Left = 6
Height = 15
Top = 81
Width = 53
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
Caption = 'Encodin&g:'
FocusControl = cmbEncoding
ParentColor = False
end
object cbCaseSens: TCheckBox
AnchorSideLeft.Control = cbNotContainingText
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbNotContainingText
AnchorSideTop.Side = asrCenter
Left = 239
Height = 19
Top = 55
Width = 93
BorderSpacing.Left = 36
BorderSpacing.Top = 4
BorderSpacing.Bottom = 8
Caption = 'Case sens&itive'
OnChange = cbCaseSensChange
TabOrder = 4
end
object cbNotContainingText: TCheckBox
AnchorSideLeft.Control = lblEncoding
AnchorSideTop.Control = cmbReplaceText
AnchorSideTop.Side = asrBottom
Left = 6
Height = 19
Top = 55
Width = 197
BorderSpacing.Top = 4
Caption = 'Find files N&OT containing the text'
TabOrder = 3
end
object cmbEncoding: TComboBox
AnchorSideLeft.Control = cmbReplaceText
AnchorSideTop.Control = cbNotContainingText
AnchorSideTop.Side = asrBottom
Left = 112
Height = 23
Top = 77
Width = 100
BorderSpacing.Top = 3
BorderSpacing.Bottom = 3
ItemHeight = 15
OnSelect = cmbEncodingSelect
Style = csDropDownList
TabOrder = 6
end
object cmbFindText: TComboBoxWithDelItems
AnchorSideLeft.Control = CheksPanel
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = gbFindData
AnchorSideRight.Control = gbFindData
AnchorSideRight.Side = asrBottom
Left = 112
Height = 23
Top = 2
Width = 627
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 3
BorderSpacing.Right = 3
ItemHeight = 15
TabOrder = 1
end
object cmbReplaceText: TComboBoxWithDelItems
AnchorSideLeft.Control = cmbFindText
AnchorSideTop.Control = cmbFindText
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = gbFindData
AnchorSideRight.Side = asrBottom
Left = 112
Height = 23
Top = 28
Width = 627
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 3
BorderSpacing.Right = 3
ItemHeight = 15
TabOrder = 2
end
object CheksPanel: TPanel
AnchorSideLeft.Control = gbFindData
AnchorSideTop.Control = cmbFindText
AnchorSideBottom.Control = cmbReplaceText
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 49
Top = 2
Width = 109
Anchors = [akTop, akLeft, akBottom]
AutoSize = True
BevelOuter = bvNone
ClientHeight = 49
ClientWidth = 109
TabOrder = 0
object cbFindText: TCheckBox
AnchorSideLeft.Control = CheksPanel
AnchorSideTop.Control = CheksPanel
AnchorSideRight.Side = asrBottom
Left = 6
Height = 19
Top = 2
Width = 97
BorderSpacing.Left = 6
BorderSpacing.Top = 2
BorderSpacing.Right = 6
Caption = 'Find &text in file'
OnChange = cbFindTextChange
TabOrder = 0
end
object cbReplaceText: TCheckBox
AnchorSideLeft.Control = CheksPanel
AnchorSideTop.Control = CheksPanel
AnchorSideTop.Side = asrBottom
AnchorSideBottom.Control = CheksPanel
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 19
Top = 28
Width = 77
Anchors = [akLeft, akBottom]
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Bottom = 2
Caption = 'Re&place by'
OnChange = cbReplaceTextChange
TabOrder = 1
end
end
object cbTextRegExp: TCheckBox
AnchorSideLeft.Control = cbCaseSens
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbCaseSens
AnchorSideTop.Side = asrCenter
Left = 344
Height = 19
Top = 55
Width = 118
BorderSpacing.Left = 12
Caption = 'Regular &expression'
OnChange = cbTextRegExpChange
TabOrder = 5
end
object chkHex: TCheckBox
AnchorSideLeft.Control = cbTextRegExp
AnchorSideTop.Control = cmbEncoding
AnchorSideTop.Side = asrCenter
Left = 344
Height = 19
Top = 79
Width = 88
Caption = 'Hexadecimal'
OnChange = chkHexChange
TabOrder = 7
end
end
end
object tsAdvanced: TTabSheet
Caption = 'Advanced'
ChildSizing.LeftRightSpacing = 3
ChildSizing.TopBottomSpacing = 3
ClientHeight = 356
ClientWidth = 752
ImageIndex = 1
object cbDateFrom: TCheckBox
AnchorSideLeft.Control = tsAdvanced
AnchorSideTop.Control = seFileSizeFrom
AnchorSideTop.Side = asrBottom
Left = 6
Height = 19
Top = 127
Width = 76
BorderSpacing.Left = 6
BorderSpacing.Top = 13
Caption = '&Date from:'
OnChange = cbDateFromChange
TabOrder = 8
end
object cbNotOlderThan: TCheckBox
AnchorSideLeft.Control = seNotOlderThan
AnchorSideTop.Control = tsAdvanced
Left = 3
Height = 19
Top = 18
Width = 100
BorderSpacing.Top = 18
Caption = 'N&ot older than:'
Color = clBtnFace
OnChange = cbNotOlderThanChange
ParentColor = False
TabOrder = 0
end
object seNotOlderThan: TSpinEdit
AnchorSideLeft.Control = ZVDateFrom
AnchorSideTop.Control = cbNotOlderThan
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = ZVDateFrom
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = cmbNotOlderThanUnit
AnchorSideBottom.Side = asrBottom
Left = 3
Height = 23
Top = 37
Width = 83
Anchors = [akTop, akLeft, akRight, akBottom]
MaxValue = 999999999
OnChange = seNotOlderThanChange
TabOrder = 1
end
object cmbNotOlderThanUnit: TComboBox
AnchorSideLeft.Control = ZVDateTo
AnchorSideTop.Control = cbNotOlderThan
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = ZVDateTo
AnchorSideRight.Side = asrBottom
Left = 116
Height = 23
Top = 37
Width = 83
Anchors = [akTop, akLeft, akRight]
Enabled = False
ItemHeight = 15
Style = csDropDownList
TabOrder = 2
end
object cbFileSizeFrom: TCheckBox
AnchorSideLeft.Control = ZVDateFrom
AnchorSideTop.Control = seNotOlderThan
AnchorSideTop.Side = asrBottom
Left = 3
Height = 19
Top = 72
Width = 72
BorderSpacing.Top = 12
Caption = 'S&ize from:'
OnChange = cbFileSizeFromChange
TabOrder = 3
end
object cbDateTo: TCheckBox
AnchorSideLeft.Control = ZVDateTo
AnchorSideTop.Control = cbDateFrom
AnchorSideTop.Side = asrCenter
Left = 116
Height = 19
Top = 127
Width = 61
BorderSpacing.Top = 18
Caption = 'Dat&e to:'
OnChange = cbDateToChange
TabOrder = 10
end
object cbFileSizeTo: TCheckBox
AnchorSideLeft.Control = ZVDateTo
AnchorSideTop.Control = cbFileSizeFrom
Left = 116
Height = 19
Top = 72
Width = 57
Caption = 'Si&ze to:'
OnChange = cbFileSizeToChange
TabOrder = 5
end
object seFileSizeFrom: TSpinEdit
AnchorSideLeft.Control = ZVDateFrom
AnchorSideTop.Control = cbFileSizeFrom
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = ZVDateFrom
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = cmbFileSizeUnit
AnchorSideBottom.Side = asrBottom
Left = 3
Height = 23
Top = 91
Width = 83
Anchors = [akTop, akLeft, akRight, akBottom]
MaxValue = 2147483647
OnChange = seFileSizeFromChange
TabOrder = 4
end
object seFileSizeTo: TSpinEdit
AnchorSideLeft.Control = ZVDateTo
AnchorSideTop.Control = cbFileSizeTo
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = ZVDateTo
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = cmbFileSizeUnit
AnchorSideBottom.Side = asrBottom
Left = 116
Height = 23
Top = 91
Width = 83
Anchors = [akTop, akLeft, akRight, akBottom]
MaxValue = 2147483647
OnChange = seFileSizeToChange
TabOrder = 6
end
object cmbFileSizeUnit: TComboBox
AnchorSideLeft.Control = ZVTimeFrom
AnchorSideTop.Control = cbFileSizeTo
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = ZVTimeTo
AnchorSideRight.Side = asrBottom
Left = 229
Height = 23
Top = 91
Width = 160
Anchors = [akTop, akLeft, akRight]
Enabled = False
ItemHeight = 15
Style = csDropDownList
TabOrder = 7
end
object cbTimeFrom: TCheckBox
AnchorSideLeft.Control = ZVTimeFrom
AnchorSideTop.Control = cbDateFrom
AnchorSideTop.Side = asrCenter
Left = 229
Height = 19
Top = 127
Width = 79
BorderSpacing.Top = 12
Caption = '&Time from:'
OnChange = cbTimeFromChange
TabOrder = 12
end
object cbTimeTo: TCheckBox
AnchorSideLeft.Control = ZVTimeTo
AnchorSideTop.Control = cbDateFrom
AnchorSideTop.Side = asrCenter
Left = 324
Height = 19
Top = 127
Width = 64
Caption = 'Ti&me to:'
OnChange = cbTimeToChange
TabOrder = 14
end
object Bevel2: TBevel
AnchorSideLeft.Control = tsAdvanced
AnchorSideTop.Control = ZVDateFrom
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = tsAdvanced
AnchorSideRight.Side = asrBottom
Left = 6
Height = 4
Top = 181
Width = 740
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Top = 12
BorderSpacing.Right = 6
Shape = bsTopLine
Style = bsRaised
end
object ZVDateFrom: TDateTimePicker
AnchorSideLeft.Control = tsAdvanced
AnchorSideTop.Control = cbDateFrom
AnchorSideTop.Side = asrBottom
Left = 3
Height = 23
Top = 146
Width = 83
CenturyFrom = 1941
MaxDate = 2958465
MinDate = -53780
TabOrder = 9
BorderSpacing.Left = 3
TrailingSeparator = False
LeadingZeros = True
NullInputAllowed = False
Kind = dtkDate
TimeFormat = tf24
TimeDisplay = tdHMS
DateMode = dmComboBox
Date = 40598
Time = 0.925837488422985
UseDefaultSeparators = True
HideDateTimeParts = []
MonthNames = 'Long'
OnChange = ZVDateFromChange
end
object ZVDateTo: TDateTimePicker
AnchorSideLeft.Control = ZVDateFrom
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ZVDateFrom
AnchorSideTop.Side = asrCenter
Left = 116
Height = 23
Top = 146
Width = 83
CenturyFrom = 1941
MaxDate = 2958465
MinDate = -53780
TabOrder = 11
BorderSpacing.Left = 30
TrailingSeparator = False
LeadingZeros = True
NullInputAllowed = False
Kind = dtkDate
TimeFormat = tf24
TimeDisplay = tdHMS
DateMode = dmComboBox
Date = 40598
Time = 0.927234872688132
UseDefaultSeparators = True
HideDateTimeParts = []
MonthNames = 'Long'
OnChange = ZVDateToChange
end
object ZVTimeFrom: TDateTimePicker
AnchorSideLeft.Control = ZVDateTo
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ZVDateFrom
AnchorSideBottom.Control = ZVDateFrom
AnchorSideBottom.Side = asrBottom
Left = 229
Height = 23
Top = 146
Width = 65
CenturyFrom = 1941
MaxDate = 2958465
MinDate = -53780
TabOrder = 13
BorderSpacing.Left = 30
TrailingSeparator = False
LeadingZeros = True
Anchors = [akTop, akLeft, akBottom]
NullInputAllowed = False
Kind = dtkTime
TimeFormat = tf24
TimeDisplay = tdHMS
DateMode = dmComboBox
Date = 40598
Time = 0.930765335644537
UseDefaultSeparators = True
HideDateTimeParts = []
MonthNames = 'Long'
OnChange = ZVTimeFromChange
end
object ZVTimeTo: TDateTimePicker
AnchorSideLeft.Control = ZVTimeFrom
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ZVDateFrom
AnchorSideBottom.Control = ZVDateFrom
AnchorSideBottom.Side = asrBottom
Left = 324
Height = 23
Top = 146
Width = 65
CenturyFrom = 1941
MaxDate = 2958465
MinDate = -53780
TabOrder = 15
BorderSpacing.Left = 30
TrailingSeparator = False
LeadingZeros = True
Anchors = [akTop, akLeft, akBottom]
NullInputAllowed = False
Kind = dtkTime
TimeFormat = tf24
TimeDisplay = tdHMS
DateMode = dmComboBox
Date = 40598
Time = 0.930765335644537
UseDefaultSeparators = True
HideDateTimeParts = []
MonthNames = 'Long'
OnChange = ZVTimeToChange
end
object lblAttributes: TLabel
AnchorSideLeft.Control = tsAdvanced
AnchorSideTop.Control = Bevel2
AnchorSideTop.Side = asrBottom
Left = 3
Height = 15
Top = 193
Width = 52
BorderSpacing.Left = 3
BorderSpacing.Top = 8
Caption = 'Attri&butes'
FocusControl = edtAttrib
ParentColor = False
end
object edtAttrib: TEdit
AnchorSideLeft.Control = tsAdvanced
AnchorSideTop.Control = lblAttributes
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = btnAddAttribute
Left = 3
Height = 23
Top = 212
Width = 636
HelpType = htKeyword
HelpKeyword = '/findfiles.html#attributes'
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 3
BorderSpacing.Top = 4
BorderSpacing.Right = 3
ParentShowHint = False
ShowHint = True
TabOrder = 16
end
object btnAddAttribute: TButton
AnchorSideLeft.Control = edtAttrib
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = edtAttrib
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = btnAttrsHelp
Left = 642
Height = 26
Top = 210
Width = 48
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Around = 3
Caption = '&Add'
Constraints.MinHeight = 26
OnClick = btnAddAttributeClick
TabOrder = 17
end
object btnAttrsHelp: TButton
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = edtAttrib
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = tsAdvanced
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 693
Height = 27
Top = 210
Width = 53
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Right = 6
BorderSpacing.InnerBorder = 1
Caption = '&Help'
Constraints.MinHeight = 26
OnClick = btnAttrsHelpClick
TabOrder = 18
end
end
object tsPlugins: TTabSheet
Caption = 'Plugins'
ChildSizing.LeftRightSpacing = 3
ChildSizing.TopBottomSpacing = 3
ClientHeight = 356
ClientWidth = 752
object cbUsePlugin: TCheckBox
AnchorSideLeft.Control = tsPlugins
AnchorSideTop.Control = cmbPlugin
AnchorSideTop.Side = asrCenter
Left = 3
Height = 19
Top = 12
Width = 116
Caption = '&Use search plugin:'
OnChange = cbUsePluginChange
TabOrder = 0
end
object cmbPlugin: TComboBox
AnchorSideLeft.Control = cbUsePlugin
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = tsPlugins
AnchorSideRight.Control = tsPlugins
AnchorSideRight.Side = asrBottom
Left = 122
Height = 23
Top = 10
Width = 627
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 3
BorderSpacing.Top = 10
Enabled = False
ItemHeight = 15
TabOrder = 1
end
inline frmContentPlugins: TfrmSearchPlugin
AnchorSideLeft.Control = tsPlugins
AnchorSideTop.Control = cmbPlugin
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = tsPlugins
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = tsPlugins
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 311
Top = 39
Width = 740
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 6
BorderSpacing.Top = 6
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
ClientHeight = 311
ClientWidth = 740
TabOrder = 2
inherited pnlTable: TScrollBox
Height = 196
Width = 740
end
inherited pnlButtons: TPanel
Top = 261
Width = 740
ClientWidth = 740
end
inherited HeaderControl: THeaderControl
Width = 740
end
inherited pnlHeader: TPanel
Width = 740
ClientWidth = 740
inherited chkUsePlugins: TCheckBox
Width = 312
end
inherited rbAnd: TRadioButton
Left = 318
Width = 210
end
inherited rbOr: TRadioButton
Left = 534
Width = 206
end
end
end
end
object tsLoadSave: TTabSheet
Caption = 'Load/Save'
ChildSizing.LeftRightSpacing = 3
ChildSizing.TopBottomSpacing = 3
ClientHeight = 356
ClientWidth = 752
OnShow = tsLoadSaveShow
object lblTemplateHeader: TLabel
Left = 3
Height = 15
Top = 3
Width = 746
Align = alTop
BorderSpacing.Left = 3
BorderSpacing.Top = 3
BorderSpacing.Right = 3
Caption = '&Previous searches:'
FocusControl = lbSearchTemplates
ParentColor = False
end
object lbSearchTemplates: TListBox
Left = 3
Height = 272
Top = 18
Width = 746
Align = alClient
BorderSpacing.Left = 3
BorderSpacing.Right = 3
BorderSpacing.Bottom = 3
ItemHeight = 0
OnDblClick = lbSearchTemplatesDblClick
OnSelectionChange = lbSearchTemplatesSelectionChange
ScrollWidth = 708
TabOrder = 2
end
object lblSearchContents: TPanel
Left = 3
Height = 21
Top = 296
Width = 746
Align = alBottom
Alignment = taLeftJustify
AutoSize = True
BorderSpacing.Top = 3
BorderSpacing.Bottom = 3
BorderSpacing.Around = 3
BevelOuter = bvLowered
Constraints.MinHeight = 21
TabOrder = 0
end
object pnlLoadSaveBottom: TPanel
Left = 3
Height = 30
Top = 323
Width = 746
Align = alBottom
AutoSize = True
BorderSpacing.Around = 3
BevelOuter = bvNone
ClientHeight = 30
ClientWidth = 746
TabOrder = 1
object pnlLoadSaveBottomButtons: TPanel
Left = 336
Height = 30
Top = 0
Width = 410
Align = alRight
AutoSize = True
BevelOuter = bvNone
ChildSizing.Layout = cclTopToBottomThenLeftToRight
ClientHeight = 30
ClientWidth = 410
TabOrder = 0
object btnSearchLoad: TButton
Left = 0
Height = 30
Top = 0
Width = 75
AutoSize = True
BorderSpacing.Right = 3
Caption = 'L&oad'
Constraints.MinWidth = 75
OnClick = btnSearchLoadClick
TabOrder = 0
end
object btnSearchSave: TButton
Left = 78
Height = 30
Top = 0
Width = 75
AutoSize = True
BorderSpacing.Left = 3
BorderSpacing.Right = 3
Caption = 'S&ave'
Constraints.MinWidth = 75
OnClick = btnSearchSaveClick
TabOrder = 1
end
object btnSearchSaveWithStartingPath: TButton
Left = 156
Height = 30
Hint = 'If saved then "Start in directory" will be restored when loading template. Use it if you want to fix searching to a certain directory'
Top = 0
Width = 176
AutoSize = True
BorderSpacing.Left = 3
BorderSpacing.Right = 3
Caption = 'Sa&ve with "Start in directory"'
Constraints.MinWidth = 75
OnClick = btnSearchSaveWithStartingPathClick
ParentShowHint = False
ShowHint = True
TabOrder = 2
end
object btnSearchDelete: TButton
Left = 335
Height = 30
Top = 0
Width = 75
AutoSize = True
BorderSpacing.Left = 3
Caption = '&Delete'
Constraints.MinHeight = 30
Constraints.MinWidth = 75
OnClick = btnSearchDeleteClick
TabOrder = 3
end
end
end
end
object tsResults: TTabSheet
Caption = 'Results'
ChildSizing.LeftRightSpacing = 3
ChildSizing.TopBottomSpacing = 3
ClientHeight = 356
ClientWidth = 752
object pnlResults: TPanel
AnchorSideTop.Control = pnlFindFile
Left = 3
Height = 350
Top = 3
Width = 746
Align = alClient
BevelOuter = bvNone
ClientHeight = 350
ClientWidth = 746
FullRepaint = False
TabOrder = 0
object pnlStatus: TPanel
Left = 0
Height = 8
Top = 0
Width = 746
Align = alTop
AutoSize = True
BevelOuter = bvNone
ClientHeight = 8
ClientWidth = 746
FullRepaint = False
TabOrder = 0
object lblStatus: TLabel
AnchorSideLeft.Control = pnlStatus
AnchorSideTop.Control = lblCurrent
AnchorSideTop.Side = asrBottom
Left = 3
Height = 1
Top = 7
Width = 1
BorderSpacing.Left = 3
BorderSpacing.Top = 3
ParentColor = False
ParentFont = False
end
object lblCurrent: TLabel
AnchorSideLeft.Control = pnlStatus
AnchorSideTop.Control = pnlStatus
Left = 3
Height = 1
Top = 3
Width = 1
BorderSpacing.Left = 3
BorderSpacing.Top = 3
ParentColor = False
ParentFont = False
end
object lblFound: TLabel
AnchorSideTop.Control = lblStatus
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = pnlStatus
AnchorSideRight.Side = asrBottom
Left = 742
Height = 1
Top = 7
Width = 1
Anchors = [akTop, akRight]
BorderSpacing.Right = 3
ParentColor = False
ParentFont = False
end
end
object lsFoundedFiles: TListBox
Left = 3
Height = 300
Top = 11
Width = 740
Align = alClient
BorderSpacing.Around = 3
ItemHeight = 0
MultiSelect = True
OnDblClick = lsFoundedFilesDblClick
OnKeyDown = lsFoundedFilesKeyDown
OnMouseDown = lsFoundedFilesMouseDown
OnMouseUp = lsFoundedFilesMouseUp
OnMouseWheelDown = lsFoundedFilesMouseWheelDown
OnMouseWheelUp = lsFoundedFilesMouseWheelUp
ScrollWidth = 735
TabOrder = 1
end
object pnlResultsBottom: TPanel
Left = 3
Height = 33
Top = 314
Width = 740
Align = alBottom
AutoSize = True
BorderSpacing.Around = 3
BevelOuter = bvNone
ClientHeight = 33
ClientWidth = 740
TabOrder = 2
object pnlResultsBottomButtons: TPanel
Left = 426
Height = 33
Top = 0
Width = 314
Align = alRight
AutoSize = True
BevelOuter = bvNone
ClientHeight = 33
ClientWidth = 314
TabOrder = 0
object btnWorkWithFound: TButton
AnchorSideLeft.Side = asrBottom
Left = 204
Height = 33
Top = 0
Width = 110
Action = actFeedToListbox
Align = alRight
AutoSize = True
BorderSpacing.InnerBorder = 4
Constraints.MinWidth = 50
TabOrder = 0
end
object btnGoToPath: TButton
Left = 119
Height = 33
Top = 0
Width = 82
Action = actGoToFile
Align = alRight
AutoSize = True
BorderSpacing.Left = 3
BorderSpacing.Right = 3
BorderSpacing.InnerBorder = 4
Constraints.MinWidth = 50
TabOrder = 3
end
object btnView: TButton
Left = 0
Height = 33
Top = 0
Width = 59
Action = actView
Align = alRight
AutoSize = True
BorderSpacing.Right = 3
BorderSpacing.InnerBorder = 4
Constraints.MinWidth = 50
TabOrder = 1
end
object btnEdit: TButton
Left = 62
Height = 33
Top = 0
Width = 54
Action = actEdit
Align = alRight
AutoSize = True
BorderSpacing.Right = 3
BorderSpacing.InnerBorder = 4
Constraints.MinWidth = 50
TabOrder = 2
end
end
end
end
end
end
object pnlButtons: TPanel
Left = 766
Height = 403
Top = 40
Width = 103
Align = alRight
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Left = 6
BorderSpacing.Top = 40
BevelOuter = bvNone
ChildSizing.VerticalSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsHomogenousChildResize
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 403
ClientWidth = 103
Constraints.MinWidth = 100
TabOrder = 1
object btnUseTemplate: TButton
Left = 0
Height = 33
Top = 0
Width = 103
AutoSize = True
BorderSpacing.InnerBorder = 4
Caption = 'Use template'
ModalResult = 1
OnKeyDown = btnNewSearchKeyDown
TabOrder = 0
Visible = False
end
object btnSaveTemplate: TButton
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 33
Top = 39
Width = 103
AutoSize = True
BorderSpacing.InnerBorder = 4
Caption = '&Save'
ModalResult = 1
OnClick = btnSearchSaveClick
OnKeyDown = btnNewSearchKeyDown
TabOrder = 1
Visible = False
end
object btnStart: TButton
Left = 0
Height = 33
Top = 78
Width = 103
Action = actStart
AutoSize = True
BorderSpacing.InnerBorder = 4
OnKeyDown = btnNewSearchKeyDown
TabOrder = 2
end
object btnStop: TButton
Left = 0
Height = 33
Top = 117
Width = 103
Action = actCancel
AutoSize = True
BorderSpacing.InnerBorder = 4
OnKeyDown = btnNewSearchKeyDown
TabOrder = 3
end
object btnClose: TButton
Left = 0
Height = 33
Top = 156
Width = 103
Action = actClose
AutoSize = True
BorderSpacing.InnerBorder = 4
OnKeyDown = btnNewSearchKeyDown
TabOrder = 4
end
object btnNewSearch: TButton
Left = 0
Height = 33
Top = 219
Width = 103
Action = actNewSearch
AutoSize = True
BorderSpacing.Top = 30
BorderSpacing.InnerBorder = 4
OnKeyDown = btnNewSearchKeyDown
TabOrder = 5
end
object btnLastSearch: TButton
Left = 0
Height = 33
Top = 258
Width = 103
Action = actLastSearch
AutoSize = True
BorderSpacing.InnerBorder = 4
OnKeyDown = btnNewSearchKeyDown
TabOrder = 6
end
end
end
object PopupMenuFind: TPopupMenu
OnPopup = PopupMenuFindPopup
left = 312
top = 48
object miOpenInNewTab: TMenuItem
Caption = 'Open In New Tab(s)'
OnClick = miOpenInNewTabClick
end
object miShowInViewer: TMenuItem
Caption = 'Show In Viewer'
OnClick = miShowInViewerClick
end
object miShowInEditor: TMenuItem
Caption = 'Show In Editor'
OnClick = miShowInEditorClick
end
object miRemoveFromLlist: TMenuItem
Caption = 'Remove from list'
OnClick = miRemoveFromLlistClick
end
object miShowAllFound: TMenuItem
Caption = 'Show all found items'
Enabled = False
OnClick = miShowAllFoundClick
end
end
object actList: TActionList
left = 168
top = 48
object actIntelliFocus: TAction
Caption = 'Find Data'
OnExecute = actExecute
end
object actStart: TAction
Caption = '&Start'
OnExecute = actExecute
end
object actCancel: TAction
Caption = 'C&ancel'
Enabled = False
OnExecute = actExecute
end
object actClose: TAction
Caption = '&Close'
OnExecute = actExecute
end
object actNewSearch: TAction
Caption = '&New search'
OnExecute = actExecute
end
object actNewSearchClearFilters: TAction
Caption = 'New search (clear filters)'
OnExecute = actExecute
end
object actLastSearch: TAction
Caption = '&Last search'
OnExecute = actExecute
end
object actView: TAction
Caption = '&View'
OnExecute = actExecute
end
object actEdit: TAction
Caption = '&Edit'
OnExecute = actExecute
end
object actGoToFile: TAction
Caption = '&Go to file'
OnExecute = actExecute
end
object actFeedToListbox: TAction
Caption = 'Feed to &listbox'
OnExecute = actExecute
end
object actPageStandard: TAction
Caption = 'Go to page "Standard"'
OnExecute = actExecute
end
object actPageAdvanced: TAction
Caption = 'Go to page "Advanced"'
OnExecute = actExecute
end
object actPagePlugins: TAction
Caption = 'Go to page "Plugins"'
OnExecute = actExecute
end
object actPageLoadSave: TAction
Caption = 'Go to page "Load/Save"'
OnExecute = actExecute
end
object actPageResults: TAction
Caption = 'Go to page "Results"'
OnExecute = actExecute
end
object actCancelClose: TAction
Caption = 'Cancel search and close window'
OnExecute = actExecute
end
object actFreeFromMem: TAction
Caption = 'Cancel search, close and free from memory'
OnExecute = actExecute
end
object actFreeFromMemAllOthers: TAction
Caption = 'For all other "Find files", cancel, close and free from memory'
OnExecute = actExecute
end
object actConfigFileSearchHotKeys: TAction
Caption = 'Configuration of hot keys'
OnExecute = actExecute
end
object actPageNext: TAction
Caption = 'Switch to Nex&t Page'
OnExecute = actExecute
end
object actPagePrev: TAction
Caption = 'Switch to &Previous Page'
OnExecute = actExecute
end
end
object mmMainMenu: TMainMenu
left = 232
top = 48
object miAction: TMenuItem
Caption = '&Action'
object miNewSearch: TMenuItem
Action = actNewSearch
end
object miNewSearchClearFilters: TMenuItem
Action = actNewSearchClearFilters
end
object miLastSearch: TMenuItem
Action = actLastSearch
end
object miStart: TMenuItem
Action = actStart
end
object miCancel: TMenuItem
Action = actCancel
end
object miSeparator1: TMenuItem
Caption = '-'
end
object miClose: TMenuItem
Action = actClose
end
object miCancelClose: TMenuItem
Action = actCancelClose
end
object miFreeFromMem: TMenuItem
Action = actFreeFromMem
end
object miFreeFromMemAllOthers: TMenuItem
Action = actFreeFromMemAllOthers
Caption = 'For all others, cancel, close and free from memory'
end
end
object miViewTab: TMenuItem
Caption = '&View'
object miPageStandard: TMenuItem
Action = actPageStandard
end
object miPageAdvanced: TMenuItem
Action = actPageAdvanced
end
object miPagePlugins: TMenuItem
Action = actPagePlugins
end
object miPageLoadSave: TMenuItem
Action = actPageLoadSave
end
object miPageResults: TMenuItem
Action = actPageResults
end
object miSeparator2: TMenuItem
Caption = '-'
end
end
object miResult: TMenuItem
Caption = '&Result'
object miView: TMenuItem
Action = actView
end
object miEdit: TMenuItem
Action = actEdit
end
object miFeedToListbox: TMenuItem
Action = actFeedToListbox
end
object miGoToFile: TMenuItem
Action = actGoToFile
end
end
object miOptions: TMenuItem
Caption = 'Options'
object miConfigFileSearchHotKeys: TMenuItem
Action = actConfigFileSearchHotKeys
end
end
end
end
Reference in a new issue View git blame Copy permalink