home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programming Unleashed / Delphi_Programming_Unleashed_SAMS_Publishing_1995.iso / misc / wtouch / main.txt < prev    next >
Text File  |  1995-03-20  |  3KB  |  110 lines
  1. object Form1: TForm1
  2.   Left = 201
  3.   Top = 125
  4.   Width = 435
  5.   Height = 335
  6.   Caption = 'Touch for Windows'
  7.   Font.Color = clWindowText
  8.   Font.Height = -17
  9.   Font.Name = 'System'
  10.   Font.Style = []
  11.   PixelsPerInch = 120
  12.   TextHeight = 20
  13.   object Label1: TLabel
  14.     Left = 16
  15.     Top = 184
  16.     Width = 389
  17.     Height = 20
  18.     Caption = 'Label1'
  19.   end
  20.   object Label2: TLabel
  21.     Left = 227
  22.     Top = 224
  23.     Width = 38
  24.     Height = 20
  25.     Caption = 'Date'
  26.   end
  27.   object Label3: TLabel
  28.     Left = 227
  29.     Top = 264
  30.     Width = 38
  31.     Height = 20
  32.     Caption = 'Time'
  33.   end
  34.   object DirectoryListBox1: TDirectoryListBox
  35.     Left = 16
  36.     Top = 40
  37.     Width = 393
  38.     Height = 129
  39.     ItemHeight = 20
  40.     TabOrder = 0
  41.   end
  42.   object DriveComboBox1: TDriveComboBox
  43.     Left = 16
  44.     Top = 8
  45.     Width = 393
  46.     Height = 26
  47.     DirList = DirectoryListBox1
  48.     TabOrder = 1
  49.   end
  50.   object MaskEdit1: TMaskEdit
  51.     Left = 272
  52.     Top = 224
  53.     Width = 137
  54.     Height = 29
  55.     EditMask = '!99/99/00;1;_'
  56.     MaxLength = 8
  57.     TabOrder = 2
  58.     Text = '  /  /  '
  59.   end
  60.   object MaskEdit2: TMaskEdit
  61.     Left = 272
  62.     Top = 264
  63.     Width = 137
  64.     Height = 29
  65.     EditMask = '!90:00:00>LL;1;_'
  66.     MaxLength = 10
  67.     TabOrder = 3
  68.     Text = '  :  :    '
  69.   end
  70.   object BitBtn1: TBitBtn
  71.     Left = 16
  72.     Top = 224
  73.     Width = 97
  74.     Height = 57
  75.     Caption = 'BitBtn1'
  76.     TabOrder = 4
  77.     OnClick = RunTouchClick
  78.     Glyph.Data = {
  79.       78010000424D7801000000000000760000002800000020000000100000000100
  80.       04000000000000000000120B0000120B00000000000000000000000000000000
  81.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  82.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  83.       3333333333FFFFF3333333333000003333333333F777773FF333333008877700
  84.       33333337733FFF773F33330887000777033333733F777FFF73F330880FAFAF07
  85.       703337F37733377FF7F33080F00000F07033373733777337F73F087F00A2200F
  86.       77037F3737333737FF7F080A0A2A220A07037F737F3333737F7F0F0F0AAAA20F
  87.       07037F737F3333737F7F0F0A0FAA2A0A08037F737FF33373737F0F7F00FFA00F
  88.       780373F737FFF737F3733080F00000F0803337F73377733737F330F80FAFAF08
  89.       8033373F773337733733330F8700078803333373FF77733F733333300FFF8800
  90.       3333333773FFFF773333333330000033333333333777773333330000}
  91.     NumGlyphs = 2
  92.   end
  93.   object BitBtn2: TBitBtn
  94.     Left = 120
  95.     Top = 224
  96.     Width = 97
  97.     Height = 57
  98.     TabOrder = 5
  99.     OnClick = BitBtn2Click
  100.     Kind = bkHelp
  101.   end
  102.   object FileIterator1: TFileIterator
  103.     OnFoundFile = FileIterator1FoundFile
  104.     UseFileList = False
  105.     UseDirList = False
  106.     Left = 392
  107.     Top = 176
  108.   end
  109. end
  110.