home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 April A / Pcwk4a98.iso / PROGRAM / DELPHI16 / Filefind / FFMAIN.DFM / FFMAIN.txt
Text File  |  1995-12-12  |  2KB  |  118 lines
  1. object Form1: TForm1
  2.   Left = 152
  3.   Top = 93
  4.   BorderIcons = [biSystemMenu, biMinimize]
  5.   BorderStyle = bsSingle
  6.   Caption = 'Form1'
  7.   ClientHeight = 341
  8.   ClientWidth = 593
  9.   Font.Color = clBlack
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = [fsBold]
  13.   PixelsPerInch = 96
  14.   Position = poScreenCenter
  15.   OnActivate = FormActivate
  16.   TextHeight = 13
  17.   object Label1: TLabel
  18.     Left = 8
  19.     Top = 24
  20.     Width = 95
  21.     Height = 13
  22.     Caption = '&Filename to find:'
  23.     FocusControl = Edit1
  24.   end
  25.   object Total: TLabel
  26.     Left = 536
  27.     Top = 24
  28.     Width = 47
  29.     Height = 13
  30.     Alignment = taRightJustify
  31.     AutoSize = False
  32.     Caption = 'Total'
  33.     Font.Color = clNavy
  34.     Font.Height = -11
  35.     Font.Name = 'MS Sans Serif'
  36.     Font.Style = [fsBold]
  37.     ParentFont = False
  38.   end
  39.   object Edit1: TEdit
  40.     Left = 8
  41.     Top = 40
  42.     Width = 161
  43.     Height = 20
  44.     TabOrder = 0
  45.     Text = 'Edit1'
  46.     OnChange = Edit1Change
  47.   end
  48.   object ListBox1: TListBox
  49.     Left = 176
  50.     Top = 40
  51.     Width = 408
  52.     Height = 288
  53.     IntegralHeight = True
  54.     ItemHeight = 13
  55.     TabOrder = 5
  56.   end
  57.   object Start: TButton
  58.     Left = 9
  59.     Top = 72
  60.     Width = 160
  61.     Height = 33
  62.     Caption = 'Start'
  63.     TabOrder = 1
  64.     OnClick = StartClick
  65.   end
  66.   object Stop: TButton
  67.     Left = 9
  68.     Top = 112
  69.     Width = 160
  70.     Height = 33
  71.     Caption = 'Stop'
  72.     Enabled = False
  73.     TabOrder = 2
  74.     OnClick = StopClick
  75.   end
  76.   object RadioGroup1: TRadioGroup
  77.     Left = 8
  78.     Top = 176
  79.     Width = 161
  80.     Height = 113
  81.     Caption = 'Scope:'
  82.     Items.Strings = (
  83.       '&Entire Disk'
  84.       '&Current Directory'
  85.       'Current Dir. and &Bellow')
  86.     TabOrder = 4
  87.     OnClick = RadioGroup1Click
  88.   end
  89.   object CheckBox1: TCheckBox
  90.     Left = 16
  91.     Top = 152
  92.     Width = 153
  93.     Height = 17
  94.     Caption = 'S&top on 1st match'
  95.     TabOrder = 3
  96.     OnClick = CheckBox1Click
  97.   end
  98.   object Close: TButton
  99.     Left = 9
  100.     Top = 296
  101.     Width = 160
  102.     Height = 33
  103.     Caption = 'Close'
  104.     TabOrder = 6
  105.     OnClick = CloseClick
  106.   end
  107.   object FileFind1: TFileFind
  108.     DriveList = 'CDEFGHIJKLMNOPQRSTUVWXYZ'
  109.     StopOnFirstMatch = False
  110.     OnMatch = FileFind1Match
  111.     OnChangeDrive = FileFind1ChangeDrive
  112.     OnChangeDirectory = FileFind1ChangeDirectory
  113.     OnStop = FileFind1Stop
  114.     Left = 215
  115.     Top = 106
  116.   end
  117. end
  118.