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