lazarus/components/ideintf/maskpropedit.lfm

object MaskEditorForm: TMaskEditorForm
  Left = 458
  Height = 326
  Top = 248
  Width = 507
  ActiveControl = InputMaskEdit
  AutoSize = True
  BorderStyle = bsDialog
  Caption = 'Input Mask Editor'
  ClientHeight = 326
  ClientWidth = 507
  Position = poScreenCenter
  LCLVersion = '3.99.0.0'
  OnClose = FormClose
  OnCreate = MaskEditorFormCreate
  object InputMaskLabel: TLabel
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Owner
    Left = 6
    Height = 15
    Top = 6
    Width = 62
    BorderSpacing.Left = 6
    BorderSpacing.Top = 6
    Caption = '&Input Mask:'
    FocusControl = InputMaskEdit
    ParentColor = False
  end
  object SampleMasksLabel: TLabel
    AnchorSideLeft.Control = SampleMasksListBox
    AnchorSideTop.Control = Owner
    Left = 201
    Height = 15
    Top = 6
    Width = 78
    BorderSpacing.Top = 6
    Caption = '&Sample Masks:'
    ParentColor = False
  end
  object CharactersForBlanksLabel: TLabel
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = InputMaskEdit
    AnchorSideTop.Side = asrBottom
    Left = 6
    Height = 15
    Top = 53
    Width = 109
    BorderSpacing.Left = 6
    BorderSpacing.Top = 6
    Caption = 'Character for Blanks:'
    FocusControl = CharactersForBlanksEdit
    ParentColor = False
  end
  object InputMaskEdit: TEdit
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = InputMaskLabel
    AnchorSideTop.Side = asrBottom
    Left = 6
    Height = 23
    Top = 24
    Width = 189
    BorderSpacing.Left = 6
    BorderSpacing.Top = 3
    TabOrder = 0
    OnChange = InputMaskEditChange
  end
  object SampleMasksListBox: TListBox
    AnchorSideLeft.Control = InputMaskEdit
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = SampleMasksLabel
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    AnchorSideBottom.Control = LoadSampleMasksButton
    AnchorSideBottom.Side = asrBottom
    Left = 201
    Height = 223
    Top = 24
    Width = 300
    Anchors = [akTop, akLeft, akRight, akBottom]
    BorderSpacing.Left = 6
    BorderSpacing.Top = 3
    BorderSpacing.Right = 6
    Constraints.MinWidth = 300
    ItemHeight = 0
    Style = lbOwnerDrawFixed
    TabOrder = 7
    OnClick = SampleMasksListBoxClick
    OnDrawItem = SampleMasksListBoxDrawItem
  end
  object LoadSampleMasksButton: TButton
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = TestInputPanel
    AnchorSideTop.Side = asrBottom
    Left = 6
    Height = 25
    Top = 222
    Width = 75
    BorderSpacing.Around = 6
    Caption = '&Masks...'
    TabOrder = 5
    OnClick = LoadSampleMasksButtonClick
  end
  object CharactersForBlanksEdit: TEdit
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = CharactersForBlanksLabel
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = InputMaskEdit
    AnchorSideRight.Side = asrBottom
    Left = 6
    Height = 23
    Top = 71
    Width = 189
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Left = 6
    BorderSpacing.Top = 3
    MaxLength = 1
    TabOrder = 1
    OnChange = CharactersForBlankEditChange
  end
  object SaveLiteralCheckBox: TCheckBox
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = CharactersForBlanksEdit
    AnchorSideTop.Side = asrBottom
    Left = 6
    Height = 19
    Top = 100
    Width = 136
    BorderSpacing.Left = 6
    BorderSpacing.Top = 6
    Caption = 'Save &Literal Characters'
    TabOrder = 2
    OnClick = SaveLiteralCheckBoxClick
  end
  object TestInputPanel: TPanel
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = EnableSetsCheckBox
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = InputMaskEdit
    AnchorSideRight.Side = asrBottom
    Left = 6
    Height = 66
    Top = 150
    Width = 189
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Left = 6
    BorderSpacing.Top = 6
    BevelInner = bvRaised
    BevelOuter = bvLowered
    ClientHeight = 66
    ClientWidth = 189
    FullRepaint = False
    TabOrder = 4
    object TestInputLabel: TLabel
      AnchorSideLeft.Control = TestInputPanel
      AnchorSideTop.Control = TestInputPanel
      Left = 8
      Height = 15
      Top = 8
      Width = 54
      BorderSpacing.Left = 6
      BorderSpacing.Top = 6
      Caption = '&Test Input:'
      ParentColor = False
    end
    object TestMaskEdit: TMaskEdit
      AnchorSideLeft.Control = TestInputPanel
      AnchorSideTop.Control = TestInputLabel
      AnchorSideTop.Side = asrBottom
      AnchorSideRight.Control = TestInputPanel
      AnchorSideRight.Side = asrBottom
      Left = 8
      Height = 23
      Top = 26
      Width = 173
      Anchors = [akTop, akLeft, akRight]
      BorderSpacing.Left = 6
      BorderSpacing.Top = 3
      BorderSpacing.Right = 6
      EnableSets = False
      MaxLength = 0
      TabOrder = 0
      SpaceChar = '_'
    end
  end
  object ButtonPanel1: TButtonPanel
    AnchorSideTop.Control = LoadSampleMasksButton
    AnchorSideTop.Side = asrBottom
    Left = 6
    Height = 67
    Top = 253
    Width = 495
    Anchors = [akTop, akLeft, akRight, akBottom]
    OKButton.Name = 'OKButton'
    OKButton.DefaultCaption = True
    HelpButton.Name = 'HelpButton'
    HelpButton.DefaultCaption = True
    CloseButton.Name = 'CloseButton'
    CloseButton.DefaultCaption = True
    CancelButton.Name = 'CancelButton'
    CancelButton.DefaultCaption = True
    TabOrder = 8
    ShowButtons = [pbOK, pbCancel, pbHelp]
  end
  object EnableSetsCheckBox: TCheckBox
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = SaveLiteralCheckBox
    AnchorSideTop.Side = asrBottom
    Left = 6
    Height = 19
    Hint = 'Only affects the EnableSets property of the Test Input'
    Top = 125
    Width = 74
    BorderSpacing.Left = 6
    BorderSpacing.Top = 6
    Caption = 'EnableSets'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    OnClick = EnableSetsCheckBoxClick
  end
  object UnloadSampleMasksButton: TButton
    AnchorSideLeft.Control = LoadSampleMasksButton
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = LoadSampleMasksButton
    Left = 87
    Height = 25
    Top = 222
    Width = 75
    BorderSpacing.Left = 6
    Caption = 'Unload'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 6
    OnClick = UnloadSampleMasksButtonClick
  end
  object OpenDialog1: TOpenDialog
    Title = 'Open mask file (*.dem)'
    DefaultExt = '.dem'
    Filter = 'Edit Masks (*.dem)|*.dem|All Files (*.*)|*.*'
    FilterIndex = 0
    Options = [ofNoChangeDir, ofEnableSizing, ofViewDetail]
    Left = 152
    Top = 96
  end
end