jvsearchfilemainformu.dfm

jvcl driver development envionment

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