home *** CD-ROM | disk | FTP | other *** search
/ PC Format Collection 48 / SENT14D.ISO / tech / delphi / disk12 / lib.pak / MASKPROP.DFM / MASKPROP.txt
Encoding:
Text File  |  1995-08-24  |  3.3 KB  |  171 lines
  1. object MaskForm: TMaskForm
  2.   Left = 245
  3.   Top = 153
  4.   ActiveControl = InputMask
  5.   BorderStyle = bsDialog
  6.   Caption = 'Input Mask Editor'
  7.   ClientHeight = 222
  8.   ClientWidth = 488
  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.   OnCreate = FormCreate
  16.   TextHeight = 13
  17.   object Bevel1: TBevel
  18.     Left = 8
  19.     Top = 124
  20.     Width = 193
  21.     Height = 50
  22.     Shape = bsFrame
  23.   end
  24.   object Label1: TLabel
  25.     Left = 8
  26.     Top = 8
  27.     Width = 68
  28.     Height = 13
  29.     Caption = '&Input Mask:'
  30.     FocusControl = InputMask
  31.     IsControl = True
  32.   end
  33.   object Label2: TLabel
  34.     Left = 208
  35.     Top = 8
  36.     Width = 86
  37.     Height = 13
  38.     Caption = '&Sample Masks:'
  39.     FocusControl = ListBox1
  40.     IsControl = True
  41.   end
  42.   object Label3: TLabel
  43.     Left = 12
  44.     Top = 128
  45.     Width = 63
  46.     Height = 13
  47.     Caption = '&Test Input:'
  48.     FocusControl = TestEdit
  49.     IsControl = True
  50.   end
  51.   object Label4: TLabel
  52.     Left = 24
  53.     Top = 60
  54.     Width = 121
  55.     Height = 13
  56.     Caption = 'Character for &Blanks:'
  57.     FocusControl = Blanks
  58.     IsControl = True
  59.   end
  60.   object InputMask: TEdit
  61.     Left = 8
  62.     Top = 24
  63.     Width = 192
  64.     Height = 20
  65.     TabOrder = 0
  66.     Text = 'InputMask'
  67.     OnChange = InputMaskChange
  68.     IsControl = True
  69.   end
  70.   object ListBox1: TListBox
  71.     Left = 208
  72.     Top = 24
  73.     Width = 268
  74.     Height = 149
  75.     ItemHeight = 16
  76.     Items.Strings = (
  77.       'Phone | 4155551212 | !\(999\)000-0000;1;_'
  78.       'Extension | 15450 | !99999;1;_'
  79.       'Social Security | 555555555 | 000\-00\-0000;1;_'
  80.       'Short Zip Code | 90504 | 00000;1;_'
  81.       'Long Zip Code | 905040000 | 00000\-9999;1;_'
  82.       'Date | 062794 | !99/99/00;1;_'
  83.       'Long Time | 090515PM | !90:00:00>LL;1;_'
  84.       'Short Time | 1345 | !90:00;1;_')
  85.     Style = lbOwnerDrawFixed
  86.     TabOrder = 4
  87.     OnClick = ListBoxSelect
  88.     OnDrawItem = ListDrawItem
  89.     IsControl = True
  90.   end
  91.   object OKButton: TBitBtn
  92.     Left = 232
  93.     Top = 184
  94.     Width = 77
  95.     Height = 27
  96.     TabOrder = 5
  97.     Kind = bkOK
  98.     Margin = 2
  99.     Spacing = -1
  100.     IsControl = True
  101.   end
  102.   object CancelButton: TBitBtn
  103.     Left = 316
  104.     Top = 184
  105.     Width = 77
  106.     Height = 27
  107.     TabOrder = 6
  108.     Kind = bkCancel
  109.     Margin = 2
  110.     Spacing = -1
  111.     IsControl = True
  112.   end
  113.   object HelpButton: TBitBtn
  114.     Left = 400
  115.     Top = 184
  116.     Width = 77
  117.     Height = 27
  118.     TabOrder = 7
  119.     Kind = bkHelp
  120.     Margin = 2
  121.     Spacing = -1
  122.     IsControl = True
  123.   end
  124.   object TestEdit: TMaskEdit
  125.     Left = 12
  126.     Top = 148
  127.     Width = 185
  128.     Height = 21
  129.     MaxLength = 0
  130.     TabOrder = 3
  131.     IsControl = True
  132.   end
  133.   object Blanks: TEdit
  134.     Left = 152
  135.     Top = 56
  136.     Width = 33
  137.     Height = 20
  138.     MaxLength = 1
  139.     TabOrder = 1
  140.     Text = '_'
  141.     OnChange = BlanksChange
  142.     IsControl = True
  143.   end
  144.   object SaveMaskCheck: TCheckBox
  145.     Left = 8
  146.     Top = 84
  147.     Width = 177
  148.     Height = 20
  149.     Caption = 'Save &Literal Characters'
  150.     TabOrder = 2
  151.     OnClick = BlanksChange
  152.     IsControl = True
  153.   end
  154.   object Masks: TButton
  155.     Left = 16
  156.     Top = 184
  157.     Width = 77
  158.     Height = 25
  159.     Caption = '&Masks...'
  160.     TabOrder = 8
  161.     OnClick = MasksClick
  162.   end
  163.   object OpenDialog1: TOpenDialog
  164.     DefaultExt = 'dem'
  165.     Filter = 'Edit Masks (*.dem)|*.dem|All Files (*.*)|*.*'
  166.     Title = 'Open Mask File'
  167.     Left = 112
  168.     Top = 184
  169.   end
  170. end
  171.