editorsmaskdemomain.dfm

delphi的的三方控件

inherited EditorsMaskDemoMainForm: TEditorsMaskDemoMainForm
  Left = 196
  Top = 33
  Width = 598
  Height = 673
  Caption = 'ExpressVerticalGrid EditorsMask Demo'
  ShowHint = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited lbDescrip: TLabel
    Width = 590
    Height = 48
    Caption = 
      'Practice using masked data-aware editors for reading and writing' +
      '.'#10'Experiment by changing the Options above and also see Help/Abo' +
      'ut for other things to try.'
    Color = 12937777
    Font.Color = clWhite
  end
  inherited sbMain: TStatusBar
    Top = 600
    Width = 590
  end
  inherited memAboutText: TMemo
    Lines.Strings = (
      'In this demo you can:'
      ''
      '- explore the mask editor'#39's options'
      ''
      '- compare its three modes with a standard maskedit '
      ''
      '- edit data records using text and masked editors'
      ''
      '- change an editor'#39's edit mask and mask kind at runtime'
      ''
      '- explore the pre-built regular expressions'
      ''
      '- see the auto-complete in action')
    TabOrder = 3
  end
  object Panel1: TPanel [3]
    Left = 0
    Top = 48
    Width = 590
    Height = 81
    Align = alTop
    TabOrder = 0
    object Panel3: TPanel
      Left = 1
      Top = 1
      Width = 588
      Height = 32
      Align = alTop
      BevelInner = bvLowered
      BevelOuter = bvLowered
      Caption = 'Departments'
      Color = 4707838
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
    end
    object vgDepartments: TcxDBVerticalGrid
      Left = 1
      Top = 33
      Width = 588
      Height = 47
      Styles.Background = EditorsMaskDemoDataDM.stBlueSky
      Styles.Content = EditorsMaskDemoDataDM.stBlueLight
      Styles.Category = EditorsMaskDemoDataDM.stBlueDark
      Align = alClient
      LayoutStyle = lsMultiRecordView
      OptionsView.ShowHeaders = False
      OptionsView.ValueWidth = 81
      OptionsData.Editing = False
      OptionsData.Deleting = False
      OptionsData.Inserting = False
      TabOrder = 1
      OnLeftVisibleRecordIndexChanged = vgDepartmentsLeftVisibleRecordIndexChanged
      DataController.DataSource = EditorsMaskDemoDataDM.dsDEPARTMENTS
      object cxDBVerticalGrid1CategoryRow1: TcxCategoryRow
        Properties.Caption = 'Name'
      end
      object cxDBVerticalGrid1NAME: TcxDBEditorRow
        Properties.Caption = 'NAME'
        Properties.DataBinding.FieldName = 'NAME'
      end
    end
  end
  object Panel2: TPanel [4]
    Left = 0
    Top = 129
    Width = 590
    Height = 471
    Align = alClient
    Color = 15451300
    TabOrder = 1
    object lbFirstName: TLabel
      Left = 28
      Top = 56
      Width = 51
      Height = 13
      Caption = 'First name:'
    end
    object lbMiddleName: TLabel
      Left = 16
      Top = 84
      Width = 63
      Height = 13
      Caption = 'Middle name:'
    end
    object lbLastName: TLabel
      Left = 28
      Top = 112
      Width = 52
      Height = 13
      Caption = 'Last name:'
    end
    object lbCountry: TLabel
      Left = 40
      Top = 188
      Width = 39
      Height = 13
      Caption = 'Country:'
    end
    object lbPostalCode: TLabel
      Left = 20
      Top = 160
      Width = 59
      Height = 13
      Caption = 'Postal code:'
    end
    object lbCity: TLabel
      Left = 60
      Top = 216
      Width = 20
      Height = 13
      Caption = 'City:'
    end
    object lbAddress: TLabel
      Left = 44
      Top = 244
      Width = 35
      Height = 13
      Caption = 'Adress:'
    end
    object lbPhone: TLabel
      Left = 44
      Top = 292
      Width = 34
      Height = 13
      Caption = 'Phone:'
    end
    object lbFax: TLabel
      Left = 56
      Top = 320
      Width = 20
      Height = 13
      Caption = 'Fax:'
    end
    object lbEmail: TLabel
      Left = 48
      Top = 396
      Width = 31
      Height = 13
      Caption = 'E-mail:'
    end
    object lbHomePage: TLabel
      Left = 20
      Top = 368
      Width = 58
      Height = 13
      Caption = 'Home page:'
    end
    object lbInfoPhone: TLabel
      Left = 212
      Top = 292
      Width = 105
      Height = 13
      Caption = 'Delphi Standard Mask'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 12937777
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object lbInfoFax: TLabel
      Left = 212
      Top = 320
      Width = 229
      Height = 13
      Caption = 'Regular Expression with Auto Complete Function'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 12937777
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object lbInfoHomePage: TLabel
      Left = 344
      Top = 368
      Width = 229
      Height = 13
      Caption = 'Regular Expression with Auto Complete Function'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 12937777
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object lbInfoEmail: TLabel
      Left = 344
      Top = 396
      Width = 91
      Height = 13
      Caption = 'Regular Expression'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 12937777
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object lbInfoPostalCode: TLabel
      Left = 212
      Top = 160
      Width = 229
      Height = 13
      Caption = 'Regular Expression with Auto Complete Function'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 12937777
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object lbInfoFirstName: TLabel
      Left = 212
      Top = 56
      Width = 42
      Height = 13
      Caption = 'No mask'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 12937777
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object lbInfoMiddleName: TLabel
      Left = 212
      Top = 84
      Width = 42
      Height = 13
      Caption = 'No mask'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 12937777
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object lbInfoLastName: TLabel
      Left = 212
      Top = 112
      Width = 42
      Height = 13
      Caption = 'No mask'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 12937777
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object lbInfoCountry: TLabel
      Left = 212
      Top = 188
      Width = 42
      Height = 13
      Caption = 'No mask'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 12937777
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object lbInfoCity: TLabel
      Left = 212
      Top = 216
      Width = 42
      Height = 13
      Caption = 'No mask'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 12937777
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object lbInfoAddress: TLabel
      Left = 344
      Top = 244
      Width = 42
      Height = 13
      Caption = 'No mask'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 12937777
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Panel5: TPanel
      Left = 1
      Top = 1
      Width = 588
      Height = 33
      Align = alTop
      BevelInner = bvLowered
      BevelOuter = bvLowered
      Caption = 'Users'
      Color = 4707838
      Ctl3D = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 0
    end
    object edtFirstName: TcxDBTextEdit
      Left = 84
      Top = 52
      Width = 121
      Height = 21
      DataBinding.DataField = 'FNAME'
      DataBinding.DataSource = EditorsMaskDemoDataDM.dsUSERS
      Properties.ReadOnly = False
      Style.Color = 16247513
      Style.LookAndFeel.NativeStyle = False
      TabOrder = 1
    end
    object edtMiddleName: TcxDBTextEdit
      Left = 84
      Top = 80
      Width = 121
      Height = 21
      DataBinding.DataField = 'MNAME'
      DataBinding.DataSource = EditorsMaskDemoDataDM.dsUSERS
      Properties.ReadOnly = False
      Style.Color = 16247513
      TabOrder = 2
    end
    object edtLastName: TcxDBTextEdit
      Left = 84
      Top = 108
      Width = 121
      Height = 21
      DataBinding.DataField = 'LNAME'
      DataBinding.DataSource = EditorsMaskDemoDataDM.dsUSERS
      Style.Color = 16247513
      TabOrder = 3
    end
    object edtCountry: TcxDBTextEdit
      Left = 84
      Top = 184
      Width = 121
      Height = 21
      DataBinding.DataField = 'COUNTRY'
      DataBinding.DataSource = EditorsMaskDemoDataDM.dsUSERS
      Style.Color = 16247513
      TabOrder = 5
    end
    object edtCity: TcxDBTextEdit
      Left = 84
      Top = 212
      Width = 121
      Height = 21
      DataBinding.DataField = 'CITY'
      DataBinding.DataSource = EditorsMaskDemoDataDM.dsUSERS
      Style.Color = 16247513
      TabOrder = 6
    end
    object edtAddress: TcxDBTextEdit
      Left = 84
      Top = 240
      Width = 253
      Height = 21
      DataBinding.DataField = 'ADDRESS'
      DataBinding.DataSource = EditorsMaskDemoDataDM.dsUSERS
      Style.Color = 16247513
      TabOrder = 7
    end
    object DBNavigator1: TcxDBNavigator
      Left = 88
      Top = 436
      Width = 227
      Height = 25
      DataSource = EditorsMaskDemoDataDM.dsUSERS
      TabOrder = 12
    end
    object edtPostalCode: TcxDBButtonEdit
      Left = 84
      Top = 156
      Width = 121
      Height = 21
      DataBinding.DataField = 'POSTALCODE'
      DataBinding.DataSource = EditorsMaskDemoDataDM.dsUSERS
      Properties.Buttons = <
        item
          Default = True
          Kind = bkEllipsis
        end>
      Properties.MaskKind = emkRegExprEx
      Properties.EditMask = '\d\d\d\d\d? | \w\w\w'#39' '#39'\w\w\w'
      Properties.MaxLength = 0
      Properties.OnButtonClick = edtPostalCodePropertiesButtonClick
      Style.Color = 16247513
      TabOrder = 4
    end
    object edtPhone: TcxDBButtonEdit
      Left = 84
      Top = 288
      Width = 121
      Height = 21
      DataBinding.DataField = 'PHONE'
      DataBinding.DataSource = EditorsMaskDemoDataDM.dsUSERS
      Properties.Buttons = <
        item
          Default = True
          Kind = bkEllipsis
        end>
      Properties.EditMask = '!\(999\) 000-0000;1;_'
      Properties.MaxLength = 0
      Properties.OnButtonClick = edtPhonePropertiesButtonClick
      Style.Color = 16247513
      TabOrder = 8
    end
    object edtFax: TcxDBButtonEdit
      Left = 84
      Top = 316
      Width = 121
      Height = 21
      DataBinding.DataField = 'FAX'
      DataBinding.DataSource = EditorsMaskDemoDataDM.dsUSERS
      Properties.Buttons = <
        item
          Default = True
          Kind = bkEllipsis
        end>
      Properties.MaskKind = emkRegExprEx
      Properties.EditMask = '(\(\d\d\d\)'#39#39' '#39#39')?\d\d\d-\d\d\d\d'
      Properties.MaxLength = 0
      Properties.OnButtonClick = edtFaxPropertiesButtonClick
      Style.Color = 16247513
      TabOrder = 9
    end
    object edtHomePage: TcxDBButtonEdit
      Left = 84
      Top = 364
      Width = 253
      Height = 21
      DataBinding.DataField = 'HOMEPAGE'
      DataBinding.DataSource = EditorsMaskDemoDataDM.dsUSERS
      Properties.Buttons = <
        item
          Default = True
          Kind = bkEllipsis
        end>
      Properties.MaskKind = emkRegExprEx
      Properties.EditMask = 'http\:\/\/(\w+(\.\w+)*@)?\w+\.\w+(\.\w+)*(/(\w+(/\w+)*/?)?)?'
      Properties.MaxLength = 0
      Properties.OnButtonClick = edtHomePagePropertiesButtonClick
      Style.Color = 16247513
      TabOrder = 10
    end
    object edtEmail: TcxDBButtonEdit
      Left = 84
      Top = 392
      Width = 253
      Height = 21
      DataBinding.DataField = 'EMAIL'
      DataBinding.DataSource = EditorsMaskDemoDataDM.dsUSERS
      Properties.Buttons = <
        item
          Default = True
          Kind = bkEllipsis
        end>
      Properties.MaskKind = emkRegExpr
      Properties.EditMask = '\w+@\w+\.\w+(\.\w+)*'
      Properties.MaxLength = 0
      Properties.OnButtonClick = edtEmailPropertiesButtonClick
      Style.Color = 16247513
      TabOrder = 11
    end
  end
  inherited mmMain: TMainMenu
    inherited miOptions: TMenuItem
      object miDefaultMaskSettings: TMenuItem [0]
        Caption = 'Default &Mask Settings'
        Hint = 'Sets the default mask set'
        OnClick = miDefaultMaskExecute
      end
      object miShowMaskButtons: TMenuItem [1]
        Caption = 'Show Mask &Buttons'
        Checked = True
        Hint = 'Shows the edit mask buttons'
        OnClick = miShowEditMaskButtonsExecute
      end
      object N1: TMenuItem [2]
        Caption = '-'
      end
    end
  end
end