home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programming Unleashed / Delphi_Programming_Unleashed_SAMS_Publishing_1995.iso / chap30 / findallw / main.txt < prev   
Text File  |  1995-03-20  |  4KB  |  122 lines
  1. object Form1: TForm1
  2.   Left = 131
  3.   Top = 83
  4.   Width = 435
  5.   Height = 313
  6.   ActiveControl = Edit2
  7.   Caption = 'Find All for Windows'
  8.   Color = 4194304
  9.   Font.Color = clWindowText
  10.   Font.Height = -13
  11.   Font.Name = 'System'
  12.   Font.Style = []
  13.   Icon.Data = {
  14.     0000010001002020100000000000E80200001600000028000000200000004000
  15.     0000010004000000000000020000000000000000000000000000000000000000
  16.     0000000080000080000000808000800000008000800080800000C0C0C0008080
  17.     80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
  18.     00000000000000000000000000000ECECC0FFFFFFFFF880000CCCC0C0FF00EEC
  19.     CCC08FFFF00000CCCCCCCC0C08800CCCCCC00FFF00CEECEECCCCC00C0F800CEC
  20.     ECCC088FF00CCECECCCCC0000F800EECCC000F8FF8000EECCCCCC0C088800CC0
  21.     00CE0F8FFFF00CCECCCCC0C0FFF00C0EEC00088FFFF800EECECC0000F88000CE
  22.     000FFFFFFFF8F0CCECCC0C0888F00E000FFFF8888FF8FF0CCECC000FFFF0000F
  23.     FF8888FF8FF888800CEC008FF880088FFF8FFFFF8FFFFFFF00C0008888F00000
  24.     0F8FF8888FFFF88880000FFFFFF00440000888FFFFFFF8FFFF000FFF88800C5C
  25.     0000FFF8888FF8FF88FFFFFF8FF00CC5C5500888FF8FF8888FFFFFFF8FF00CCC
  26.     5C450FFFFF8FFFFFFF8888FF88800CCCC5C440F8888FFFF8888FF8FFFFF00CCC
  27.     CCCC5088FFFFFFF8FFFFF8FFFFF00CCCCCC5C0FFF8888FF8FF00000FF8800CCC
  28.     CCCC408888FF8FF8804C445088800CECCCCCC08FFFFF8FFF0CC5C5C409500ECE
  29.     CCCC0F8FF8888FFF0CCCCC5405900EECECCC0F8888FFFFF80CCCCCC505500EEE
  30.     CCC0FFFFFFFFFFF80CECCCCC05500CCCC008FFFFFFFFF8850CCEECCC05500000
  31.     0888FFFFF888895950CECEC055500FFFFFFFFF88889595959500000595500FFF
  32.     F888889999599955595555555550088885959595959555559595959555500999
  33.     9999595559595555555555555550000000000000000000000000000000000000
  34.     0000000000000000000000000000000000000000000000000000000000000000
  35.     0000000000000000000000000000000000000000000000000000000000000000
  36.     0000000000000000000000000000000000000000000000000000000000000000
  37.     000000000000000000000000000000000000000000000000000000000000}
  38.   PixelsPerInch = 96
  39.   Scaled = False
  40.   TextHeight = 16
  41.   object Label1: TLabel
  42.     Left = 24
  43.     Top = 192
  44.     Width = 48
  45.     Height = 19
  46.     Caption = 'StartDir'
  47.     Font.Color = clYellow
  48.     Font.Height = -16
  49.     Font.Name = 'Times New Roman'
  50.     Font.Style = []
  51.     ParentFont = False
  52.   end
  53.   object Label2: TLabel
  54.     Left = 8
  55.     Top = 224
  56.     Width = 61
  57.     Height = 19
  58.     Caption = 'File Mask'
  59.     Font.Color = clYellow
  60.     Font.Height = -16
  61.     Font.Name = 'Times New Roman'
  62.     Font.Style = []
  63.     ParentFont = False
  64.   end
  65.   object BStartSearch: TButton
  66.     Left = 8
  67.     Top = 256
  68.     Width = 409
  69.     Height = 22
  70.     Caption = 'Start Search'
  71.     TabOrder = 2
  72.     OnClick = BStartSearchClick
  73.   end
  74.   object ListBox1: TListBox
  75.     Left = 8
  76.     Top = 8
  77.     Width = 409
  78.     Height = 177
  79.     Color = clNavy
  80.     Font.Color = clYellow
  81.     Font.Height = -13
  82.     Font.Name = 'System'
  83.     Font.Style = [fsBold]
  84.     ItemHeight = 16
  85.     ParentFont = False
  86.     Sorted = True
  87.     TabOrder = 3
  88.   end
  89.   object Edit1: TEdit
  90.     Left = 80
  91.     Top = 224
  92.     Width = 337
  93.     Height = 24
  94.     Color = clNavy
  95.     Font.Color = clYellow
  96.     Font.Height = -13
  97.     Font.Name = 'System'
  98.     Font.Style = [fsBold]
  99.     ParentFont = False
  100.     TabOrder = 1
  101.     Text = 'Edit1'
  102.   end
  103.   object Edit2: TEdit
  104.     Left = 80
  105.     Top = 192
  106.     Width = 337
  107.     Height = 24
  108.     Color = clNavy
  109.     Font.Color = clYellow
  110.     Font.Height = -13
  111.     Font.Name = 'System'
  112.     Font.Style = [fsBold]
  113.     ParentFont = False
  114.     TabOrder = 0
  115.     Text = 'Edit2'
  116.   end
  117.   object FileIterator1: TFileIterator
  118.     UseFileList = True
  119.     UseDirList = False
  120.   end
  121. end
  122.