jvcl driver development envionment
源代码在线查看: jvsearchfilemainformu.dfm
object JvSearchFileMainForm: TJvSearchFileMainForm
Left = 320
Top = 178
Width = 371
Height = 345
Caption = 'JvSearchFiles Demo'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCloseQuery = FormCloseQuery
PixelsPerInch = 96
TextHeight = 13
object GroupBox2: TGroupBox
Left = 4
Top = 190
Width = 353
Height = 105
Anchors = [akLeft, akTop, akRight, akBottom]
TabOrder = 0
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 GroupBox1: TGroupBox
Left = 4
Top = 6
Width = 353
Height = 139
Anchors = [akLeft, akTop, akRight]
TabOrder = 1
object Label1: TLabel
Left = 10
Top = 16
Width = 45
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
Anchors = [akLeft, akTop, akRight]
TabOrder = 0
Text = 'C:\'
OnClick = 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 chkClearList: TCheckBox
Left = 24
Top = 152
Width = 134
Height = 17
Caption = 'C&lear list before search'
Checked = True
State = cbChecked
TabOrder = 2
end
object chkNoDupes: TCheckBox
Left = 24
Top = 171
Width = 134
Height = 17
Caption = 'Skip d&uplicates'
Checked = True
State = cbChecked
TabOrder = 3
end
object btnSearch: TButton
Left = 190
Top = 160
Width = 75
Height = 25
Anchors = [akTop, akRight]
Caption = '&Search'
Default = True
ModalResult = 1
TabOrder = 4
OnClick = btnSearchClick
end
object btnCancel: TButton
Left = 276
Top = 160
Width = 75
Height = 25
Anchors = [akTop, akRight]
Cancel = True
Caption = '&Cancel'
Enabled = False
ModalResult = 2
TabOrder = 5
OnClick = btnCancelClick
end
object StatusBar1: TStatusBar
Left = 0
Top = 299
Width = 363
Height = 19
Panels = <
item
Text = 'Ready'
Width = 50
end>
SimplePanel = False
end
object JvFormStorage1: TJvFormStorage
AppStorage = JvAppIniFileStorage1
AppStoragePath = '%FORM_NAME%\'
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
object JvSearchFile1: TJvSearchFiles
DirOption = doExcludeInvalidDirs
RootDirectory = '(Directory)'
FileParams.SearchTypes = [stFileMask]
OnBeginScanDir = JvSearchFile1BeginScanDir
OnFindFile = JvSearchFile1FindFile
OnProgress = JvSearchFile1Progress
Left = 234
Top = 72
end
end