git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.jvcl@12 7f62d464-2af8-f54e-996c-e91b33f51cbe
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
|