222 lines
5.0 KiB
Plaintext
222 lines
5.0 KiB
Plaintext
|
|
object JvSearchFileMainForm: TJvSearchFileMainForm
|
||
|
|
Left = 372
|
||
|
|
Top = 182
|
||
|
|
AutoScroll = False
|
||
|
|
Caption = 'JvSearchFiles Demo'
|
||
|
|
ClientHeight = 318
|
||
|
|
ClientWidth = 362
|
||
|
|
Color = clBtnFace
|
||
|
|
Constraints.MinHeight = 343
|
||
|
|
Constraints.MinWidth = 370
|
||
|
|
DefaultMonitor = dmDesktop
|
||
|
|
Font.Charset = DEFAULT_CHARSET
|
||
|
|
Font.Color = clWindowText
|
||
|
|
Font.Height = -11
|
||
|
|
Font.Name = 'MS Shell Dlg 2'
|
||
|
|
Font.Style = []
|
||
|
|
OldCreateOrder = False
|
||
|
|
Position = poDesktopCenter
|
||
|
|
Scaled = False
|
||
|
|
OnCloseQuery = FormCloseQuery
|
||
|
|
OnCreate = FormCreate
|
||
|
|
PixelsPerInch = 96
|
||
|
|
TextHeight = 13
|
||
|
|
object GroupBox1: TGroupBox
|
||
|
|
Left = 4
|
||
|
|
Top = 6
|
||
|
|
Width = 353
|
||
|
|
Height = 139
|
||
|
|
Anchors = [akLeft, akTop, akRight]
|
||
|
|
TabOrder = 0
|
||
|
|
object Label1: TLabel
|
||
|
|
Left = 10
|
||
|
|
Top = 16
|
||
|
|
Width = 48
|
||
|
|
Height = 13
|
||
|
|
Caption = '&Directory:'
|
||
|
|
FocusControl = JvDirectoryBox1
|
||
|
|
end
|
||
|
|
object Label2: TLabel
|
||
|
|
Left = 8
|
||
|
|
Top = 44
|
||
|
|
Width = 47
|
||
|
|
Height = 13
|
||
|
|
Caption = '&File mask:'
|
||
|
|
FocusControl = edFileMask
|
||
|
|
end
|
||
|
|
object JvDirectoryBox1: TJvDirectoryEdit
|
||
|
|
Left = 62
|
||
|
|
Top = 14
|
||
|
|
Width = 281
|
||
|
|
Height = 21
|
||
|
|
DialogKind = dkWin32
|
||
|
|
ButtonFlat = False
|
||
|
|
Anchors = [akLeft, akTop, akRight]
|
||
|
|
TabOrder = 0
|
||
|
|
Text = 'C:\'
|
||
|
|
OnChange = OptionsChange
|
||
|
|
end
|
||
|
|
object chkRecursive: TCheckBox
|
||
|
|
Left = 72
|
||
|
|
Top = 64
|
||
|
|
Width = 97
|
||
|
|
Height = 17
|
||
|
|
Caption = '&Recursive'
|
||
|
|
Checked = True
|
||
|
|
State = cbChecked
|
||
|
|
TabOrder = 2
|
||
|
|
OnClick = OptionsChange
|
||
|
|
end
|
||
|
|
object edFileMask: TEdit
|
||
|
|
Left = 62
|
||
|
|
Top = 40
|
||
|
|
Width = 281
|
||
|
|
Height = 21
|
||
|
|
Anchors = [akLeft, akTop, akRight]
|
||
|
|
TabOrder = 1
|
||
|
|
Text = '*.*'
|
||
|
|
OnChange = OptionsChange
|
||
|
|
end
|
||
|
|
object cbContainText: TComboBox
|
||
|
|
Left = 24
|
||
|
|
Top = 108
|
||
|
|
Width = 319
|
||
|
|
Height = 21
|
||
|
|
Anchors = [akLeft, akTop, akRight]
|
||
|
|
ItemHeight = 13
|
||
|
|
TabOrder = 5
|
||
|
|
OnChange = OptionsChange
|
||
|
|
end
|
||
|
|
object rbInclude: TRadioButton
|
||
|
|
Left = 6
|
||
|
|
Top = 87
|
||
|
|
Width = 79
|
||
|
|
Height = 17
|
||
|
|
Caption = '&With text:'
|
||
|
|
Checked = True
|
||
|
|
TabOrder = 3
|
||
|
|
TabStop = True
|
||
|
|
OnClick = OptionsChange
|
||
|
|
end
|
||
|
|
object rbExclude: TRadioButton
|
||
|
|
Left = 132
|
||
|
|
Top = 87
|
||
|
|
Width = 113
|
||
|
|
Height = 17
|
||
|
|
Caption = 'With&out text:'
|
||
|
|
TabOrder = 4
|
||
|
|
OnClick = OptionsChange
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object btnSearch: TButton
|
||
|
|
Left = 190
|
||
|
|
Top = 160
|
||
|
|
Width = 75
|
||
|
|
Height = 25
|
||
|
|
Anchors = [akTop, akRight]
|
||
|
|
Caption = '&Search'
|
||
|
|
Default = True
|
||
|
|
ModalResult = 1
|
||
|
|
TabOrder = 3
|
||
|
|
OnClick = btnSearchClick
|
||
|
|
end
|
||
|
|
object GroupBox2: TGroupBox
|
||
|
|
Left = 4
|
||
|
|
Top = 190
|
||
|
|
Width = 353
|
||
|
|
Height = 105
|
||
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
||
|
|
TabOrder = 5
|
||
|
|
object reFoundFiles: TRichEdit
|
||
|
|
Left = 6
|
||
|
|
Top = 12
|
||
|
|
Width = 341
|
||
|
|
Height = 87
|
||
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
||
|
|
PlainText = True
|
||
|
|
ScrollBars = ssBoth
|
||
|
|
TabOrder = 0
|
||
|
|
WordWrap = False
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object btnCancel: TButton
|
||
|
|
Left = 276
|
||
|
|
Top = 160
|
||
|
|
Width = 75
|
||
|
|
Height = 25
|
||
|
|
Anchors = [akTop, akRight]
|
||
|
|
Cancel = True
|
||
|
|
Caption = '&Cancel'
|
||
|
|
Enabled = False
|
||
|
|
ModalResult = 2
|
||
|
|
TabOrder = 4
|
||
|
|
OnClick = btnCancelClick
|
||
|
|
end
|
||
|
|
object StatusBar1: TStatusBar
|
||
|
|
Left = 0
|
||
|
|
Top = 299
|
||
|
|
Width = 362
|
||
|
|
Height = 19
|
||
|
|
Panels = <
|
||
|
|
item
|
||
|
|
Text = 'Ready'
|
||
|
|
Width = 50
|
||
|
|
end>
|
||
|
|
SimplePanel = False
|
||
|
|
end
|
||
|
|
object chkClearList: TCheckBox
|
||
|
|
Left = 24
|
||
|
|
Top = 152
|
||
|
|
Width = 134
|
||
|
|
Height = 17
|
||
|
|
Caption = 'C&lear list before search'
|
||
|
|
Checked = True
|
||
|
|
State = cbChecked
|
||
|
|
TabOrder = 1
|
||
|
|
end
|
||
|
|
object chkNoDupes: TCheckBox
|
||
|
|
Left = 24
|
||
|
|
Top = 171
|
||
|
|
Width = 134
|
||
|
|
Height = 17
|
||
|
|
Caption = 'Skip d&uplicates'
|
||
|
|
Checked = True
|
||
|
|
State = cbChecked
|
||
|
|
TabOrder = 2
|
||
|
|
end
|
||
|
|
object JvSearchFile1: TJvSearchFiles
|
||
|
|
DirOption = doExcludeInvalidDirs
|
||
|
|
FileParams.SearchTypes = [stFileMask]
|
||
|
|
OnBeginScanDir = JvSearchFile1BeginScanDir
|
||
|
|
OnFindFile = JvSearchFile1FindFile
|
||
|
|
OnProgress = JvSearchFile1Progress
|
||
|
|
Left = 234
|
||
|
|
Top = 72
|
||
|
|
end
|
||
|
|
object JvFormStorage1: TJvFormStorage
|
||
|
|
AppStorage = JvAppIniFileStorage1
|
||
|
|
StoredProps.Strings = (
|
||
|
|
'edFileMask.Text'
|
||
|
|
'chkRecursive.Checked'
|
||
|
|
'JvDirectoryBox1.Text'
|
||
|
|
'cbContainText.Items'
|
||
|
|
'cbContainText.Text'
|
||
|
|
'chkClearList.Checked'
|
||
|
|
'chkNoDupes.Checked'
|
||
|
|
'rbInclude.Checked'
|
||
|
|
'rbExclude.Checked')
|
||
|
|
StoredValues = <>
|
||
|
|
Left = 154
|
||
|
|
Top = 72
|
||
|
|
end
|
||
|
|
object JvAppIniFileStorage1: TJvAppIniFileStorage
|
||
|
|
StorageOptions.BooleanStringTrueValues = 'TRUE, YES, Y'
|
||
|
|
StorageOptions.BooleanStringFalseValues = 'FALSE, NO, N'
|
||
|
|
FileName = 'JvSearchFilesProj.ini'
|
||
|
|
DefaultSection = 'Settings'
|
||
|
|
SubStorages = <>
|
||
|
|
Left = 192
|
||
|
|
Top = 72
|
||
|
|
end
|
||
|
|
end
|