object GridControlsForm: TGridControlsForm
  Left = 227
  Top = 135
  Caption = 'InfoPower in Action!'
  ClientHeight = 351
  ClientWidth = 611
  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 wwDBGrid1: TwwDBGrid
    Left = 0
    Top = 0
    Width = 611
    Height = 351
    LineStyle = gls3D
    ControlType.Strings = (
      'selected;CheckBox;Yes;No'
      'EDUCATION;CustomEdit;wwRadioGroup1;F'
      'SEX;CustomEdit;wwRadioGroup2;F'
      'MARRIED;CustomEdit;wwButton1;T'
      'RINTERESTS;RichEdit;wwDBRichEdit2;T'
      'IMAGE;CustomEdit;DBImage2;T'
      'PAYMETHOD;CustomEdit;wwRadioGroup2;F'
      'details;CustomEdit;wwDataInspector1;T')
    Selected.Strings = (
      'ACCT_NBR'#9'6'#9'Account #'#9'F'
      'MARRIED'#9'7'#9'Details'#9'F'
      'FIRST_NAME'#9'5'#9'First'#9'F'#9'Name'
      'LAST_NAME'#9'6'#9'Last'#9'F'#9'Name'
      'RINTERESTS'#9'12'#9'Interests/Hobbies'#9'F'
      'details'#9'24'#9'Shipping Address'#9'F'#9'Billing Information'
      'PAYMETHOD'#9'17'#9'Payment Method'#9'F'#9'Billing Information'
      'IMAGE'#9'11'#9'Photo'#9'F')
    IniAttributes.FileName = 'delphi32.ini.ini'
    IniAttributes.Delimiter = ';;'
    IniAttributes.UnicodeIniFile = False
    TitleColor = 12615680
    FixedCols = 1
    ShowHorzScrollBar = True
    Align = alClient
    DataSource = DataSource1
    Options = [dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgWordWrap, dgFixedResizable, dgProportionalColResize]
    RowHeightPercent = 310
    TabOrder = 0
    TitleAlignment = taCenter
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    TitleLines = 2
    TitleButtons = True
    UseTFields = False
    OnCalcCellColors = wwDBGrid1CalcCellColors
    OnCanShowCustomControl = wwDBGrid1CanShowCustomControl
    PaintOptions.BackgroundBitmap.Data = {
      07544269746D617056020000424D560200000000000076000000280000001E00
      00001E0000000100040000000000E0010000C40E0000C40E0000100000000000
      0000D9EEEE00C7E0E000EBFEFE00C6DFDF00B3D0D000EDFFFF00DAEFEF00B2CF
      CF00A1C0C000FFFFFF0000000000000000000000000000000000000000000000
      0000600111111111111333111116660110000001111110011111331111100011
      3000600001110601111111110000011331000000000000011111111000000011
      1100600000001100001111111006001111000000001111166600001111126011
      1000111001160006666666014411060011001100601000006666660111110001
      3300110666000000006662260001001111000000000000000006622226611111
      1000000111100011000662222260111106000601111000010006662222620113
      1100660111060000000600062662611111000601106660000000011066026111
      0600660000060100001062662262201102000600000600000000626622626011
      0200600006666000000062662262601102000066666666011000066622660011
      0600266622266001100000666660001006002226222660011100100000000000
      6600200666660000113131000000000662000000000601100341330011000066
      2200000006600000134000011111106626000000000111111111111111310066
      6600000001144333111331111110066600001000000114311113100000100060
      0000310066661410001111000000000001003110022201302011111111100000
      1100111002220000000011333110000000000010022222013100011310022000
      0000}
    PaintOptions.AlternatingRowRegions = [arrDataColumns]
    PaintOptions.FastRecordScrolling = False
    PaintOptions.AlternatingRowColor = clTeal
    PaintOptions.BackgroundOptions = [coFillDataCells, coBlendFixedRow, coBlendFixedColumn, coBlendAlternatingRow]
    object wwDBGrid1IButton: TwwIButton
      Left = 0
      Top = 0
      Width = 20
      Height = 41
      AllowAllUp = True
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        0003377777777777777308888888888888807F33333333333337088888888888
        88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F
        8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F
        8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF
        03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
        03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
        33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033
        33333337FFFF7733333333300000033333333337777773333333}
      NumGlyphs = 2
    end
  end
  object DBImage2: TDBImage
    Left = 520
    Top = 40
    Width = 72
    Height = 49
    DataField = 'IMAGE'
    DataSource = DataSource1
    Stretch = True
    TabOrder = 1
  end
  object wwDBRichEdit2: TwwDBRichEdit
    Left = 176
    Top = 40
    Width = 76
    Height = 49
    AutoURLDetect = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    GutterWidth = 3
    HideSelection = False
    ParentFont = False
    PrintJobName = 'Delphi 5'
    TabOrder = 2
    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 = []
    DoubleBuffered = False
    ParentDoubleBuffered = False
    RichEditVersion = 2
    Data = {
      8B0000007B5C727466315C616E73695C616E7369637067313235325C64656666
      305C6465666C616E67313033337B5C666F6E7474626C7B5C66305C666E696C5C
      666368617273657430204D532053616E732053657269663B7D7D0D0A5C766965
      776B696E64345C7563315C706172645C66305C66733138207777444252696368
      45646974325C7061720D0A7D0D0A00}
  end
  object wwRadioGroup2: TwwRadioGroup
    Left = 424
    Top = 40
    Width = 106
    Height = 49
    DisableThemes = False
    ButtonFrame.Enabled = True
    ButtonFrame.Transparent = True
    ButtonFrame.FocusBorders = [efLeftBorder, efTopBorder, efRightBorder, efBottomBorder]
    GlyphImages = ImageList6
    ShowFocusRect = False
    Caption = 'PAYMETHOD'
    Color = clRed
    Columns = 2
    DataField = 'PAYMETHOD'
    DataSource = DataSource1
    Items.Strings = (
      ' '
      ' '
      ' '
      ' ')
    ParentColor = False
    TabOrder = 3
    Values.Strings = (
      '1'
      '2'
      '3'
      '4')
  end
  object wwDataInspector1: TwwDataInspector
    Left = 280
    Top = 40
    Width = 148
    Height = 49
    DisableThemes = False
    BorderStyle = bsNone
    CaptionColor = clNone
    TabOrder = 4
    DataSource = DataSource1
    Items = <
      item
        DataSource = DataSource1
        DataField = 'ADDRESS_1'
        Caption = 'Address'
        WordWrap = False
      end
      item
        DataSource = DataSource1
        DataField = 'STATE'
        Caption = 'State'
        WordWrap = False
      end
      item
        DataSource = DataSource1
        DataField = 'ZIP'
        Caption = 'Zip'
        WordWrap = False
      end>
    CaptionWidth = 55
    Options = [ovColumnResize, ovRowResize, ovEnterToTab, ovCenterCaptionVert]
    CaptionFont.Charset = DEFAULT_CHARSET
    CaptionFont.Color = clWindowText
    CaptionFont.Height = -11
    CaptionFont.Name = 'MS Sans Serif'
    CaptionFont.Style = []
    LineStyleCaption = ovDottedLine
    LineStyleData = ovDottedLine
  end
  object wwButton1: TwwButton
    Left = 88
    Top = 120
    Width = 46
    Height = 49
    Caption = 'Edit...'
    Color = clBtnFace
    DitherColor = clWhite
    DitherStyle = wwdsDither
    NumGlyphs = 0
    ShadeStyle = wwbsNormal
    TabOrder = 5
    TextOptions.Alignment = taCenter
    TextOptions.VAlignment = vaVCenter
    StaticCaption = True
    OnClick = wwButton1Click
  end
  object DataSource1: TDataSource
    DataSet = ClientDataSet1
    Left = 8
    Top = 24
  end
  object ImageList6: TImageList
    Width = 22
    Left = 272
    Top = 8
    Bitmap = {
      [encoded data, 23616 characters]
      000000000000}
  end
  object ClientDataSet1: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    Left = 40
    Top = 24
    Data = {
      [encoded data, 222208 characters]
      6520456E67696E6565720853656375726974790141}
    object ClientDataSet1ACCT_NBR: TFloatField
      FieldName = 'ACCT_NBR'
    end
    object ClientDataSet1FIRST_NAME: TStringField
      FieldName = 'FIRST_NAME'
    end
    object ClientDataSet1LAST_NAME: TStringField
      FieldName = 'LAST_NAME'
    end
    object ClientDataSet1details: TIntegerField
      FieldName = 'details'
    end
    object ClientDataSet1RINTERESTS: TBlobField
      FieldName = 'RINTERESTS'
      BlobType = ftTypedBinary
      Size = 1
    end
    object ClientDataSet1IMAGE: TBlobField
      FieldName = 'IMAGE'
      BlobType = ftTypedBinary
      Size = 1
    end
    object ClientDataSet1PAYMETHOD: TSmallintField
      FieldName = 'PAYMETHOD'
    end
    object ClientDataSet1BALANCEDUE: TFloatField
      FieldName = 'BALANCEDUE'
    end
    object ClientDataSet1SEX: TStringField
      FieldName = 'SEX'
      Size = 6
    end
    object ClientDataSet1MARRIED: TBooleanField
      FieldName = 'MARRIED'
    end
    object ClientDataSet1CITY: TStringField
      FieldName = 'CITY'
    end
    object ClientDataSet1EDUCATION: TSmallintField
      FieldName = 'EDUCATION'
    end
    object ClientDataSet1selected: TBooleanField
      FieldName = 'selected'
      ReadOnly = True
    end
    object ClientDataSet1ADDRESS_1: TStringField
      FieldName = 'ADDRESS_1'
    end
    object ClientDataSet1STATE: TStringField
      FieldName = 'STATE'
      Size = 2
    end
    object ClientDataSet1ZIP: TStringField
      FieldName = 'ZIP'
      Size = 5
    end
    object ClientDataSet1TELEPHONE: TStringField
      FieldName = 'TELEPHONE'
      Size = 12
    end
    object ClientDataSet1DATE_OPEN: TDateField
      FieldName = 'DATE_OPEN'
    end
    object ClientDataSet1INTERESTS: TStringField
      FieldName = 'INTERESTS'
      Size = 120
    end
    object ClientDataSet1SS_NUMBER: TFloatField
      FieldName = 'SS_NUMBER'
    end
    object ClientDataSet1PICTURE: TStringField
      FieldName = 'PICTURE'
      Size = 15
    end
    object ClientDataSet1BIRTH_DATE: TDateField
      FieldName = 'BIRTH_DATE'
    end
    object ClientDataSet1RISK_LEVEL: TStringField
      FieldName = 'RISK_LEVEL'
      Size = 8
    end
    object ClientDataSet1OCCUPATION: TStringField
      FieldName = 'OCCUPATION'
    end
    object ClientDataSet1OBJECTIVES: TStringField
      FieldName = 'OBJECTIVES'
      Size = 10
    end
    object ClientDataSet1CREDRATING: TStringField
      FieldName = 'CREDRATING'
      Size = 1
    end
  end
  object wwRecordViewDialog1: TwwRecordViewDialog
    ControlType.Strings = (
      'RINTERESTS;RichEdit;wwDBRichEdit2;F')
    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]
    ControlOptions = []
    LabelFont.Charset = DEFAULT_CHARSET
    LabelFont.Color = clWindowText
    LabelFont.Height = -11
    LabelFont.Name = 'Tahoma'
    LabelFont.Style = []
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Caption = 'Record View'
    Selected.Strings = (
      'ACCT_NBR'#9'10'#9'ACCT_NBR'#9#9
      'FIRST_NAME'#9'20'#9'FIRST_NAME'#9#9
      'LAST_NAME'#9'20'#9'LAST_NAME'#9#9
      'details'#9'10'#9'details'#9#9
      'RINTERESTS'#9'10'#9'RINTERESTS'#9#9
      'IMAGE'#9'10'#9'IMAGE'#9#9
      'PAYMETHOD'#9'10'#9'PAYMETHOD'#9#9
      'BALANCEDUE'#9'10'#9'BALANCEDUE'#9#9
      'SEX'#9'6'#9'SEX'#9#9
      'MARRIED'#9'5'#9'MARRIED'#9#9
      'CITY'#9'20'#9'CITY'#9#9
      'EDUCATION'#9'10'#9'EDUCATION'#9#9
      'selected'#9'5'#9'selected'#9#9
      'ADDRESS_1'#9'20'#9'ADDRESS_1'#9#9
      'STATE'#9'2'#9'STATE'#9#9
      'ZIP'#9'5'#9'ZIP'#9#9
      'TELEPHONE'#9'12'#9'TELEPHONE'#9#9
      'DATE_OPEN'#9'10'#9'DATE_OPEN'#9#9
      'INTERESTS'#9'120'#9'INTERESTS'#9#9
      'SS_NUMBER'#9'10'#9'SS_NUMBER'#9#9
      'PICTURE'#9'15'#9'PICTURE'#9#9
      'BIRTH_DATE'#9'10'#9'BIRTH_DATE'#9#9
      'RISK_LEVEL'#9'8'#9'RISK_LEVEL'#9#9
      'OCCUPATION'#9'20'#9'OCCUPATION'#9#9
      'OBJECTIVES'#9'10'#9'OBJECTIVES'#9#9
      'CREDRATING'#9'1'#9'CREDRATING'#9#9)
    NavigatorFlat = True
    Left = 72
    Top = 248
  end
end
