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 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.998521296290000000 Time = 36579.998521296290000000 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.998521296290000000 Time = 36579.998521296290000000 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] 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 Filename = '*.*' OnFound = FindFileFound OnNewFolder = FindFileNewFolder OnComplete = FindFileComplete Left = 17 Top = 247 end end