home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / delphi / tenpack.lzh / FILEDEMO.DFM / FILEDEMO.txt next >
Text File  |  1995-10-14  |  3KB  |  128 lines
  1. object DemoFileFind: TDemoFileFind
  2.   Left = 144
  3.   Top = 96
  4.   BorderStyle = bsSingle
  5.   Caption = 'File Finder Demo'
  6.   ClientHeight = 333
  7.   ClientWidth = 427
  8.   Font.Color = clWindowText
  9.   Font.Height = -13
  10.   Font.Name = 'System'
  11.   Font.Style = []
  12.   Icon.Data = {<image000.ico>}
  13.   PixelsPerInch = 96
  14.   Position = poScreenCenter
  15.   Visible = True
  16.   TextHeight = 16
  17.   object Label1: TLabel
  18.     Left = 57
  19.     Top = 34
  20.     Width = 94
  21.     Height = 13
  22.     Caption = 'Drive to Search:'
  23.     Font.Color = clBlack
  24.     Font.Height = -11
  25.     Font.Name = 'MS Sans Serif'
  26.     Font.Style = [fsBold]
  27.     ParentFont = False
  28.   end
  29.   object Label2: TLabel
  30.     Left = 52
  31.     Top = 72
  32.     Width = 103
  33.     Height = 13
  34.     Caption = 'File to Search for:'
  35.     Font.Color = clBlack
  36.     Font.Height = -11
  37.     Font.Name = 'MS Sans Serif'
  38.     Font.Style = [fsBold]
  39.     ParentFont = False
  40.   end
  41.   object Label3: TLabel
  42.     Left = 52
  43.     Top = 99
  44.     Width = 99
  45.     Height = 13
  46.     Caption = 'Search Results...'
  47.     Font.Color = clBlack
  48.     Font.Height = -11
  49.     Font.Name = 'MS Sans Serif'
  50.     Font.Style = [fsBold]
  51.     ParentFont = False
  52.   end
  53.   object Label4: TLabel
  54.     Left = 53
  55.     Top = 251
  56.     Width = 328
  57.     Height = 63
  58.     AutoSize = False
  59.     Caption = 
  60.       'Find a file anywhere on a disk with the File Finder Component.  ' +
  61.       'Call the FileFirst method to find the first occurrence on the di' +
  62.       'sk.  Subsequent occurrences are located by calling the FileNext ' +
  63.       'method.'
  64.     Font.Color = clBlack
  65.     Font.Height = -11
  66.     Font.Name = 'MS Sans Serif'
  67.     Font.Style = [fsBold]
  68.     ParentFont = False
  69.   end
  70.   object DriveComboBox1: TDriveComboBox
  71.     Left = 161
  72.     Top = 32
  73.     Width = 122
  74.     Height = 19
  75.     Font.Color = clBlack
  76.     Font.Height = -11
  77.     Font.Name = 'MS Sans Serif'
  78.     Font.Style = []
  79.     ParentFont = False
  80.     TabOrder = 0
  81.   end
  82.   object Edit1: TEdit
  83.     Left = 161
  84.     Top = 69
  85.     Width = 121
  86.     Height = 20
  87.     Font.Color = clBlack
  88.     Font.Height = -11
  89.     Font.Name = 'MS Sans Serif'
  90.     Font.Style = []
  91.     ParentFont = False
  92.     TabOrder = 1
  93.   end
  94.   object ListBox1: TListBox
  95.     Left = 53
  96.     Top = 122
  97.     Width = 328
  98.     Height = 123
  99.     Font.Color = clBlack
  100.     Font.Height = -11
  101.     Font.Name = 'MS Sans Serif'
  102.     Font.Style = []
  103.     ItemHeight = 13
  104.     ParentFont = False
  105.     TabOrder = 2
  106.   end
  107.   object Button1: TButton
  108.     Left = 296
  109.     Top = 67
  110.     Width = 89
  111.     Height = 23
  112.     Caption = 'Find &All'
  113.     Font.Color = clBlack
  114.     Font.Height = -11
  115.     Font.Name = 'MS Sans Serif'
  116.     Font.Style = [fsBold]
  117.     ParentFont = False
  118.     TabOrder = 3
  119.     OnClick = Button1Click
  120.   end
  121.   object FileFind1: TFileFind
  122.     Sort = False
  123.     SearchDrive = 'd:'
  124.     Left = 8
  125.     Top = 18
  126.   end
  127. end
  128.