home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 April / Chip_1997-04_cd.bin / prezent / cb / data.z / CMPLIB32.CCL / RCDATA / TMASKFORM / TMASKFORM.txt
Encoding:
Text File  |  1997-01-16  |  3.2 KB  |  166 lines
  1. object MaskForm: TMaskForm
  2.   Left = 245
  3.   Top = 153
  4.   ActiveControl = InputMask
  5.   BorderStyle = bsDialog
  6.   Caption = 'Input Mask Editor'
  7.   ClientHeight = 211
  8.   ClientWidth = 488
  9.   Font.Height = -11
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   PixelsPerInch = 96
  13.   Position = poScreenCenter
  14.   OnCreate = FormCreate
  15.   TextHeight = 13
  16.   object Bevel1: TBevel
  17.     Left = 8
  18.     Top = 124
  19.     Width = 193
  20.     Height = 50
  21.     Shape = bsFrame
  22.   end
  23.   object Label1: TLabel
  24.     Left = 8
  25.     Top = 8
  26.     Width = 56
  27.     Height = 13
  28.     Caption = '&Input Mask:'
  29.     FocusControl = InputMask
  30.     IsControl = True
  31.   end
  32.   object Label2: TLabel
  33.     Left = 208
  34.     Top = 8
  35.     Width = 72
  36.     Height = 13
  37.     Caption = '&Sample Masks:'
  38.     FocusControl = ListBox1
  39.     IsControl = True
  40.   end
  41.   object Label3: TLabel
  42.     Left = 12
  43.     Top = 128
  44.     Width = 51
  45.     Height = 13
  46.     Caption = '&Test Input:'
  47.     FocusControl = TestEdit
  48.     IsControl = True
  49.   end
  50.   object Label4: TLabel
  51.     Left = 24
  52.     Top = 60
  53.     Width = 99
  54.     Height = 13
  55.     Caption = 'Character for &Blanks:'
  56.     FocusControl = Blanks
  57.     IsControl = True
  58.   end
  59.   object InputMask: TEdit
  60.     Left = 8
  61.     Top = 24
  62.     Width = 192
  63.     Height = 21
  64.     TabOrder = 0
  65.     Text = 'InputMask'
  66.     OnChange = InputMaskChange
  67.     IsControl = True
  68.   end
  69.   object ListBox1: TListBox
  70.     Left = 208
  71.     Top = 24
  72.     Width = 268
  73.     Height = 149
  74.     ItemHeight = 16
  75.     Items.Strings = (
  76.       'Phone | 4155551212 | !\(999\)000-0000;1;_'
  77.       'Extension | 15450 | !99999;1;_'
  78.       'Social Security | 555555555 | 000\-00\-0000;1;_'
  79.       'Short Zip Code | 90504 | 00000;1;_'
  80.       'Long Zip Code | 905040000 | 00000\-9999;1;_'
  81.       'Date | 062794 | !99/99/00;1;_'
  82.       'Long Time | 090515PM | !90:00:00>LL;1;_'
  83.       'Short Time | 1345 | !90:00;1;_')
  84.     Style = lbOwnerDrawFixed
  85.     TabOrder = 4
  86.     OnClick = ListBoxSelect
  87.     OnDrawItem = ListDrawItem
  88.     IsControl = True
  89.   end
  90.   object TestEdit: TMaskEdit
  91.     Left = 12
  92.     Top = 148
  93.     Width = 185
  94.     Height = 21
  95.     MaxLength = 0
  96.     TabOrder = 3
  97.     IsControl = True
  98.   end
  99.   object Blanks: TEdit
  100.     Left = 152
  101.     Top = 56
  102.     Width = 33
  103.     Height = 21
  104.     MaxLength = 1
  105.     TabOrder = 1
  106.     Text = '_'
  107.     OnChange = BlanksChange
  108.     IsControl = True
  109.   end
  110.   object SaveMaskCheck: TCheckBox
  111.     Left = 8
  112.     Top = 84
  113.     Width = 177
  114.     Height = 20
  115.     Caption = 'Save &Literal Characters'
  116.     TabOrder = 2
  117.     OnClick = BlanksChange
  118.     IsControl = True
  119.   end
  120.   object Masks: TButton
  121.     Left = 16
  122.     Top = 181
  123.     Width = 75
  124.     Height = 25
  125.     Caption = '&Masks...'
  126.     TabOrder = 5
  127.     OnClick = MasksClick
  128.   end
  129.   object OKButton: TButton
  130.     Left = 241
  131.     Top = 181
  132.     Width = 75
  133.     Height = 25
  134.     Caption = 'OK'
  135.     Default = True
  136.     ModalResult = 1
  137.     TabOrder = 6
  138.   end
  139.   object CancelButton: TButton
  140.     Left = 321
  141.     Top = 181
  142.     Width = 75
  143.     Height = 25
  144.     Cancel = True
  145.     Caption = 'Cancel'
  146.     ModalResult = 2
  147.     TabOrder = 7
  148.   end
  149.   object HelpButton: TButton
  150.     Left = 401
  151.     Top = 181
  152.     Width = 75
  153.     Height = 25
  154.     Caption = '&Help'
  155.     TabOrder = 8
  156.     OnClick = HelpButtonClick
  157.   end
  158.   object OpenDialog1: TOpenDialog
  159.     DefaultExt = 'dem'
  160.     Filter = 'Edit Masks (*.dem)|*.dem|All Files (*.*)|*.*'
  161.     Title = 'Open Mask File'
  162.     Left = 112
  163.     Top = 184
  164.   end
  165. end
  166.