home *** CD-ROM | disk | FTP | other *** search
/ PC Format Collection 48 / SENT14D.ISO / tech / delphi / disk15 / filectrl.pak / FILEFORM.DFM / FILEFORM.txt
Encoding:
Text File  |  1995-08-24  |  2.0 KB  |  106 lines
  1. object FileCtrls: TFileCtrls
  2.   Left = 198
  3.   Top = 101
  4.   ActiveControl = FileEdit
  5.   BorderStyle = bsDialog
  6.   Caption = 'File Controls Demo'
  7.   ClientHeight = 252
  8.   ClientWidth = 420
  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.   TextHeight = 13
  16.   object PathLabel: TLabel
  17.     Left = 213
  18.     Top = 31
  19.     Width = 95
  20.     Height = 13
  21.     Caption = 'c:\demos\filectrl'
  22.   end
  23.   object Label2: TLabel
  24.     Left = 12
  25.     Top = 8
  26.     Width = 61
  27.     Height = 13
  28.     Caption = 'File &Name:'
  29.     FocusControl = FileEdit
  30.   end
  31.   object Label1: TLabel
  32.     Left = 12
  33.     Top = 209
  34.     Width = 102
  35.     Height = 13
  36.     Caption = 'List Files of &Type:'
  37.     FocusControl = FilterComboBox1
  38.   end
  39.   object Label3: TLabel
  40.     Left = 214
  41.     Top = 8
  42.     Width = 66
  43.     Height = 13
  44.     Caption = '&Directories:'
  45.     FocusControl = DirectoryListBox1
  46.   end
  47.   object Label4: TLabel
  48.     Left = 212
  49.     Top = 209
  50.     Width = 41
  51.     Height = 13
  52.     Caption = 'Dri&ves:'
  53.     FocusControl = DriveComboBox1
  54.   end
  55.   object FileListBox1: TFileListBox
  56.     Left = 12
  57.     Top = 52
  58.     Width = 189
  59.     Height = 146
  60.     FileEdit = FileEdit
  61.     IntegralHeight = True
  62.     ItemHeight = 16
  63.     ShowGlyphs = True
  64.     TabOrder = 1
  65.   end
  66.   object DirectoryListBox1: TDirectoryListBox
  67.     Left = 212
  68.     Top = 52
  69.     Width = 195
  70.     Height = 146
  71.     DirLabel = PathLabel
  72.     FileList = FileListBox1
  73.     IntegralHeight = True
  74.     ItemHeight = 16
  75.     TabOrder = 2
  76.   end
  77.   object DriveComboBox1: TDriveComboBox
  78.     Left = 212
  79.     Top = 226
  80.     Width = 197
  81.     Height = 19
  82.     DirList = DirectoryListBox1
  83.     TabOrder = 4
  84.   end
  85.   object FilterComboBox1: TFilterComboBox
  86.     Left = 12
  87.     Top = 226
  88.     Width = 189
  89.     Height = 20
  90.     FileList = FileListBox1
  91.     Filter = 
  92.       'All files (*.*)|*.*|Pascal files (*.pas)|*.pas|Project files (*.' +
  93.       'dpr)|*.dpr'
  94.     TabOrder = 3
  95.   end
  96.   object FileEdit: TEdit
  97.     Left = 12
  98.     Top = 25
  99.     Width = 189
  100.     Height = 20
  101.     TabOrder = 0
  102.     Text = '*.*'
  103.     OnKeyPress = FileEditKeyPress
  104.   end
  105. end
  106.