object RecordViewDemoForm: TRecordViewDemoForm
  Left = 184
  Top = 67
  BorderStyle = bsDialog
  Caption = 'Record View Demonstration'
  ClientHeight = 386
  ClientWidth = 611
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 9
    Top = 8
    Width = 552
    Height = 13
    Caption = 
      'Change the record view options below, and then click the hand ic' +
      'on in the grid to see the results'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object wwDBGrid1: TwwDBGrid
    Left = 8
    Top = 24
    Width = 593
    Height = 194
    ControlType.Strings = (
      'Buyer;CustomEdit;wwDBComboBox1;F'
      'Zip;CustomEdit;wwDBLookupCombo1;F'
      'RichEdit;RichEdit;wwDBRichEdit1;F')
    Selected.Strings = (
      'Customer No'#9'10'#9'Customer No'#9#9
      'Buyer'#9'7'#9'Buyer'#9#9
      'Company Name'#9'25'#9'Company Name'#9#9
      'Zip'#9'10'#9'Zip'#9#9
      'First Name'#9'21'#9'First Name'#9#9
      'Last Name'#9'25'#9'Last Name'#9#9
      'Street'#9'60'#9'Street'#9#9
      'City'#9'25'#9'City'#9#9
      'State'#9'25'#9'State'#9#9
      'First Contact Date'#9'14'#9'First Contact Date'#9#9
      'Phone Number'#9'20'#9'Phone Number'#9#9
      'Information'#9'10'#9'Information'#9#9
      'Requested Demo'#9'14'#9'Requested Demo'#9#9
      'Logical'#9'6'#9'Logical'#9#9)
    IniAttributes.FileName = 'delphi32.ini'
    IniAttributes.SectionName = 'RecordViewDemoFormwwDBGrid1'
    IniAttributes.Delimiter = ';;'
    IniAttributes.UnicodeIniFile = False
    TitleColor = clBtnFace
    FixedCols = 0
    ShowHorzScrollBar = True
    DataSource = wwDataSource1
    TabOrder = 0
    TitleAlignment = taLeftJustify
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    TitleLines = 1
    TitleButtons = False
    object wwDBGrid1IButton: TwwIButton
      Left = 0
      Top = 0
      Width = 25
      Height = 20
      AllowAllUp = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000010000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333FFF333333333333000333333333
        3333777FFF3FFFFF33330B000300000333337F777F777773F333000E00BFBFB0
        3333777F773333F7F333000E0BFBF0003333777F7F3337773F33000E0FBFBFBF
        0333777F7F3333FF7FFF000E0BFBF0000003777F7F3337777773000E0FBFBFBF
        BFB0777F7F33FFFFFFF7000E0BF000000003777F7FF777777773000000BFB033
        33337777773FF733333333333300033333333333337773333333333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
      OnClick = wwDBGrid1IButtonClick
    end
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 232
    Width = 593
    Height = 145
    Caption = 'Record View Options'
    TabOrder = 1
    object RecordViewStyle: TRadioGroup
      Left = 16
      Top = 24
      Width = 217
      Height = 41
      Caption = 'Show Fields'
      Columns = 2
      ItemIndex = 0
      Items.Strings = (
        'Horizontally'
        'Vertically')
      TabOrder = 0
    end
    object DialogStyle: TRadioGroup
      Left = 16
      Top = 80
      Width = 217
      Height = 41
      Hint = 
        'Non-modal allows you to simultaneously show the record view and ' +
        'access the calling form'
      Caption = 'Dialog Style'
      Columns = 2
      ItemIndex = 0
      Items.Strings = (
        'Modal'
        'Non-Modal')
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
    end
    object EmbedControls: TCheckBox
      Left = 280
      Top = 32
      Width = 209
      Height = 17
      Caption = 'Show Embedded Controls'
      Checked = True
      State = cbChecked
      TabOrder = 2
    end
    object CustomMainMenu: TCheckBox
      Left = 280
      Top = 56
      Width = 193
      Height = 17
      Caption = 'Show Custom Main Menu'
      Checked = True
      State = cbChecked
      TabOrder = 3
    end
    object ShowNavigator: TCheckBox
      Left = 280
      Top = 80
      Width = 193
      Height = 17
      Caption = 'Show Navigator'
      Checked = True
      State = cbChecked
      TabOrder = 4
    end
    object ShowOKCancel: TCheckBox
      Left = 280
      Top = 104
      Width = 193
      Height = 17
      Caption = 'Show OK and Cancel Buttons'
      Checked = True
      State = cbChecked
      TabOrder = 5
    end
  end
  object wwDBComboBox1: TwwDBComboBox
    Left = 264
    Top = 77
    Width = 121
    Height = 21
    ShowButton = True
    Style = csDropDown
    MapList = False
    AllowClearKey = False
    DataField = 'Buyer'
    DataSource = wwDataSource1
    DropDownCount = 8
    HistoryList.FileName = 'delphi32.ini.ini'
    ItemHeight = 0
    Items.Strings = (
      'No'
      'Yes')
    ItemIndex = 1
    Picture.PictureMask = '{Yes,No}'
    Sorted = False
    TabOrder = 2
    UnboundDataType = wwDefault
    Visible = False
  end
  object wwDBLookupCombo1: TwwDBLookupCombo
    Left = 264
    Top = 48
    Width = 121
    Height = 21
    DropDownAlignment = taLeftJustify
    DataField = 'Zip'
    DataSource = wwDataSource1
    LookupTable = ClientDataSet2
    LookupField = 'ZIP'
    TabOrder = 3
    Visible = False
    AutoDropDown = False
    ShowButton = True
    PreciseEditRegion = False
    AllowClearKey = False
    ShowMatchText = True
  end
  object wwDBRichEdit1: TwwDBRichEdit
    Left = 264
    Top = 104
    Width = 185
    Height = 89
    AutoURLDetect = False
    DataField = 'RichEdit'
    DataSource = wwDataSource1
    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 3'
    TabOrder = 4
    Visible = False
    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
  end
  object wwDataSource1: TDataSource
    DataSet = ClientDataSet1
    Left = 56
    Top = 48
  end
  object wwRecordViewDialog1: TwwRecordViewDialog
    ControlType.Strings = (
      'RichEdit;RichEdit;wwDBRichEdit1;F'
      'Zip;CustomEdit;wwDBLookupCombo1;F'
      'Buyer;CustomEdit;wwDBComboBox1;F')
    DataSource = wwDataSource1
    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, rvoStayOnTopForm, rvoConfirmCancel, rvoCloseIsCancel, rvoMaximizeMemoWidth, rvoUseDateTimePicker]
    ControlOptions = []
    LabelFont.Charset = DEFAULT_CHARSET
    LabelFont.Color = clWindowText
    LabelFont.Height = -11
    LabelFont.Name = 'MS Sans Serif'
    LabelFont.Style = [fsBold]
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Caption = 'Record View'
    Menu = RecordViewMenu
    Selected.Strings = (
      'Customer No'#9'10'#9'Customer No'
      'Buyer'#9'7'#9'Buyer'#9'No'
      'Company Name'#9'25'#9'Company Name'#9'No'
      '<New Line>'
      'First Name'#9'21'#9'First Name'
      'Last Name'#9'25'#9'Last Name'#9'No'
      '<New Line>'
      'Street'#9'60'#9'Street'
      '<New Line>'
      'Zip'#9'10'#9'Zip'
      'City'#9'25'#9'City'#9'No'
      'State'#9'25'#9'State'#9'No'
      '<New Line>'
      'First Contact Date'#9'10'#9'First Contact Date'#9'F'
      'Phone Number'#9'20'#9'Phone Number'#9'No'
      'RichEdit'#9'10'#9'RichEdit'
      'Information'#9'10'#9'Information'#9'No'
      'Requested Demo'#9'14'#9'Requested Demo'#9'No'
      'Logical'#9'6'#9'Logical'#9'No')
    NavigatorFlat = True
    Left = 120
    Top = 48
  end
  object RecordViewMenu: TMainMenu
    Left = 392
    Top = 48
    object First1: TMenuItem
      Caption = 'File'
      object Exit1: TMenuItem
        Caption = 'Ex&it'
        OnClick = Exit1Click
      end
    end
    object Edit1: TMenuItem
      Caption = 'Edit'
      OnClick = Edit1Click
      object Insert1: TMenuItem
        Caption = 'Insert'
        OnClick = Insert1Click
      end
      object Cancel1: TMenuItem
        Caption = 'Cancel'
        OnClick = Cancel1Click
      end
      object Post1: TMenuItem
        Caption = 'Post'
        OnClick = Post1Click
      end
    end
    object Record1: TMenuItem
      Caption = 'Record'
      object First2: TMenuItem
        Caption = 'First'
        OnClick = First2Click
      end
      object Prior1: TMenuItem
        Caption = 'Prior'
        OnClick = Prior1Click
      end
      object Next1: TMenuItem
        Caption = 'Next'
        OnClick = Next1Click
      end
      object Last1: TMenuItem
        Caption = 'Last'
        OnClick = Last1Click
      end
    end
  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 = 48
    Data = {
      [encoded data, 34368 characters]
      4C0532343331318D1C0B00083332342D33323432024E6F}
  end
  object ClientDataSet2: TClientDataSet
    Active = True
    Aggregates = <>
    AggregatesActive = False
    Constraints = <>
    DisableStringTrim = False
    FieldDefs = <
      item
        Name = 'ZIP'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 10
      end
      item
        Name = 'CITY'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 25
      end
      item
        Name = 'STATE'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 2
      end>
    IndexDefs = <>
    FetchOnDemand = True
    ObjectView = True
    Params = <>
    ReadOnly = False
    StoreDefs = False
    Left = 208
    Top = 120
    Data = {
      [encoded data, 300608 characters]
      02414B0404053939393939024341}
  end
end
