jvcl driver development envionment

源代码在线查看: jvsearchfilemainformu.dfm

软件大小: 11078 K
上传用户: haowfei
关键词: development envionment driver jvcl
下载地址: 免注册下载 普通下载 VIP

相关代码

				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
							

相关资源