object PictureForm: TPictureForm
  Left = 225
  Top = 116
  BorderStyle = bsDialog
  Caption = 'Picture Masks'
  ClientHeight = 373
  ClientWidth = 403
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  OldCreateOrder = True
  Position = poScreenCenter
  ShowHint = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 0
    Top = 353
    Width = 403
    Height = 20
    Align = alBottom
  end
  object PictureLabel: TLabel
    Left = 6
    Top = 355
    Width = 3
    Height = 13
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object PageControl1: TPageControl
    Left = 8
    Top = 141
    Width = 387
    Height = 206
    ActivePage = TabSheet1
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'Unbound'
      ExplicitLeft = 0
      ExplicitTop = 0
      ExplicitWidth = 0
      ExplicitHeight = 0
      object Label4: TLabel
        Left = 8
        Top = 14
        Width = 78
        Height = 13
        Caption = 'U.S. Phone #'
        Transparent = True
      end
      object Label7: TLabel
        Left = 144
        Top = 14
        Width = 103
        Height = 13
        Caption = 'Capitalized Words'
      end
      object Label3: TLabel
        Left = 8
        Top = 62
        Width = 52
        Height = 13
        Caption = 'Zip Code'
      end
      object Label6: TLabel
        Left = 144
        Top = 62
        Width = 105
        Height = 13
        Caption = 'Capital First Letter'
      end
      object Label5: TLabel
        Left = 144
        Top = 108
        Width = 61
        Height = 13
        Caption = 'Timestamp'
      end
      object Label1: TLabel
        Left = 8
        Top = 106
        Width = 30
        Height = 13
        Caption = 'Color'
      end
      object CapitalizedWordsEdit: TwwDBEdit
        Left = 144
        Top = 28
        Width = 113
        Height = 20
        AutoSize = False
        Picture.PictureMask = '*[&[*?]*[{#, ,.,;,,;;,:,;[,;],(,),}]]'
        TabOrder = 0
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
        OnEnter = wwEditsEnter
        OnExit = wwEditsExit
        OnCheckValue = EditCheckValue
      end
      object PhoneEdit: TwwDBEdit
        Left = 8
        Top = 28
        Width = 113
        Height = 20
        AutoSize = False
        Picture.PictureMask = '*3{#}-*4{#},{(*3{#}) ,*3{#}-}*3{#}-*4{#}'
        TabOrder = 1
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
        OnEnter = wwEditsEnter
        OnExit = wwEditsExit
        OnCheckValue = EditCheckValue
      end
      object ZipEdit: TwwDBEdit
        Left = 8
        Top = 77
        Width = 113
        Height = 20
        AutoSize = False
        Picture.PictureMask = '*5{#}[-*4#]'
        Picture.AllowInvalidExit = True
        TabOrder = 2
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
        OnEnter = wwEditsEnter
        OnExit = wwEditsExit
        OnCheckValue = EditCheckValue
      end
      object CapitalFirstEdit: TwwDBEdit
        Left = 144
        Top = 77
        Width = 113
        Height = 20
        AutoSize = False
        Picture.PictureMask = '&*?'
        TabOrder = 3
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
        OnEnter = wwEditsEnter
        OnExit = wwEditsExit
        OnCheckValue = EditCheckValue
      end
      object TimeStampEdit: TwwDBEdit
        Left = 144
        Top = 125
        Width = 113
        Height = 20
        AutoSize = False
        Picture.PictureMask = '#[#]:#[#]:#[#] {AM,PM};, #[#]/#[#]/#[#]'
        TabOrder = 4
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
        OnEnter = wwEditsEnter
        OnExit = wwEditsExit
        OnCheckValue = EditCheckValue
      end
      object ColorEdit: TwwDBEdit
        Left = 7
        Top = 127
        Width = 113
        Height = 20
        AutoSize = False
        Picture.PictureMask = '{Red,Gr{ay,een},B{l{ack,ue},rown},White,Yellow}'
        TabOrder = 5
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
        OnEnter = wwEditsEnter
        OnExit = wwEditsExit
        OnCheckValue = EditCheckValue
      end
      object ResetButton: TButton
        Left = 280
        Top = 26
        Width = 89
        Height = 25
        Caption = 'Clear Values'
        TabOrder = 6
        OnClick = ResetButtonClick
        OnEnter = ResetButtonEnter
        OnExit = wwEditsExit
      end
      object AutoFillCheckbox: TCheckBox
        Left = 295
        Top = 104
        Width = 81
        Height = 17
        Caption = 'Auto Fill'
        Checked = True
        State = cbChecked
        TabOrder = 7
        OnClick = AutoFillCheckboxClick
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Data Bound'
      ImageIndex = 1
      ExplicitLeft = 0
      ExplicitTop = 0
      ExplicitWidth = 0
      ExplicitHeight = 0
      object Label2: TLabel
        Left = 8
        Top = 8
        Width = 52
        Height = 13
        Caption = 'Zip Code'
      end
      object Label8: TLabel
        Left = 8
        Top = 56
        Width = 28
        Height = 13
        Caption = 'Date'
      end
      object Label9: TLabel
        Left = 8
        Top = 104
        Width = 37
        Height = 13
        Caption = 'Phone'
      end
      object Zip_DBEdit: TwwDBEdit
        Left = 8
        Top = 23
        Width = 137
        Height = 20
        AutoSize = False
        DataField = 'Zip'
        DataSource = wwDataSource1
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        Picture.PictureMask = '*5{#}[-*4#]'
        TabOrder = 0
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
        OnEnter = wwEditsEnter
        OnExit = wwEditsExit
        OnCheckValue = EditCheckValue
      end
      object DateDBEdit: TwwDBSpinEdit
        Left = 8
        Top = 71
        Width = 137
        Height = 20
        Increment = 1.000000000000000000
        Value = 34642.000000000000000000
        AutoSize = False
        DataField = 'First Contact Date'
        DataSource = wwDataSource1
        Picture.PictureMask = '#[#]/#[#]/##[##]'
        TabOrder = 1
        UnboundDataType = wwDefault
        OnCheckValue = EditCheckValue
        OnEnter = wwEditsEnter
        OnExit = wwEditsExit
      end
      object PhonDBEdit: TwwDBEdit
        Left = 8
        Top = 119
        Width = 137
        Height = 20
        AutoSize = False
        DataField = 'Phone Number'
        DataSource = wwDataSource1
        Picture.PictureMask = '*3{#}-*4{#},{(*3{#}) ,*3{#}-}*3{#}-*4{#}'
        TabOrder = 2
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
        OnEnter = wwEditsEnter
        OnExit = wwEditsExit
        OnCheckValue = EditCheckValue
      end
      object AutoFillBound: TCheckBox
        Left = 184
        Top = 85
        Width = 169
        Height = 17
        Caption = 'Auto Fill Using Mask'
        Checked = True
        State = cbChecked
        TabOrder = 3
        OnClick = AutoFillCheckboxClick
      end
      object DBNavigator1: TDBNavigator
        Left = 176
        Top = 113
        Width = 184
        Height = 28
        DataSource = wwDataSource1
        VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbPost, nbCancel]
        TabOrder = 4
      end
      object RadioGroup1: TRadioGroup
        Left = 179
        Top = 14
        Width = 177
        Height = 59
        Caption = 'Use Picture Mask...'
        ItemIndex = 0
        Items.Strings = (
          'While Editing'
          'Only When Exiting Field')
        TabOrder = 5
        OnClick = RadioGroup1Click
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'Regular Expression Masks'
      ImageIndex = 2
      ExplicitLeft = 0
      ExplicitTop = 0
      ExplicitWidth = 0
      ExplicitHeight = 0
      object Label10: TLabel
        Left = 8
        Top = 14
        Width = 309
        Height = 13
        Caption = 'Credit Card (Amex, Visa, Mastercard, Discover Format)'
        Transparent = True
      end
      object Label11: TLabel
        Left = 8
        Top = 62
        Width = 31
        Height = 13
        Caption = 'Email'
      end
      object Label12: TLabel
        Left = 8
        Top = 110
        Width = 62
        Height = 13
        Caption = 'IP Address'
      end
      object wwDBEdit1: TwwDBEdit
        Left = 8
        Top = 31
        Width = 267
        Height = 20
        AutoSize = False
        RegexMask.Mask = 
          '^(?:4\d{3}|5[1-5]\d{2}|6011|(?:3[68]\d{2})|(?:30[0-5]\d)|3[47]\d' +
          '{2})([- ]?)((?:\d{6}\1\d{4})|((?:\d{6}\1\d{5})|(?:\d{4}\1\d{4}\1' +
          '\d{4})))$'
        RegexMask.ErrorMessage = 'Invalid Credit Card Format'
        TabOrder = 0
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
        OnEnter = wwEditsEnter
        OnExit = wwEditsExit
        OnCheckValue = EditCheckValue
      end
      object wwDBEdit2: TwwDBEdit
        Left = 8
        Top = 77
        Width = 113
        Height = 20
        AutoSize = False
        RegexMask.Mask = 
          '^([0-9a-zA-Z]([-.\w]*[0-9a-zA-Z])*@([0-9a-zA-Z][-\w]*[0-9a-zA-Z]' +
          '\.)+[a-zA-Z]{2,9})$'
        RegexMask.ErrorMessage = 'Invalid Email Format'
        TabOrder = 1
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
        OnEnter = wwEditsEnter
        OnExit = wwEditsExit
        OnCheckValue = EditCheckValue
      end
      object wwDBEdit3: TwwDBEdit
        Left = 8
        Top = 125
        Width = 113
        Height = 20
        AutoSize = False
        RegexMask.Mask = '^(?:(?:25[0-5]|2[0-4]\d|[01]\d\d|\d?\d)(?(?=\.?\d)\.)){4}$'
        RegexMask.ErrorMessage = 'Invalid IP Address'
        TabOrder = 2
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
        OnEnter = wwEditsEnter
        OnExit = wwEditsExit
        OnCheckValue = EditCheckValue
      end
    end
  end
  object wwDBRichEdit1: TwwDBRichEdit
    Left = 8
    Top = 8
    Width = 387
    Height = 127
    AutoURLDetect = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    GutterWidth = 3
    HideSelection = False
    ParentFont = False
    PrintJobName = 'Prjdemo - CodeGear Delphi for Microsoft Windows - Pictures'
    TabOrder = 1
    EditorOptions = [reoShowSaveExit, reoShowPrint, reoShowPrintPreview, reoShowPageSetup, reoShowFormatBar, reoShowToolBar, reoShowStatusBar, reoShowHints, reoShowRuler, reoShowInsertObject, reoCloseOnEscape, reoFlatButtons, reoShowSpellCheck, reoShowMainMenuIcons, reoShowZoomCombo]
    EditorCaption = 'Edit Rich Text'
    EditorPosition.Left = 0
    EditorPosition.Top = 0
    EditorPosition.Width = 0
    EditorPosition.Height = 0
    MeasurementUnits = muInches
    PrintMargins.Top = 1.000000000000000000
    PrintMargins.Bottom = 1.000000000000000000
    PrintMargins.Left = 1.000000000000000000
    PrintMargins.Right = 1.000000000000000000
    PrintHeader.VertMargin = 0.500000000000000000
    PrintHeader.Font.Charset = DEFAULT_CHARSET
    PrintHeader.Font.Color = clWindowText
    PrintHeader.Font.Height = -11
    PrintHeader.Font.Name = 'Tahoma'
    PrintHeader.Font.Style = []
    PrintFooter.VertMargin = 0.500000000000000000
    PrintFooter.Font.Charset = DEFAULT_CHARSET
    PrintFooter.Font.Color = clWindowText
    PrintFooter.Font.Height = -11
    PrintFooter.Font.Name = 'Tahoma'
    PrintFooter.Font.Style = []
    RichEditVersion = 2
    Data = {
      D70200007B5C727466315C616E73695C616E7369637067313235325C64656666
      305C6465666C616E67313033337B5C666F6E7474626C7B5C66305C666E696C5C
      6663686172736574302054696D6573204E657720526F6D616E3B7D7D0D0A7B5C
      636F6C6F7274626C203B5C726564305C677265656E305C626C7565303B7D0D0A
      5C766965776B696E64345C7563315C706172645C66305C6673323020496E666F
      506F7765722067697665732044656C7068692070726F6772616D6D6572732074
      686520706F77657220746F20646566696E652061206461746120656E74727920
      74656D706C6174652C206F72206D61736B2C20666F72207468652076616C7565
      7320746861742063616E20626520656E746572656420696E746F206120666965
      6C6420646973706C61796564206F6E207468652073637265656E2E2054686520
      75736573206F662050696374757265204D61736B732061726520616C6D6F7374
      206C696D69746C6573732C20616E6420676F20666172206265796F6E64207768
      61742044656C7068695C7271756F746520732065646974206D61736B73206361
      6E20646F2E2020496620796F752077616E7420746F2066696C6C207468652044
      617465206669656C642077697468207468652063757272656E74206461746520
      6279207072657373696E67207468652073706163656261722C207468656E2075
      6E636865636B20746865204175746F2046696C6C205573696E67204D61736B20
      636865636B626F782E5C7061720D0A5C7061720D0A54686520666F6C6C6F7769
      6E67206578616D706C652077696C6C20676976652063656C6C73206265696E67
      2065646974656420612079656C6C6F77206261636B67726F756E64207768656E
      657665722074686520656469746564207465787420646F6573206E6F74207361
      7469736679207468652070696374757265206D61736B20636F6E73747261696E
      74732E20205C7061720D0A5C6366315C625C7061720D0A7D0D0A00}
  end
  object wwDataSource1: TDataSource
    DataSet = ClientDataSet1
    Left = 56
    Top = 24
  end
  object ClientDataSet1: TClientDataSet
    Active = True
    Aggregates = <>
    AggregatesActive = False
    Constraints = <>
    DisableStringTrim = False
    FieldDefs = <
      item
        Name = 'Customer No'
        Attributes = [faUnNamed]
        DataType = ftInteger
      end
      item
        Name = 'Buyer'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 3
      end
      item
        Name = 'Company Name'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 40
      end
      item
        Name = 'First Name'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 25
      end
      item
        Name = 'Last Name'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 25
      end
      item
        Name = 'Street'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 60
      end
      item
        Name = 'City'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 25
      end
      item
        Name = 'State'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 25
      end
      item
        Name = 'Zip'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 10
      end
      item
        Name = 'First Contact Date'
        Attributes = [faUnNamed]
        DataType = ftDate
      end
      item
        Name = 'Phone Number'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 20
      end
      item
        Name = 'Information'
        Attributes = [faUnNamed]
        DataType = ftMemo
        Size = 80
      end
      item
        Name = 'RichEdit'
        Attributes = [faUnNamed]
        DataType = ftBlob
        Size = 80
      end
      item
        Name = 'Requested Demo'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 3
      end
      item
        Name = 'Logical'
        Attributes = [faUnNamed]
        DataType = ftBoolean
      end>
    IndexDefs = <>
    FetchOnDemand = True
    ObjectView = True
    Params = <>
    ReadOnly = False
    StoreDefs = False
    Left = 88
    Top = 24
    Data = {
      [encoded data, 34368 characters]
      4C0532343331318D1C0B00083332342D33323432024E6F}
  end
  object ClientDataSet2: TClientDataSet
    Active = True
    Aggregates = <>
    AggregatesActive = False
    Constraints = <>
    DisableStringTrim = False
    FieldDefs = <
      item
        Name = 'Mask'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 255
      end
      item
        Name = 'Desc'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 255
      end>
    IndexDefs = <>
    FetchOnDemand = True
    ObjectView = True
    Params = <>
    ReadOnly = False
    StoreDefs = False
    Left = 80
    Top = 72
    Data = {
      5F0500009619E0BD010000001800000002000D00000003000000FB00044D6173
      6B020049001000010005574944544802000200FF000444657363020049001000
      010005574944544802000200FF0001000A4348414E47455F4C4F470400820027
      0000000100000000000000040000000200000000000000040000000300000000
      0000000400000004000000000000000400000005000000000000000400000006
      0000000000000004000000070000000000000004000000080000000000000004
      0000000900000000000000040000000A00000000000000040000000B00000000
      000000040000000C00000000000000040000000D000000000000000400000004
      000300232A231700556E7369676E656420696E7465676572206E756D62657204
      001000235B235D2F235B235D2F23235B23235D4D00552E532E20646174657320
      73657061726174656420627920736C6173682E2020446174657320616E64206D
      6F6E7468732063616E206265206569746865722031206F722032206469676974
      732E04002700235B235D3A235B235D3A235B235D207B414D2C504D7D3B2C2023
      5B235D2F235B235D2F235B235D150054696D657374616D7020776974686F7574
      2045726104000700235B235D5B235D1B004E756D65726963206F662033206469
      67697473206F72206C65737304000300262A3F21004C6574746572732C206669
      727374206C6574746572206361706974616C697A6564040028002A337B237D2D
      2A347B237D2C7B282A337B237D29202C2A337B237D2D7D2A337B237D2D2A347B
      237D2700552E532E2070686F6E65206E756D626572202D206F7074696F6E616C
      206172656120636F64652E04000B002A357B237D5B2D2A34235D2C0045697468
      6572206120352D6469676974206F72206120392D646967697420552E532E207A
      697020636F64652E040025002A5B265B2A3F5D2A5B7B232C202C2E2C3B2C2C3B
      3B2C3A2C3B5B2C3B5D2C282C292C7D5D5D11004361706974616C697A65642077
      6F72647304001E007B282A337B237D29202C2A337B237D2D2C207D2A337B237D
      2D2A347B237D2600552E532E2070686F6E65206E756D626572202D2072657175
      69726564206172656120636F646504002F007B5265642C47727B61792C65656E
      7D2C427B6C7B61636B2C75657D2C726F776E7D2C57686974652C59656C6C6F77
      7D2A00436F6C6F72204C6973742028737570706F7274696E67206175746F6D61
      7469632066696C6C2D696E292E040008007B5965732C4E6F7D10004569746865
      7220596573206F72204E6F0400B7007B7B7B235B235D5B235D7B7B3B2C232323
      2A5B3B2C2323235D7D2C2A237D5B2E2A235D7D2C2E232A237D5B455B5B2B2C2D
      5D235B235D5B235D5D5D2C287B7B235B235D5B235D7B7B3B2C2323232A5B3B2C
      2323235D7D2C2A237D5B2E2A235D7D2C2E232A237D5B455B5B2B2C2D5D235B23
      5D5B235D5D5D292C5B2D5D7B7B235B235D5B235D7B7B3B2C2323232A5B3B2C23
      23235D7D2C2A237D5B2E2A235D7D2C2E232A237D5B455B5B2B2C2D5D235B235D
      5B235D5D5D7D1500466C6F6174696E6720706F696E74206E756D6265720400BD
      007B7B7B235B235D5B235D7B7B3B2E2323232A5B3B2E2323235D7D2C2A237D5B
      3B2C2A235D7D2C3B2C232A237D5B455B5B2B2C2D5D235B235D5B235D5D5D2C28
      7B7B235B235D5B235D7B7B3B2E2323232A5B3B2E2323235D7D2C2A237D5B3B2C
      2A235D7D2C3B2C232A237D5B455B5B2B2C2D5D235B235D5B235D5D5D292C5B2D
      5D7B7B235B235D5B235D7B7B3B2E2323232A5B3B2E2323235D7D2C2A237D5B3B
      2C2A235D7D2C3B2C232A237D5B455B5B2B2C2D5D235B235D5B235D5D5D7D2300
      496E7465726E6174696F6E616C20666C6F6174696E6720706F696E74206E756D
      626572}
  end
end
