Chip 2002 March/Chip_2002-03_cd1.bin/zkuste/delphi/kompon/d13456/FINDFILE.ZIP/Demo16/MAIN16.DFM/MAIN16.txt

Text File | 2001-12-26 | 7.6 KB | 357 lines

object MainForm: TMainForm
  Left = 153
  Top = 97
  BorderStyle = bsDialog
  Caption = 'TFindFile Component Demo (16 bit)'
  ClientHeight = 398
  ClientWidth = 408
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  Position = poScreenCenter
  OnCreate = FormCreate
  TextHeight = 13
  object FoundFiles: TListBox
    Left = 8
    Top = 227
    Width = 392
    Height = 145
    IntegralHeight = True
    ItemHeight = 13
    TabOrder = 2
    OnDblClick = FoundFilesDblClick
  end
  object FindButton: TButton
    Left = 318
    Top = 29
    Width = 75
    Height = 25
    Caption = '&Find'
    TabOrder = 0
    OnClick = FindButtonClick
  end
  object StopButton: TButton
    Left = 318
    Top = 77
    Width = 75
    Height = 25
    Caption = '&Stop'
    Enabled = False
    TabOrder = 1
    OnClick = StopButtonClick
  end
  object Status: TPanel
    Left = 0
    Top = 381
    Width = 408
    Height = 17
    Align = alBottom
    Alignment = taLeftJustify
    BevelOuter = bvLowered
    TabOrder = 3
  end
  object TabbedNotebook: TTabbedNotebook
    Left = 8
    Top = 8
    Width = 305
    Height = 209
    TabFont.Color = clBtnText
    TabFont.Height = -11
    TabFont.Name = 'MS Sans Serif'
    TabFont.Style = []
    TabOrder = 4
    object TTabPage
      Left = 5
      Top = 26
      Caption = 'Name && Loc.'
      object Label1: TLabel
        Left = 10
        Top = 8
        Width = 45
        Height = 13
        Caption = 'File&name:'
        FocusControl = Filename
      end
      object Label2: TLabel
        Left = 10
        Top = 103
        Width = 44
        Height = 13
        Caption = '&Location:'
        FocusControl = Location
      end
      object Label3: TLabel
        Left = 10
        Top = 54
        Width = 77
        Height = 13
        Caption = '&Containing Text:'
        FocusControl = Filename
      end
      object Filename: TEdit
        Left = 11
        Top = 24
        Width = 275
        Height = 21
        TabOrder = 0
        Text = '*.txt'
      end
      object Location: TEdit
        Left = 11
        Top = 119
        Width = 275
        Height = 21
        TabOrder = 3
        Text = 'C:\'
      end
      object Subfolders: TCheckBox
        Left = 10
        Top = 141
        Width = 129
        Height = 17
        Caption = '&Include subfolders'
        State = cbChecked
        TabOrder = 4
      end
      object BrowseButton: TButton
        Left = 211
        Top = 143
        Width = 75
        Height = 25
        Caption = '&Browse...'
        TabOrder = 5
        OnClick = BrowseButtonClick
      end
      object Containing: TEdit
        Left = 11
        Top = 70
        Width = 275
        Height = 21
        TabOrder = 1
      end
      object IgnoreCase: TCheckBox
        Left = 193
        Top = 92
        Width = 93
        Height = 17
        Caption = 'C&ase Insensitive'
        State = cbChecked
        TabOrder = 2
      end
    end
    object TTabPage
      Left = 5
      Top = 26
      Caption = 'Date'
      object GroupBox1: TGroupBox
        Left = 11
        Top = 24
        Width = 273
        Height = 129
        Caption = ' Files Modified '
        TabOrder = 0
        object AD: TCheckBox
          Left = 19
          Top = 29
          Width = 74
          Height = 17
          Caption = 'After Date:'
          TabOrder = 0
          OnClick = ADClick
        end
        object AfterDate: TEdit
          Left = 20
          Top = 47
          Width = 121
          Height = 20
          Enabled = False
          TabOrder = 1
        end
        object AT: TCheckBox
          Left = 164
          Top = 29
          Width = 82
          Height = 17
          Caption = 'After Time:'
          TabOrder = 2
          OnClick = ATClick
        end
        object AfterTime: TEdit
          Left = 165
          Top = 47
          Width = 89
          Height = 20
          Enabled = False
          TabOrder = 3
        end
        object BT: TCheckBox
          Left = 164
          Top = 76
          Width = 82
          Height = 17
          Caption = 'Before Time:'
          TabOrder = 6
          OnClick = BTClick
        end
        object BeforeTime: TEdit
          Left = 165
          Top = 94
          Width = 89
          Height = 20
          Enabled = False
          TabOrder = 7
        end
        object BeforeDate: TEdit
          Left = 20
          Top = 94
          Width = 121
          Height = 20
          Enabled = False
          TabOrder = 5
        end
        object BD: TCheckBox
          Left = 19
          Top = 76
          Width = 82
          Height = 17
          Caption = 'Before Date:'
          TabOrder = 4
          OnClick = BDClick
        end
      end
    end
    object TTabPage
      Left = 5
      Top = 26
      Caption = 'Advanced'
      object Attributes: TGroupBox
        Left = 16
        Top = 8
        Width = 262
        Height = 69
        Caption = ' Attribute: '
        TabOrder = 0
        object System: TCheckBox
          Left = 97
          Top = 20
          Width = 67
          Height = 17
          Caption = 'Sys&tem'
          State = cbChecked
          TabOrder = 2
        end
        object Hidden: TCheckBox
          Left = 97
          Top = 43
          Width = 67
          Height = 17
          Caption = '&Hidden'
          State = cbChecked
          TabOrder = 3
        end
        object Readonly: TCheckBox
          Left = 16
          Top = 43
          Width = 67
          Height = 17
          Caption = '&Readonly'
          State = cbChecked
          TabOrder = 1
        end
        object Archive: TCheckBox
          Left = 16
          Top = 20
          Width = 67
          Height = 17
          Caption = '&Archive'
          State = cbChecked
          TabOrder = 0
        end
        object Directory: TCheckBox
          Left = 178
          Top = 43
          Width = 67
          Height = 17
          Caption = '&Directory'
          TabOrder = 4
        end
      end
      object ExactAttr: TCheckBox
        Left = 16
        Top = 79
        Width = 222
        Height = 17
        Caption = 'Select files only if attribute &exactly matched '
        TabOrder = 1
      end
      object FileSize: TGroupBox
        Left = 16
        Top = 101
        Width = 262
        Height = 65
        Caption = ' Size '
        TabOrder = 2
        object Label8: TLabel
          Left = 230
          Top = 35
          Width = 14
          Height = 13
          Caption = 'KB'
        end
        object Label9: TLabel
          Left = 105
          Top = 35
          Width = 14
          Height = 13
          Caption = 'KB'
        end
        object Label10: TLabel
          Left = 143
          Top = 17
          Width = 39
          Height = 13
          Caption = 'At &Most:'
          FocusControl = SizeMax
        end
        object Label11: TLabel
          Left = 17
          Top = 17
          Width = 42
          Height = 13
          Caption = 'At &Least:'
          FocusControl = SizeMin
        end
        object SizeMax: TSpinEdit
          Left = 142
          Top = 30
          Width = 86
          Height = 22
          MaxValue = 0
          MinValue = 0
          TabOrder = 1
          Value = 0
        end
        object SizeMin: TSpinEdit
          Left = 17
          Top = 30
          Width = 86
          Height = 22
          MaxValue = 0
          MinValue = 0
          TabOrder = 0
          Value = 0
        end
      end
    end
  end
  object FindFile: TFindFile
    Filename = '*.*'
    OnFound = FindFileFound
    OnNewFolder = FindFileNewFolder
    Left = 345
    Top = 144
  end
end