david
3b29f73ece
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@8 05c56307-c608-d34a-929d-697000501d7a
526 lines
14 KiB
Plaintext
526 lines
14 KiB
Plaintext
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
|