object RecordViewCustomForm: TRecordViewCustomForm
  Left = 242
  Top = 155
  Caption = 'RecordView - New custom controls'
  ClientHeight = 287
  ClientWidth = 401
  Color = clAqua
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object SpeedButton2: TSpeedButton
    Left = 120
    Top = 248
    Width = 161
    Height = 25
    Caption = 'Create RecordView Dialog'
    OnClick = SpeedButton2Click
  end
  object wwDBRichEdit1: TwwDBRichEdit
    Left = 8
    Top = 16
    Width = 385
    Height = 225
    AutoURLDetect = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    GutterWidth = 3
    HideSelection = False
    ParentFont = False
    PrintJobName = 'Delphi 5'
    TabOrder = 3
    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 = {
      FB0000007B5C727466315C616E73695C616E7369637067313235325C64656666
      305C6465666C616E67313033337B5C666F6E7474626C7B5C66305C666E696C5C
      6663686172736574302054696D6573204E657720526F6D616E3B7D7D0D0A5C76
      6965776B696E64345C7563315C706172645C66305C6673323220426F74682074
      6865207265636F7264766965772070616E656C20616E64207265636F72647669
      6577206469616C6F6720636F6D706F6E656E7473206E6F7720737570706F7274
      20746865206E657720496E666F506F77657220726164696F67726F757020616E
      6420636865636B626F7820636F6E74726F6C732E205C7061720D0A7D0D0A00}
  end
  object wwRadioGroup4: TwwRadioGroup
    Left = 160
    Top = 8
    Width = 161
    Height = 21
    DisableThemes = False
    Frame.Enabled = True
    Frame.Transparent = True
    Frame.FocusStyle = efsFrameSunken
    ShowBorder = False
    ShowGroupCaption = False
    Caption = 'wwRadioGroup4'
    Columns = 2
    DataField = 'SEX'
    DataSource = DataSource1
    Items.Strings = (
      'Male'
      'Female')
    TabOrder = 0
    Visible = False
  end
  object wwCheckBox1: TwwCheckBox
    Left = 152
    Top = 32
    Width = 81
    Height = 21
    DisableThemes = False
    AlwaysTransparent = False
    Frame.Enabled = True
    Frame.Transparent = True
    Frame.FocusStyle = efsFrameSunken
    DynamicCaption = True
    ValueChecked = 'True'
    ValueUnchecked = 'False'
    DisplayValueChecked = 'True'
    DisplayValueUnchecked = 'False'
    NullAndBlankState = cbUnchecked
    Caption = 'False'
    Color = clWindow
    DataField = 'MARRIED'
    DataSource = DataSource1
    ParentColor = False
    TabOrder = 1
    Visible = False
  end
  object wwRadioGroup1: TwwRadioGroup
    Left = 29
    Top = 28
    Width = 185
    Height = 21
    DisableThemes = False
    Frame.Enabled = True
    Frame.Transparent = True
    ButtonFrame.Enabled = True
    ButtonFrame.FocusBorders = [efLeftBorder, efTopBorder, efRightBorder, efBottomBorder]
    GlyphImages = ImageList6
    ShowBorder = False
    ShowGroupCaption = False
    ShowFocusRect = False
    Caption = 'PAYMETHOD'
    Color = clWindow
    Columns = 4
    DataField = 'PAYMETHOD'
    DataSource = DataSource1
    Items.Strings = (
      ' '
      ' '
      ' '
      ' ')
    ParentColor = False
    TabOrder = 2
    Values.Strings = (
      '1'
      '2'
      '3'
      '4')
    Visible = False
  end
  object DataSource1: TDataSource
    DataSet = ClientDataSet1
    Left = 8
    Top = 8
  end
  object ImageList6: TImageList
    Width = 22
    Left = 120
    Top = 8
    Bitmap = {
      [encoded data, 23616 characters]
      000000000000}
  end
  object wwRecordViewDialog1: TwwRecordViewDialog
    ControlType.Strings = (
      'PAYMETHOD;CustomEdit;wwRadioGroup1;F'
      'MARRIED;CustomEdit;wwCheckBox1;F'
      'SEX;CustomEdit;wwRadioGroup4;F')
    EditFrame.Enabled = True
    EditFrame.Transparent = True
    EditFrame.FocusStyle = efsFrameSunken
    DataSource = DataSource1
    FormPosition.Left = 0
    FormPosition.Top = 0
    FormPosition.Width = 0
    FormPosition.Height = 0
    NavigatorButtons = [nbsFirst, nbsPrior, nbsNext, nbsLast, nbsInsert, nbsDelete, nbsEdit, nbsPost, nbsCancel, nbsRefresh, nbsPriorPage, nbsNextPage, nbsSaveBookmark, nbsRestoreBookmark]
    Style = rvsHorizontal
    Options = [rvoUseCustomControls, rvoShortenEditBox, rvoModalForm, rvoConfirmCancel, rvoCloseIsCancel, rvoMaximizeMemoWidth, rvoUseDateTimePicker, rvoLabelsBeneathControl]
    ControlOptions = []
    LabelFont.Charset = ANSI_CHARSET
    LabelFont.Color = clGray
    LabelFont.Height = -11
    LabelFont.Name = 'Arial'
    LabelFont.Style = []
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    OnAfterCreateControl = wwRecordViewDialog1AfterCreateControl
    Caption = 'Record View'
    Selected.Strings = (
      'ACCT_NBR'#9'10'#9'Account #'#9#9
      'FIRST_NAME'#9'7'#9'First'#9#9
      'LAST_NAME'#9'5'#9'Last'#9#9
      'PAYMETHOD'#9'28'#9'Payment Method'#9'F'
      'BALANCEDUE'#9'10'#9'Balance Due'#9'F'
      'SEX'#9'15'#9'Sex'#9#9
      'MARRIED'#9'9'#9'Married?'#9#9
      'CITY'#9'9'#9'City'#9'F')
    NavigatorFlat = True
    Left = 80
    Top = 8
  end
  object ClientDataSet1: TClientDataSet
    Active = True
    Aggregates = <>
    AggregatesActive = False
    Constraints = <>
    DisableStringTrim = False
    FieldDefs = <
      item
        Name = 'LAST_NAME'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 20
      end
      item
        Name = 'FIRST_NAME'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 20
      end
      item
        Name = 'ACCT_NBR'
        Attributes = [faUnNamed]
        DataType = ftFloat
      end
      item
        Name = 'ADDRESS_1'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 20
      end
      item
        Name = 'CITY'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 20
      end
      item
        Name = 'STATE'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 2
      end
      item
        Name = 'ZIP'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 5
      end
      item
        Name = 'TELEPHONE'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 12
      end
      item
        Name = 'DATE_OPEN'
        Attributes = [faUnNamed]
        DataType = ftDate
      end
      item
        Name = 'SS_NUMBER'
        Attributes = [faUnNamed]
        DataType = ftFloat
      end
      item
        Name = 'PICTURE'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 15
      end
      item
        Name = 'BIRTH_DATE'
        Attributes = [faUnNamed]
        DataType = ftDate
      end
      item
        Name = 'RISK_LEVEL'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 8
      end
      item
        Name = 'OCCUPATION'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 20
      end
      item
        Name = 'OBJECTIVES'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 10
      end
      item
        Name = 'INTERESTS'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 120
      end
      item
        Name = 'IMAGE'
        Attributes = [faUnNamed]
        DataType = ftTypedBinary
        Size = 1
      end
      item
        Name = 'RINTERESTS'
        Attributes = [faUnNamed]
        DataType = ftTypedBinary
        Size = 1
      end
      item
        Name = 'SEX'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 6
      end
      item
        Name = 'EDUCATION'
        Attributes = [faUnNamed]
        DataType = ftSmallint
      end
      item
        Name = 'CREDRATING'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 1
      end
      item
        Name = 'MARRIED'
        Attributes = [faUnNamed]
        DataType = ftBoolean
      end
      item
        Name = 'PAYMETHOD'
        Attributes = [faUnNamed]
        DataType = ftSmallint
      end
      item
        Name = 'BALANCEDUE'
        Attributes = [faUnNamed]
        DataType = ftFloat
      end>
    IndexDefs = <>
    FetchOnDemand = True
    ObjectView = True
    Params = <>
    ReadOnly = False
    StoreDefs = False
    Left = 40
    Top = 8
    Data = {
      [encoded data, 222208 characters]
      0D0A00044D616C6503000141000002000000000000002640}
  end
end
