object ComboDemoForm: TComboDemoForm
  Left = 177
  Top = 136
  Caption = 'InfoPower - TwwDBComboBox Demo'
  ClientHeight = 419
  ClientWidth = 534
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel3: TBevel
    Left = 14
    Top = 253
    Width = 217
    Height = 74
    Shape = bsFrame
  end
  object Label3: TLabel
    Left = 22
    Top = 285
    Width = 91
    Height = 13
    Caption = 'Add First Name:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 534
    Height = 419
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'History && MRU Lists'
      ExplicitLeft = 0
      ExplicitTop = 0
      ExplicitWidth = 0
      ExplicitHeight = 0
      object Bevel1: TBevel
        Left = 8
        Top = 9
        Width = 217
        Height = 128
        Shape = bsFrame
      end
      object Label1: TLabel
        Left = 14
        Top = 33
        Width = 203
        Height = 72
        AutoSize = False
        Caption = 
          'Type in the combobox below and your entries will be automaticall' +
          'y added to the item list during the duration of your session.'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
        WordWrap = True
      end
      object Bevel2: TBevel
        Left = 8
        Top = 144
        Width = 217
        Height = 117
        Shape = bsFrame
      end
      object Bevel4: TBevel
        Left = 8
        Top = 277
        Width = 217
        Height = 115
        Shape = bsFrame
      end
      object Label4: TLabel
        Left = 16
        Top = 349
        Width = 103
        Height = 13
        Caption = 'Add a Font Name:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object Label2: TLabel
        Left = 15
        Top = 169
        Width = 202
        Height = 72
        AutoSize = False
        Caption = 
          'Items entered into the list are automatically saved to an ini fi' +
          'le or the windows registry.'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
        WordWrap = True
      end
      object Label5: TLabel
        Left = 16
        Top = 219
        Width = 129
        Height = 13
        Caption = 'Add a Company Name:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object Label6: TLabel
        Left = 16
        Top = 93
        Width = 102
        Height = 13
        Caption = 'Add a First Name:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object Label7: TLabel
        Left = 15
        Top = 305
        Width = 202
        Height = 48
        AutoSize = False
        Caption = 
          'The most recently used or typed in entries are saved and put at ' +
          'the top of the list. '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
        WordWrap = True
      end
      object wwDBRichEdit1: TwwDBRichEdit
        Left = 232
        Top = 10
        Width = 294
        Height = 383
        AutoURLDetect = False
        Enabled = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Frame.Transparent = True
        Frame.NonFocusBorders = [efLeftBorder, efTopBorder, efRightBorder, efBottomBorder]
        Frame.FocusStyle = efsFrameSunken
        Frame.NonFocusStyle = efsFrameSunken
        GutterWidth = 3
        HideSelection = False
        ParentFont = False
        PrintJobName = 'Delphi 5'
        TabOrder = 0
        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 = {
          AB0500007B5C727466315C616E73695C616E7369637067313235325C64656666
          305C6465666C616E67313033337B5C666F6E7474626C7B5C66305C666E696C5C
          66636861727365743020417269616C3B7D7B5C66315C666E696C5C6663686172
          73657430204D532053616E732053657269663B7D7B5C66325C666E696C204D53
          2053616E732053657269663B7D7B5C66335C666E696C5C666368617273657432
          2053796D626F6C3B7D7D0D0A7B5C636F6C6F7274626C203B5C726564305C6772
          65656E305C626C75653235353B5C7265643235355C677265656E305C626C7565
          303B5C7265643235355C677265656E3235355C626C7565303B5C726564305C67
          7265656E305C626C75653132383B5C726564305C677265656E305C626C756530
          3B7D0D0A5C766965776B696E64345C7563315C706172645C71635C756C5C625C
          667332342054686520556C74696D61746520436F6D626F20426F7820436F6E74
          726F6C5C6366315C756C6E6F6E655C66315C7061720D0A5C6366325C66733136
          5C7061720D0A5C706172645C686967686C69676874335C663020284E65772066
          6561747572657320696E20495033303030293A5C6366305C686967686C696768
          74305C7061720D0A5C706172647B5C706E746578745C66335C2742375C746162
          7D7B5C2A5C706E5C706E6C766C626C745C706E66335C706E696E64656E74307B
          5C706E747874625C2742377D7D5C66692D3336305C6C693336305C6366342041
          75746F6D6174696320486973746F7279204C697374205C636635202D5C623020
          20456E61626C652074686520686973746F72796C697374206361706162696C69
          747920696E206F7264657220746F206175746F6D61746963616C6C7920656E74
          657220656E747269657320746861742074686520757365722074797065732069
          6E746F20746865206974656D732070726F7065727479206F662074686520636F
          6D626F626F782E2020546869732077696C6C206F6E6C79206C61737420617320
          6C6F6E67206173207468652070726F6772616D2074686174206973207573696E
          672074686520636F6E74726F6C2069732072756E6E696E672E5C6366305C7061
          720D0A5C6366345C627B5C706E746578745C66335C2742375C7461627D506572
          73697374656E7420486973746F7279204C697374205C636635202D5C62302020
          536176652074686520686973746F72792076616C75657320746F207468652057
          696E646F7773205265676973747279206F7220746F20616E20494E492066696C
          652E202053686172652074686520686973746F72792076616C75657320776974
          68206F7468657220636F6D626F73207468617420686176652073696D696C6172
          20656E74726965732E5C7061720D0A5C6366345C627B5C706E746578745C6633
          5C2742375C7461627D4D525520284D6F737420526563656E746C792055736564
          29204361706162696C697479205C636635202D5C6230202053696D696C617220
          746F20746865207761792074686520466F6E7420436F6D626F20696E204D6963
          726F736F667420576F726420776F726B7320696E207468617420746865206D6F
          737420726563656E746C79207573656420666F6E74732061726520616C736F20
          73746F7265642061742074686520746F70206F6620746865206C69737420666F
          7220717569636B20616E64206561737920616363657373207769746820746865
          206D6F7573652E20205468652073697A65206F6620746865204D5255206C6973
          7420697320636F6E666967757261626C65206A757374206C696B652074686520
          73697A65206F66207468652073746F72656420686973746F72792076616C7565
          732E5C7061720D0A5C706172645C7061720D0A53656520746865206E65787420
          7061676520666F72206D6F726520616476616E746167657320746F207573696E
          67207468697320706F77657266756C20636F6E74726F6C2E5C66325C7061720D
          0A5C6366305C7061720D0A7D0D0A00}
      end
      object FirstNameCombo: TwwDBComboBox
        Left = 15
        Top = 110
        Width = 204
        Height = 21
        ShowButton = True
        Style = csDropDown
        MapList = False
        AllowClearKey = False
        ShowMatchText = True
        DropDownCount = 8
        Frame.FocusStyle = efsFrameSunken
        HistoryList.FileName = 'delphi32.ini.ini'
        HistoryList.Enabled = True
        ItemHeight = 0
        Items.Strings = (
          'Arthur'
          'Carl'
          'Cathy'
          'Darren'
          'Frank'
          'Harry'
          'Jake'
          'Janet'
          'John'
          'Larry'
          'Martin'
          'Sarah'
          'Tara'
          'Tom')
        Sorted = True
        TabOrder = 1
        UnboundDataType = wwDefault
      end
      object Panel2: TPanel
        Left = 9
        Top = 10
        Width = 215
        Height = 22
        BevelInner = bvLowered
        BevelOuter = bvLowered
        Caption = 'AUTOMATIC HISTORY LIST'
        Color = 16744448
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 2
      end
      object CompanyNameCombo: TwwDBComboBox
        Left = 15
        Top = 235
        Width = 204
        Height = 21
        ShowButton = True
        Style = csDropDown
        MapList = False
        AllowClearKey = False
        ShowMatchText = True
        DropDownCount = 8
        Frame.FocusStyle = efsFrameSunken
        HistoryList.Section = 'CompanyName'
        HistoryList.FileName = 'W2WHistoryList'
        HistoryList.StorageType = stRegistry
        HistoryList.Enabled = True
        ItemHeight = 0
        Items.Strings = (
          'Armstrong Roofing'
          'Pip Printing'
          'Woll2Woll Software')
        Sorted = True
        TabOrder = 3
        UnboundDataType = wwDefault
      end
      object Panel3: TPanel
        Left = 9
        Top = 145
        Width = 215
        Height = 22
        BevelInner = bvLowered
        BevelOuter = bvLowered
        Caption = 'PERSISTENT HISTORY LIST'
        Color = 12517288
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 4
      end
      object FontNameCombo: TwwDBComboBox
        Left = 15
        Top = 365
        Width = 204
        Height = 21
        ShowButton = True
        Style = csDropDownList
        MapList = False
        AllowClearKey = False
        ShowMatchText = True
        DropDownCount = 8
        Frame.FocusStyle = efsFrameSunken
        HistoryList.Section = 'FontList'
        HistoryList.FileName = 'W2WHistoryList'
        HistoryList.StorageType = stRegistry
        HistoryList.Enabled = True
        HistoryList.MRUEnabled = True
        HistoryList.MRUMaxSize = 3
        ItemHeight = 0
        Sorted = True
        TabOrder = 5
        UnboundDataType = wwDefault
      end
      object Panel4: TPanel
        Left = 9
        Top = 278
        Width = 215
        Height = 22
        BevelInner = bvLowered
        BevelOuter = bvLowered
        Caption = 'MRU (Most Recently Used)'
        Color = 13408151
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 6
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Quicken-Style && MapList'
      ImageIndex = 1
      ExplicitLeft = 0
      ExplicitTop = 0
      ExplicitWidth = 0
      ExplicitHeight = 0
      object Bevel5: TBevel
        Left = 8
        Top = 9
        Width = 217
        Height = 128
        Shape = bsFrame
      end
      object Label8: TLabel
        Left = 14
        Top = 33
        Width = 203
        Height = 72
        AutoSize = False
        Caption = 
          'Just like in "Quicken", as you type the rest of the text is fill' +
          'ed in based on the currently entered text.'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
        WordWrap = True
      end
      object Label9: TLabel
        Left = 16
        Top = 93
        Width = 65
        Height = 13
        Caption = 'First Name:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object Bevel6: TBevel
        Left = 8
        Top = 153
        Width = 217
        Height = 240
        Shape = bsFrame
      end
      object Label10: TLabel
        Left = 14
        Top = 177
        Width = 203
        Height = 104
        AutoSize = False
        Caption = 
          'Whether used bound or unbound, the TwwDBComboBox has the capabil' +
          'ity to map a long displayed value to a smaller stored value like' +
          ' an integer. '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
        WordWrap = True
      end
      object Label11: TLabel
        Left = 16
        Top = 285
        Width = 139
        Height = 13
        Caption = 'Select Payment Method:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object Label12: TLabel
        Left = 18
        Top = 352
        Width = 74
        Height = 13
        Caption = 'Stored Value'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        Transparent = True
      end
      object wwDBRichEdit2: TwwDBRichEdit
        Left = 233
        Top = 5
        Width = 294
        Height = 383
        ScrollBars = ssVertical
        AutoURLDetect = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Frame.Transparent = True
        Frame.NonFocusBorders = [efLeftBorder, efTopBorder, efRightBorder, efBottomBorder]
        Frame.FocusStyle = efsFrameSunken
        Frame.NonFocusStyle = efsFrameSunken
        GutterWidth = 3
        HideSelection = False
        ParentFont = False
        PrintJobName = 'Delphi 5'
        TabOrder = 0
        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 = {
          [encoded data, 4288 characters]
          0A5C746162202020636F6E74726F6C732E5C7061720D0A7D0D0A00}
      end
      object Panel5: TPanel
        Left = 9
        Top = 10
        Width = 215
        Height = 22
        BevelInner = bvLowered
        BevelOuter = bvLowered
        Caption = 'QUICKEN-STYLE SEARCHING'
        Color = 16744448
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
      end
      object Panel6: TPanel
        Left = 9
        Top = 154
        Width = 215
        Height = 22
        BevelInner = bvLowered
        BevelOuter = bvLowered
        Caption = 'Map Display To Stored Value'
        Color = 9671679
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 2
      end
      object wwDBComboBox2: TwwDBComboBox
        Left = 15
        Top = 303
        Width = 204
        Height = 21
        ShowButton = True
        Style = csDropDownList
        MapList = True
        AllowClearKey = False
        ShowMatchText = True
        DataField = 'Payment Method'
        DataSource = DataSource1
        DropDownCount = 8
        Frame.FocusStyle = efsFrameSunken
        HistoryList.Section = 'CompanyName'
        HistoryList.FileName = 'W2WHistoryList'
        HistoryList.StorageType = stRegistry
        ItemHeight = 0
        Items.Strings = (
          'American Express'#9'0'
          'Discover'#9'1'
          'Mastercard'#9'2'
          'Visa'#9'3')
        ItemIndex = 1
        Sorted = True
        TabOrder = 3
        UnboundDataType = wwDefault
        OnDropDown = wwDBComboBox2DropDown
        OnCloseUp = wwDBComboBox2CloseUp
      end
      object wwDBEdit1: TwwDBEdit
        Left = 16
        Top = 368
        Width = 201
        Height = 21
        DataField = 'Payment Method'
        DataSource = DataSource1
        Frame.NonFocusBorders = [efLeftBorder, efTopBorder, efRightBorder, efBottomBorder]
        Frame.FocusStyle = efsFrameSunken
        Frame.NonFocusStyle = efsFrameSunken
        TabOrder = 4
        UnboundDataType = wwDefault
        WantReturns = False
        WordWrap = False
      end
      object wwDBComboBox1: TwwDBComboBox
        Left = 15
        Top = 110
        Width = 204
        Height = 21
        ShowButton = True
        Style = csDropDownList
        MapList = False
        AllowClearKey = False
        ShowMatchText = True
        DropDownCount = 8
        Frame.FocusStyle = efsFrameSunken
        HistoryList.FileName = 'delphi32.ini.ini'
        ItemHeight = 0
        Items.Strings = (
          'Amanda'
          'Arthur'
          'Carl'
          'Cathy'
          'Darren'
          'Donald'
          'Dorothy'
          'Francesca'
          'Frank'
          'Harrah'
          'Harry'
          'Jake'
          'Janet'
          'John'
          'Lara'
          'Larry'
          'Martin'
          'Mary'
          'Morrie'
          'Sally'
          'Sam'
          'Sarah'
          'Tara'
          'Tom')
        Sorted = True
        TabOrder = 5
        UnboundDataType = wwDefault
      end
      object wwCheckBox1: TwwCheckBox
        Left = 16
        Top = 328
        Width = 201
        Height = 17
        DisableThemes = False
        AlwaysTransparent = True
        Frame.Enabled = True
        Frame.Transparent = True
        Frame.FocusBorders = []
        Frame.NonFocusBorders = []
        ValueChecked = 'True'
        ValueUnchecked = 'False'
        DisplayValueChecked = 'True'
        DisplayValueUnchecked = 'False'
        NullAndBlankState = cbUnchecked
        Caption = 'Two Column List'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 6
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = ClientDataSet1
    Left = 244
    Top = 48
  end
  object ClientDataSet1: TClientDataSet
    Active = True
    Aggregates = <>
    AggregatesActive = False
    Constraints = <>
    DisableStringTrim = False
    FieldDefs = <
      item
        Name = 'Customer No'
        DataType = ftInteger
      end
      item
        Name = 'Invoice No'
        DataType = ftFloat
      end
      item
        Name = 'Payment Method'
        DataType = ftFloat
      end
      item
        Name = 'Total Invoice'
        DataType = ftCurrency
      end
      item
        Name = 'Purchase Date'
        DataType = ftDate
      end
      item
        Name = 'Balance Due'
        DataType = ftCurrency
      end>
    IndexDefs = <>
    FetchOnDemand = True
    ObjectView = True
    Params = <>
    ReadOnly = False
    StoreDefs = False
    Left = 280
    Top = 48
    Data = {
      [encoded data, 18368 characters]
      261E0B000000000000000000}
  end
end
