home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programming Unleashed / Delphi_Programming_Unleashed_SAMS_Publishing_1995.iso / misc / wtouch / main.dfm / main.txt
Encoding:
Text File  |  1995-03-21  |  2.8 KB  |  122 lines
  1. object Form1: TForm1
  2.   Left = 158
  3.   Top = 84
  4.   BorderStyle = bsDialog
  5.   Caption = 'Touch for Windows'
  6.   ClientHeight = 250
  7.   ClientWidth = 339
  8.   Font.Color = clWindowText
  9.   Font.Height = -14
  10.   Font.Name = 'System'
  11.   Font.Style = []
  12.   PixelsPerInch = 96
  13.   TextHeight = 16
  14.   object Label1: TLabel
  15.     Left = 13
  16.     Top = 147
  17.     Width = 311
  18.     Height = 16
  19.     AutoSize = False
  20.     Caption = 'Label1'
  21.   end
  22.   object Label2: TLabel
  23.     Left = 184
  24.     Top = 179
  25.     Width = 33
  26.     Height = 13
  27.     Caption = 'Date'
  28.   end
  29.   object Label3: TLabel
  30.     Left = 182
  31.     Top = 217
  32.     Width = 36
  33.     Height = 13
  34.     Caption = 'Time'
  35.   end
  36.   object DirectoryListBox1: TDirectoryListBox
  37.     Left = 13
  38.     Top = 32
  39.     Width = 314
  40.     Height = 103
  41.     ItemHeight = 16
  42.     TabOrder = 1
  43.   end
  44.   object DriveComboBox1: TDriveComboBox
  45.     Left = 13
  46.     Top = 6
  47.     Width = 314
  48.     Height = 22
  49.     DirList = DirectoryListBox1
  50.     TabOrder = 0
  51.   end
  52.   object MaskEdit1: TMaskEdit
  53.     Left = 218
  54.     Top = 179
  55.     Width = 109
  56.     Height = 23
  57.     EditMask = '!99/99/00;1;_'
  58.     MaxLength = 8
  59.     TabOrder = 2
  60.     Text = '  /  /  '
  61.   end
  62.   object MaskEdit2: TMaskEdit
  63.     Left = 218
  64.     Top = 217
  65.     Width = 109
  66.     Height = 23
  67.     EditMask = '!90:00:00>LL;1;_'
  68.     MaxLength = 10
  69.     TabOrder = 3
  70.     Text = '  :  :    '
  71.   end
  72.   object BTouch: TBitBtn
  73.     Left = 13
  74.     Top = 179
  75.     Width = 77
  76.     Height = 30
  77.     Caption = 'Touch'
  78.     TabOrder = 4
  79.     OnClick = RunTouchClick
  80.     Glyph.Data = {
  81.       78010000424D7801000000000000760000002800000020000000100000000100
  82.       04000000000000000000120B0000120B00000000000000000000000000000000
  83.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  84.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  85.       3333333333FFFFF3333333333000003333333333F777773FF333333008877700
  86.       33333337733FFF773F33330887000777033333733F777FFF73F330880FAFAF07
  87.       703337F37733377FF7F33080F00000F07033373733777337F73F087F00A2200F
  88.       77037F3737333737FF7F080A0A2A220A07037F737F3333737F7F0F0F0AAAA20F
  89.       07037F737F3333737F7F0F0A0FAA2A0A08037F737FF33373737F0F7F00FFA00F
  90.       780373F737FFF737F3733080F00000F0803337F73377733737F330F80FAFAF08
  91.       8033373F773337733733330F8700078803333373FF77733F733333300FFF8800
  92.       3333333773FFFF773333333330000033333333333777773333330000}
  93.     NumGlyphs = 2
  94.   end
  95.   object BHelp: TBitBtn
  96.     Left = 96
  97.     Top = 179
  98.     Width = 78
  99.     Height = 30
  100.     TabOrder = 5
  101.     OnClick = BHelpClick
  102.     Kind = bkHelp
  103.   end
  104.   object BClose: TBitBtn
  105.     Left = 13
  106.     Top = 216
  107.     Width = 161
  108.     Height = 25
  109.     Caption = 'Close'
  110.     TabOrder = 6
  111.     OnClick = BCloseClick
  112.     Kind = bkOK
  113.   end
  114.   object FileIterator1: TFileIterator
  115.     OnFoundFile = FileIterator1FoundFile
  116.     UseFileList = False
  117.     UseDirList = False
  118.     Left = 296
  119.     Top = 144
  120.   end
  121. end
  122.