Chip 2003 February/Chip_2003-02_cd1.bin/zkuste/delphi/kompon/d13456/FINDFILE.ZIP/Demo/Main.dfm/Main.txt

Text File | 2002-08-01 | 10.2 KB | 467 lines

object MainForm: TMainForm
  Left = 207
  Top = 74
  AutoScroll = False
  Caption = 'TFindFile Component Demo'
  ClientHeight = 392
  ClientWidth = 423
  Color = clBtnFace
  Constraints.MinHeight = 220
  Constraints.MinWidth = 420
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnCreate = FormCreate
  DesignSize = (
    423
    392)
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl: TPageControl
    Left = 8
    Top = 8
    Width = 289
    Height = 201
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akRight]
    MultiLine = True
    TabIndex = 0
    TabOrder = 2
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = 'Name && Location'
      DesignSize = (
        281
        173)
      object Label1: TLabel
        Left = 13
        Top = 6
        Width = 45
        Height = 13
        Caption = 'File&name:'
        FocusControl = Filename
      end
      object Label2: TLabel
        Left = 13
        Top = 102
        Width = 44
        Height = 13
        Caption = '&Location:'
        FocusControl = Location
      end
      object Label3: TLabel
        Left = 13
        Top = 54
        Width = 77
        Height = 13
        Caption = '&Containing Text:'
        FocusControl = Containing
      end
      object Filename: TEdit
        Left = 13
        Top = 22
        Width = 254
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        TabOrder = 0
        Text = '*.txt'
      end
      object Location: TEdit
        Left = 13
        Top = 118
        Width = 254
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        TabOrder = 3
        Text = 'C:\'
      end
      object Subfolders: TCheckBox
        Left = 13
        Top = 145
        Width = 129
        Height = 17
        Caption = '&Include subfolders'
        Checked = True
        State = cbChecked
        TabOrder = 4
      end
      object BrowseButton: TButton
        Left = 192
        Top = 141
        Width = 75
        Height = 25
        Anchors = [akTop, akRight]
        Caption = '&Browse...'
        TabOrder = 5
        OnClick = BrowseButtonClick
      end
      object Containing: TEdit
        Left = 13
        Top = 70
        Width = 254
        Height = 21
        Anchors = [akLeft, akTop, akRight]
        TabOrder = 1
      end
      object IgnoreCase: TCheckBox
        Left = 169
        Top = 91
        Width = 97
        Height = 17
        Anchors = [akTop, akRight]
        Caption = 'C&ase Insensitive'
        Checked = True
        State = cbChecked
        TabOrder = 2
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'Date'
      ImageIndex = 2
      DesignSize = (
        281
        173)
      object BeforeDate: TDateTimePicker
        Left = 15
        Top = 141
        Width = 130
        Height = 21
        CalAlignment = dtaLeft
        Date = 36578.000000000000000000
        Time = 36578.000000000000000000
        DateFormat = dfShort
        DateMode = dmComboBox
        Enabled = False
        Kind = dtkDate
        ParseInput = False
        TabOrder = 6
      end
      object DateRangeChoice: TRadioGroup
        Left = 16
        Top = 15
        Width = 249
        Height = 53
        Anchors = [akLeft, akTop, akRight]
        Caption = ' Find files '
        Columns = 3
        ItemIndex = 0
        Items.Strings = (
          '&Created'
          '&Modified'
          '&Accessed')
        TabOrder = 0
      end
      object AfterDate: TDateTimePicker
        Left = 15
        Top = 95
        Width = 130
        Height = 21
        CalAlignment = dtaLeft
        Date = 36578.000000000000000000
        Time = 36578.000000000000000000
        DateFormat = dfShort
        DateMode = dmComboBox
        Enabled = False
        Kind = dtkDate
        ParseInput = False
        TabOrder = 2
      end
      object BeforeTime: TDateTimePicker
        Left = 160
        Top = 141
        Width = 105
        Height = 21
        CalAlignment = dtaLeft
        Date = 36579.998521296300000000
        Time = 36579.998521296300000000
        DateFormat = dfShort
        DateMode = dmComboBox
        Enabled = False
        Kind = dtkTime
        ParseInput = False
        TabOrder = 8
      end
      object AfterTime: TDateTimePicker
        Left = 160
        Top = 95
        Width = 105
        Height = 21
        CalAlignment = dtaLeft
        Date = 36579.998521296300000000
        Time = 36579.998521296300000000
        DateFormat = dfShort
        DateMode = dmComboBox
        Enabled = False
        Kind = dtkTime
        ParseInput = False
        TabOrder = 4
      end
      object BD: TCheckBox
        Left = 15
        Top = 124
        Width = 82
        Height = 17
        Caption = 'Before Date:'
        TabOrder = 5
        OnClick = BDClick
      end
      object BT: TCheckBox
        Left = 160
        Top = 124
        Width = 82
        Height = 17
        Caption = 'Before Time:'
        TabOrder = 7
        OnClick = BTClick
      end
      object AD: TCheckBox
        Left = 15
        Top = 78
        Width = 74
        Height = 17
        Caption = 'After Date:'
        TabOrder = 1
        OnClick = ADClick
      end
      object AT: TCheckBox
        Left = 160
        Top = 78
        Width = 82
        Height = 17
        Caption = 'After Time:'
        TabOrder = 3
        OnClick = ATClick
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Advanced'
      ImageIndex = 1
      DesignSize = (
        281
        173)
      object Attributes: TGroupBox
        Left = 14
        Top = 7
        Width = 253
        Height = 66
        Anchors = [akLeft, akTop, akRight]
        Caption = ' Attributes '
        TabOrder = 0
        object System: TCheckBox
          Left = 91
          Top = 19
          Width = 67
          Height = 17
          Caption = 'Sys&tem'
          Checked = True
          State = cbChecked
          TabOrder = 2
        end
        object Hidden: TCheckBox
          Left = 91
          Top = 39
          Width = 67
          Height = 17
          Caption = '&Hidden'
          Checked = True
          State = cbChecked
          TabOrder = 3
        end
        object Readonly: TCheckBox
          Left = 10
          Top = 39
          Width = 67
          Height = 17
          Caption = '&Readonly'
          Checked = True
          State = cbChecked
          TabOrder = 1
        end
        object Archive: TCheckBox
          Left = 10
          Top = 19
          Width = 67
          Height = 17
          Caption = '&Archive'
          Checked = True
          State = cbChecked
          TabOrder = 0
        end
        object Directory: TCheckBox
          Left = 172
          Top = 39
          Width = 67
          Height = 17
          Caption = '&Directory'
          TabOrder = 4
        end
      end
      object ExactAttr: TCheckBox
        Left = 14
        Top = 76
        Width = 227
        Height = 17
        Caption = 'Select files only if attribute &exactly matched '
        TabOrder = 1
      end
      object FileSize: TGroupBox
        Left = 14
        Top = 100
        Width = 253
        Height = 65
        Anchors = [akLeft, akTop, akRight]
        Caption = ' Size '
        TabOrder = 2
        object Label8: TLabel
          Left = 223
          Top = 38
          Width = 14
          Height = 13
          Caption = 'KB'
        end
        object Label9: TLabel
          Left = 98
          Top = 38
          Width = 14
          Height = 13
          Caption = 'KB'
        end
        object Label10: TLabel
          Left = 136
          Top = 20
          Width = 39
          Height = 13
          Caption = 'At &Most:'
          FocusControl = SizeMax
        end
        object Label11: TLabel
          Left = 10
          Top = 20
          Width = 42
          Height = 13
          Caption = 'At &Least:'
          FocusControl = SizeMin
        end
        object SizeMax: TSpinEdit
          Left = 135
          Top = 33
          Width = 86
          Height = 22
          MaxValue = 0
          MinValue = 0
          TabOrder = 1
          Value = 0
        end
        object SizeMin: TSpinEdit
          Left = 10
          Top = 33
          Width = 86
          Height = 22
          MaxValue = 0
          MinValue = 0
          TabOrder = 0
          Value = 0
        end
      end
    end
  end
  object FindButton: TButton
    Left = 311
    Top = 28
    Width = 97
    Height = 25
    Anchors = [akTop, akRight]
    Caption = '&Find'
    Default = True
    TabOrder = 0
    OnClick = FindButtonClick
  end
  object StopButton: TButton
    Left = 311
    Top = 62
    Width = 97
    Height = 25
    Anchors = [akTop, akRight]
    Cancel = True
    Caption = '&Stop'
    Enabled = False
    TabOrder = 1
    OnClick = StopButtonClick
  end
  object Animate: TAnimate
    Left = 335
    Top = 116
    Width = 48
    Height = 50
    Active = False
    Anchors = [akTop, akRight]
    AutoSize = False
    CommonAVI = aviFindFile
    StopFrame = 23
  end
  object FoundFiles: TListView
    Left = 8
    Top = 219
    Width = 408
    Height = 148
    Anchors = [akLeft, akTop, akRight, akBottom]
    Columns = <
      item
        Caption = 'Name'
        Width = 100
      end
      item
        Caption = 'Location'
        Width = 303
      end
      item
        Caption = 'Size'
        Width = 60
      end
      item
        Caption = 'Modified'
        Width = 120
      end>
    FullDrag = True
    ReadOnly = True
    RowSelect = True
    TabOrder = 4
    ViewStyle = vsReport
    OnColumnClick = FoundFilesColumnClick
    OnCompare = FoundFilesCompare
    OnDblClick = FoundFilesDblClick
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 373
    Width = 423
    Height = 19
    Panels = <>
    SimplePanel = True
  end
  object Threaded: TCheckBox
    Left = 311
    Top = 193
    Width = 104
    Height = 17
    Anchors = [akTop, akRight]
    Caption = '&Threaded Search'
    Checked = True
    State = cbChecked
    TabOrder = 3
  end
  object FindFile: TFindFile
    OnFileMatch = FindFileFileMatch
    OnFolderChange = FindFileFolderChange
    OnSearchBegin = FindFileSearchBegin
    OnSearchFinish = FindFileSerachFinish
    Left = 17
    Top = 247
  end
end