object CustomComboForm: TCustomComboForm
  Left = 318
  Top = 188
  Caption = 'Custom lookupcombo searching'
  ClientHeight = 347
  ClientWidth = 351
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 19
    Top = 16
    Width = 18
    Height = 13
    Caption = 'Zip:'
  end
  object Label2: TLabel
    Left = 19
    Top = 48
    Width = 20
    Height = 13
    Caption = 'City:'
  end
  object wwDBRichEdit1: TwwDBRichEdit
    Left = 16
    Top = 120
    Width = 313
    Height = 201
    AutoURLDetect = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Times New Roman'
    Font.Style = []
    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 = {
      ED0100007B5C727466315C616E73695C616E7369637067313235325C64656666
      305C6465666C616E67313033337B5C666F6E7474626C7B5C66305C666E696C5C
      6663686172736574302054696D6573204E657720526F6D616E3B7D7D0D0A5C76
      6965776B696E64345C7563315C706172645C66305C6673323020496E666F506F
      77657220616C6C6F777320796F7520746F20706572666F726D2074686520696E
      6372656D656E74616C20736561726368696E672072656D6F74656C7920696E73
      74656164206F66206C6F63616C6C792E202054686973207369676E6966696361
      6E746C7920696D70726F7665732074686520706572666F726D616E6365206F66
      206C6F6F6B7570636F6D626F2773207768656E20746865792061726520617474
      616368656420746F206120717565727920646174617365742E20205768656E20
      612063686172616374657220697320747970656420696E746F2074686520636F
      6E74726F6C2C20796F752063616E20637573746F6D697A652074686520616374
      696F6E20746861742074616B657320706C6163652E20205C7061720D0A5C7061
      720D0A496E207468652061626F76652064656D6F2C2073746172742074797069
      6E6720696E2061206E756D62657220696E746F20746865207A69702D636F6465
      20636F6D626F2E5C7061720D0A7D0D0A00}
  end
  object wwDBNavigator1: TwwDBNavigator
    Left = 16
    Top = 80
    Width = 225
    Height = 25
    DataSource = DataSource2
    RepeatInterval.InitialDelay = 500
    RepeatInterval.Interval = 100
    object wwDBNavigator1First: TwwNavButton
      Left = 0
      Top = 0
      Width = 25
      Height = 25
      Hint = 'Move to first record'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1First'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 0
      Style = nbsFirst
    end
    object wwDBNavigator1Prior: TwwNavButton
      Left = 25
      Top = 0
      Width = 25
      Height = 25
      Hint = 'Move to prior record'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1Prior'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 1
      Style = nbsPrior
    end
    object wwDBNavigator1Next: TwwNavButton
      Left = 50
      Top = 0
      Width = 25
      Height = 25
      Hint = 'Move to next record'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1Next'
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 2
      Style = nbsNext
    end
    object wwDBNavigator1Last: TwwNavButton
      Left = 75
      Top = 0
      Width = 25
      Height = 25
      Hint = 'Move to last record'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1Last'
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 3
      Style = nbsLast
    end
    object wwDBNavigator1Insert: TwwNavButton
      Left = 100
      Top = 0
      Width = 25
      Height = 25
      Hint = 'Insert new record'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1Insert'
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 4
      Style = nbsInsert
    end
    object wwDBNavigator1Delete: TwwNavButton
      Left = 125
      Top = 0
      Width = 25
      Height = 25
      Hint = 'Delete current record'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1Delete'
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 5
      Style = nbsDelete
    end
    object wwDBNavigator1Edit: TwwNavButton
      Left = 150
      Top = 0
      Width = 25
      Height = 25
      Hint = 'Edit current record'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1Edit'
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 6
      Style = nbsEdit
    end
    object wwDBNavigator1Post: TwwNavButton
      Left = 175
      Top = 0
      Width = 25
      Height = 25
      Hint = 'Post changes of current record'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1Post'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 7
      Style = nbsPost
    end
    object wwDBNavigator1Cancel: TwwNavButton
      Left = 200
      Top = 0
      Width = 25
      Height = 25
      Hint = 'Cancel changes made to current record'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1Cancel'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 8
      Style = nbsCancel
    end
  end
  object wwDBLookupCombo2: TwwDBLookupCombo
    Left = 48
    Top = 44
    Width = 209
    Height = 21
    DropDownAlignment = taLeftJustify
    Selected.Strings = (
      'CITY'#9'25'#9'CITY'#9'F'
      'ZIP'#9'10'#9'ZIP'#9'F'
      'STATE'#9'2'#9'STATE'#9'F')
    DataField = 'Zip'
    DataSource = DataSource2
    LookupTable = ClientDataSet1
    LookupField = 'ZIP'
    Options = [loFixedDropDownHeight]
    TabOrder = 2
    AutoDropDown = False
    ShowButton = True
    UseTFields = False
    PreciseEditRegion = False
    AllowClearKey = False
    ShowMatchText = True
    OnPerformCustomSearch = wwDBLookupCombo2PerformCustomSearch
  end
  object wwDBLookupCombo1: TwwDBLookupCombo
    Left = 48
    Top = 13
    Width = 209
    Height = 21
    DropDownAlignment = taLeftJustify
    Selected.Strings = (
      'ZIP'#9'10'#9'ZIP'#9'F'
      'CITY'#9'25'#9'CITY'#9'F'
      'STATE'#9'2'#9'STATE'#9'F')
    DataField = 'Zip'
    DataSource = DataSource2
    LookupTable = ZipLookup
    LookupField = 'ZIP'
    Options = [loFixedDropDownHeight]
    TabOrder = 3
    AutoDropDown = False
    ShowButton = True
    UseTFields = False
    PreciseEditRegion = False
    AllowClearKey = False
    ShowMatchText = True
    OnPerformCustomSearch = wwDBLookupCombo1PerformCustomSearch
  end
  object ZipLookupDataSource: TDataSource
    DataSet = ZipLookup
    Left = 32
    Top = 328
  end
  object DataSource2: TDataSource
    DataSet = custdata
    Left = 32
    Top = 264
  end
  object DataSource3: TDataSource
    DataSet = ClientDataSet1
    Left = 112
    Top = 296
  end
  object ClientDataSet1: TClientDataSet
    Active = True
    Aggregates = <>
    AggregatesActive = False
    Constraints = <>
    DisableStringTrim = False
    FilterOptions = [foCaseInsensitive]
    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 = 144
    Top = 296
    Data = {
      [encoded data, 300608 characters]
      02414B0404053939393939024341}
  end
  object custdata: 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 = 64
    Top = 264
    Data = {
      [encoded data, 34368 characters]
      4C0532343331318D1C0B00083332342D33323432024E6F}
  end
  object ZipLookup: 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 = 64
    Top = 328
    Data = {
      [encoded data, 300608 characters]
      02414B0404053939393939024341}
  end
end
