home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 152
- Top = 93
- BorderIcons = [biSystemMenu, biMinimize]
- BorderStyle = bsSingle
- Caption = 'Form1'
- ClientHeight = 341
- ClientWidth = 593
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- PixelsPerInch = 96
- Position = poScreenCenter
- OnActivate = FormActivate
- TextHeight = 13
- object Label1: TLabel
- Left = 8
- Top = 24
- Width = 95
- Height = 13
- Caption = '&Filename to find:'
- FocusControl = Edit1
- end
- object Total: TLabel
- Left = 536
- Top = 24
- Width = 47
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Total'
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Edit1: TEdit
- Left = 8
- Top = 40
- Width = 161
- Height = 20
- TabOrder = 0
- Text = 'Edit1'
- OnChange = Edit1Change
- end
- object ListBox1: TListBox
- Left = 176
- Top = 40
- Width = 408
- Height = 288
- IntegralHeight = True
- ItemHeight = 13
- TabOrder = 5
- end
- object Start: TButton
- Left = 9
- Top = 72
- Width = 160
- Height = 33
- Caption = 'Start'
- TabOrder = 1
- OnClick = StartClick
- end
- object Stop: TButton
- Left = 9
- Top = 112
- Width = 160
- Height = 33
- Caption = 'Stop'
- Enabled = False
- TabOrder = 2
- OnClick = StopClick
- end
- object RadioGroup1: TRadioGroup
- Left = 8
- Top = 176
- Width = 161
- Height = 113
- Caption = 'Scope:'
- Items.Strings = (
- '&Entire Disk'
- '&Current Directory'
- 'Current Dir. and &Bellow')
- TabOrder = 4
- OnClick = RadioGroup1Click
- end
- object CheckBox1: TCheckBox
- Left = 16
- Top = 152
- Width = 153
- Height = 17
- Caption = 'S&top on 1st match'
- TabOrder = 3
- OnClick = CheckBox1Click
- end
- object Close: TButton
- Left = 9
- Top = 296
- Width = 160
- Height = 33
- Caption = 'Close'
- TabOrder = 6
- OnClick = CloseClick
- end
- object FileFind1: TFileFind
- DriveList = 'CDEFGHIJKLMNOPQRSTUVWXYZ'
- StopOnFirstMatch = False
- OnMatch = FileFind1Match
- OnChangeDrive = FileFind1ChangeDrive
- OnChangeDirectory = FileFind1ChangeDirectory
- OnStop = FileFind1Stop
- Left = 215
- Top = 106
- end
- end
-