PC World Plus! (NZ) 2001 June/HDC50.iso/Runimage/Delphi50/Bin/DCLSTD50.BPL/0/RCDATA/TMASKFORM/TMASKFORM.txt

Text File | 1999-08-11 | 3KB | 164 lines

object MaskForm: TMaskForm
  Left = 245
  Top = 153
  ActiveControl = InputMask
  BorderStyle = bsDialog
  Caption = 'Input Mask Editor'
  ClientHeight = 211
  ClientWidth = 488
  ParentFont = True
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 8
    Top = 124
    Width = 193
    Height = 50
    Shape = bsFrame
  end
  object Label1: TLabel
    Left = 8
    Top = 8
    Width = 56
    Height = 13
    Caption = '&Input Mask:'
    FocusControl = InputMask
    IsControl = True
  end
  object Label2: TLabel
    Left = 208
    Top = 8
    Width = 72
    Height = 13
    Caption = '&Sample Masks:'
    FocusControl = ListBox1
    IsControl = True
  end
  object Label3: TLabel
    Left = 12
    Top = 128
    Width = 51
    Height = 13
    Caption = '&Test Input:'
    FocusControl = TestEdit
    IsControl = True
  end
  object Label4: TLabel
    Left = 24
    Top = 60
    Width = 99
    Height = 13
    Caption = 'Character for &Blanks:'
    FocusControl = Blanks
    IsControl = True
  end
  object InputMask: TEdit
    Left = 8
    Top = 24
    Width = 192
    Height = 21
    TabOrder = 0
    Text = 'InputMask'
    OnChange = InputMaskChange
    IsControl = True
  end
  object ListBox1: TListBox
    Left = 208
    Top = 24
    Width = 268
    Height = 149
    ItemHeight = 16
    Items.Strings = (
      'Phone | 4155551212 | !\(999\)000-0000;1;_'
      'Extension | 15450 | !99999;1;_'
      'Social Security | 555555555 | 000\-00\-0000;1;_'
      'Short Zip Code | 90504 | 00000;1;_'
      'Long Zip Code | 905040000 | 00000\-9999;1;_'
      'Date | 062794 | !99/99/00;1;_'
      'Long Time | 090515PM | !90:00:00>LL;1;_'
      'Short Time | 1345 | !90:00;1;_')
    Style = lbOwnerDrawFixed
    TabOrder = 4
    OnClick = ListBoxSelect
    OnDrawItem = ListDrawItem
    IsControl = True
  end
  object TestEdit: TMaskEdit
    Left = 12
    Top = 148
    Width = 185
    Height = 21
    MaxLength = 0
    TabOrder = 3
    IsControl = True
  end
  object Blanks: TEdit
    Left = 152
    Top = 56
    Width = 33
    Height = 21
    MaxLength = 1
    TabOrder = 1
    Text = '_'
    OnChange = BlanksChange
    IsControl = True
  end
  object SaveMaskCheck: TCheckBox
    Left = 8
    Top = 84
    Width = 177
    Height = 20
    Caption = 'Save &Literal Characters'
    TabOrder = 2
    OnClick = BlanksChange
    IsControl = True
  end
  object Masks: TButton
    Left = 16
    Top = 181
    Width = 75
    Height = 25
    Caption = '&Masks...'
    TabOrder = 5
    OnClick = MasksClick
  end
  object OKButton: TButton
    Left = 241
    Top = 181
    Width = 75
    Height = 25
    Caption = 'OK'
    Default = True
    ModalResult = 1
    TabOrder = 6
  end
  object CancelButton: TButton
    Left = 321
    Top = 181
    Width = 75
    Height = 25
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 7
  end
  object HelpButton: TButton
    Left = 401
    Top = 181
    Width = 75
    Height = 25
    Caption = '&Help'
    TabOrder = 8
    OnClick = HelpButtonClick
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = 'dem'
    Filter = 'Edit Masks (*.dem)|*.dem|All Files (*.*)|*.*'
    Title = 'Open Mask File'
    Left = 112
    Top = 184
  end
end