editorsmaskdemomain.dfm

DevExpress ExpressQuantumGrid Suite v5.9 Full Source

object EditorsMaskDemoMainForm: TEditorsMaskDemoMainForm
  Left = 178
  Top = 57
  Width = 800
  Height = 600
  Caption = 'ExpressQuantumGrid EditorsMaskDemo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = mmMain
  Position = poScreenCenter
  ShowHint = True
  PixelsPerInch = 96
  TextHeight = 13
  object lbDescrip: TLabel
    Left = 0
    Top = 0
    Width = 792
    Height = 32
    Align = alTop
    Caption = 
      'Practice using masked data-aware editors for reading and writing' +
      '.'#10'Experiment by changing the Options above. Click '#39'About this de' +
      'mo'#39' for more information.'
    Color = 12937777
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    WordWrap = True
  end
  object sbMain: TStatusBar
    Left = 0
    Top = 527
    Width = 792
    Height = 19
    AutoHint = True
    Panels = <>
    ParentShowHint = False
    ShowHint = True
    SimplePanel = True
  end
  object Panel1: TPanel
    Left = 0
    Top = 32
    Width = 189
    Height = 495
    Align = alLeft
    TabOrder = 1
    object Panel3: TPanel
      Left = 1
      Top = 1
      Width = 187
      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 cxGrid: TcxGrid
      Left = 1
      Top = 33
      Width = 187
      Height = 461
      Align = alClient
      TabOrder = 1
      object cxGridDBTableView: TcxGridDBTableView
        DataController.DataSource = EditorsMaskDemoMainDM.DataSourceDEPARTMENTS
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <>
        DataController.Summary.SummaryGroups = <>
        NavigatorButtons.ConfirmDelete = False
        OptionsCustomize.ColumnFiltering = False
        OptionsCustomize.ColumnGrouping = False
        OptionsData.Deleting = False
        OptionsData.Editing = False
        OptionsData.Inserting = False
        OptionsSelection.InvertSelect = False
        OptionsView.ColumnAutoWidth = True
        OptionsView.GroupByBox = False
        Styles.Background = EditorsMaskDemoMainDM.stBlueSky
        Styles.Content = EditorsMaskDemoMainDM.stBlueLight
        Styles.Inactive = EditorsMaskDemoMainDM.stBlueSky
        Styles.Selection = EditorsMaskDemoMainDM.stBlueBright
        Styles.Header = EditorsMaskDemoMainDM.stBlueDark
        object cxGridDBTableViewNAME: TcxGridDBColumn
          Caption = 'Name'
          DataBinding.FieldName = 'NAME'
          Options.Editing = False
          Options.Filtering = False
          Options.Grouping = False
          Width = 100
        end
      end
      object cxGridLevel: TcxGridLevel
        GridView = cxGridDBTableView
      end
    end
  end
  object Panel2: TPanel
    Left = 189
    Top = 32
    Width = 603
    Height = 495
    Align = alClient
    Color = 15451300
    TabOrder = 2
    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 = 601
      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 = EditorsMaskDemoMainDM.DataSourceUSERS
      Properties.ReadOnly = False
      Style.Color = 16247513
      TabOrder = 1
    end
    object edtMiddleName: TcxDBTextEdit
      Left = 84
      Top = 80
      Width = 121
      Height = 21
      DataBinding.DataField = 'MNAME'
      DataBinding.DataSource = EditorsMaskDemoMainDM.DataSourceUSERS
      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 = EditorsMaskDemoMainDM.DataSourceUSERS
      Style.Color = 16247513
      TabOrder = 3
    end
    object edtCountry: TcxDBTextEdit
      Left = 84
      Top = 184
      Width = 121
      Height = 21
      DataBinding.DataField = 'COUNTRY'
      DataBinding.DataSource = EditorsMaskDemoMainDM.DataSourceUSERS
      Style.Color = 16247513
      TabOrder = 5
    end
    object edtCity: TcxDBTextEdit
      Left = 84
      Top = 212
      Width = 121
      Height = 21
      DataBinding.DataField = 'CITY'
      DataBinding.DataSource = EditorsMaskDemoMainDM.DataSourceUSERS
      Style.Color = 16247513
      TabOrder = 6
    end
    object edtAddress: TcxDBTextEdit
      Left = 84
      Top = 240
      Width = 253
      Height = 21
      DataBinding.DataField = 'ADDRESS'
      DataBinding.DataSource = EditorsMaskDemoMainDM.DataSourceUSERS
      Style.Color = 16247513
      TabOrder = 7
    end
    object DBNavigator1: TcxDBNavigator
      Left = 48
      Top = 440
      Width = 285
      Height = 25
      DataSource = EditorsMaskDemoMainDM.DataSourceUSERS
      TabOrder = 12
    end
    object edtPostalCode: TcxDBButtonEdit
      Left = 84
      Top = 156
      Width = 121
      Height = 21
      DataBinding.DataField = 'POSTALCODE'
      DataBinding.DataSource = EditorsMaskDemoMainDM.DataSourceUSERS
      Properties.Buttons = <
        item
          Default = True
          Kind = bkEllipsis
          Visible = False
        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 = EditorsMaskDemoMainDM.DataSourceUSERS
      Properties.Buttons = <
        item
          Default = True
          Kind = bkEllipsis
          Visible = False
        end>
      Properties.EditMask = '!\(999\) 000-0000;1;_'
      Properties.MaxLength = 0
      Properties.OnButtonClick = cxDBButtonEdit1PropertiesButtonClick
      Style.Color = 16247513
      TabOrder = 8
    end
    object edtFax: TcxDBButtonEdit
      Left = 84
      Top = 316
      Width = 121
      Height = 21
      DataBinding.DataField = 'FAX'
      DataBinding.DataSource = EditorsMaskDemoMainDM.DataSourceUSERS
      Properties.Buttons = <
        item
          Default = True
          Kind = bkEllipsis
          Visible = False
        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 = cxDBButtonEdit2PropertiesButtonClick
      Style.Color = 16247513
      TabOrder = 9
    end
    object edtHomePage: TcxDBButtonEdit
      Left = 84
      Top = 364
      Width = 253
      Height = 21
      DataBinding.DataField = 'HOMEPAGE'
      DataBinding.DataSource = EditorsMaskDemoMainDM.DataSourceUSERS
      Properties.Buttons = <
        item
          Default = True
          Kind = bkEllipsis
          Visible = False
        end>
      Properties.MaskKind = emkRegExprEx
      Properties.EditMask = 'http\:\/\/(\w+(\.\w+)*@)?\w+\.\w+(\.\w+)*(/(\w+(/\w+)*/?)?)?'
      Properties.MaxLength = 0
      Properties.OnButtonClick = cxDBButtonEdit3PropertiesButtonClick
      Style.Color = 16247513
      TabOrder = 10
    end
    object edtEmail: TcxDBButtonEdit
      Left = 84
      Top = 392
      Width = 253
      Height = 21
      DataBinding.DataField = 'EMAIL'
      DataBinding.DataSource = EditorsMaskDemoMainDM.DataSourceUSERS
      Properties.Buttons = <
        item
          Default = True
          Kind = bkEllipsis
          Visible = False
        end>
      Properties.MaskKind = emkRegExpr
      Properties.EditMask = '\w+@\w+\.\w+(\.\w+)*'
      Properties.MaxLength = 0
      Properties.OnButtonClick = cxDBButtonEdit4PropertiesButtonClick
      Style.Color = 16247513
      TabOrder = 11
    end
  end
  object mmMain: TMainMenu
    Left = 320
    Top = 8
    object miFile: TMenuItem
      Caption = '&File'
      object miExit: TMenuItem
        Caption = 'E&xit'
        Hint = 'Press to quit the demo-program'
        ShortCut = 32856
        OnClick = miExitClick
      end
    end
    object miOptions: TMenuItem
      Caption = 'Options'
      object miDefaultMaskSettings: TMenuItem
        Caption = 'Default &Mask Settings'
        Hint = 'Sets the default mask set'
        OnClick = miDefaultMaskSettingsClick
      end
      object miShowMaskButtons: TMenuItem
        Caption = 'Show Mask &Buttons'
        Hint = 'Shows the edit mask buttons'
        OnClick = miShowMaskButtonsClick
      end
    end
    object miAbout: TMenuItem
      Caption = '&About this demo'
      Hint = 'Displays the brief description of the current demo features'
      OnClick = miAboutClick
    end
  end
  object LookAndFeelController: TcxLookAndFeelController
    NativeStyle = True
    Left = 352
    Top = 8
  end
end