object DetailComboForm: TDetailComboForm
  Left = 289
  Top = 122
  ActiveControl = CustomerCombo
  BorderStyle = bsDialog
  Caption = 'Fill the drop-down list from a detail TTable'
  ClientHeight = 316
  ClientWidth = 467
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  OldCreateOrder = True
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 16
    Width = 93
    Height = 13
    Caption = 'Select Customer'
  end
  object Label2: TLabel
    Left = 232
    Top = 16
    Width = 139
    Height = 13
    Caption = 'Select Customer Invoice'
  end
  object InvoiceCombo: TwwDBLookupCombo
    Left = 232
    Top = 31
    Width = 137
    Height = 21
    DropDownAlignment = taLeftJustify
    Selected.Strings = (
      'Invoice No'#9'3'#9'No'
      'Purchase Date'#9'10'#9'Purchase Date'
      'Total Invoice'#9'6'#9'Total')
    LookupTable = ClientDataSet2
    LookupField = 'Invoice No'
    Options = [loColLines, loTitles]
    TabOrder = 1
    AutoDropDown = False
    ShowButton = True
    SeqSearchOptions = [ssoEnabled, ssoCaseSensitive]
    PreciseEditRegion = False
    AllowClearKey = False
  end
  object CustomerCombo: TwwDBLookupCombo
    Left = 8
    Top = 31
    Width = 201
    Height = 21
    DropDownAlignment = taLeftJustify
    Selected.Strings = (
      'Company Name'#9'20'#9'Company Name')
    LookupTable = ClientDataSet1
    LookupField = 'Customer No'
    TabOrder = 0
    AutoDropDown = True
    ShowButton = True
    SeqSearchOptions = [ssoEnabled, ssoCaseSensitive]
    PreciseEditRegion = False
    AllowClearKey = False
    OnDropDown = CustomerComboDropDown
    OnCloseUp = CustomerComboCloseUp
  end
  object Button1: TButton
    Left = 136
    Top = 270
    Width = 61
    Height = 21
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 2
  end
  object wwDBRichEdit1: TwwDBRichEdit
    Left = 8
    Top = 64
    Width = 361
    Height = 177
    AutoURLDetect = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    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 = {
      B30200007B5C727466315C616E73695C616E7369637067313235325C64656666
      305C6465666C616E67313033337B5C666F6E7474626C7B5C66305C666E696C20
      54696D6573204E657720526F6D616E3B7D7D0D0A7B5C636F6C6F7274626C203B
      5C726564305C677265656E305C626C7565303B7D0D0A5C766965776B696E6434
      5C7563315C706172645C736134335C66305C66733230204369636B206F6E2074
      68652064726F702D646F776E2069636F6E20746F2073656C65637420616E2069
      6E766F69636520666F722074686520676976656E20637573746F6D65722E2020
      54686520326E64206C6F6F6B7570436F6D626F2077696C6C2073686F77206F6E
      6C7920696E766F6963657320666F722074686520637573746F6D657220796F75
      2073656C65637465642E5C7061720D0A5C706172642054686520666F6C6C6F77
      696E67206578616D706C652064656D6F6E7374726174657320686F7720796F75
      2063616E206174746163682061204C6F6F6B7570436F6D626F20646972656374
      6C7920746F20612064657461696C207461626C652E2020427920617474616368
      696E6720746F20612064657461696C207461626C652C207468652064726F702D
      646F776E206C6973742077696C6C206F6E6C792073686F77207265636F726473
      2072656C6174656420746F207468652063757272656E74207265636F7264206F
      6620746865206D6173746572207461626C652E2054686973206578616D706C65
      2075736573203220756E626F756E64204C6F6F6B7570436F6D626F733A206F6E
      65206C6F6F6B696E672075702061206D6173746572207461626C652028495034
      435553542E4442292C20616E6420746865206F74686572206C6F6F6B696E6720
      7570207468652064657461696C207461626C652028495034494E562E4442292E
      205C7061720D0A5C6366315C625C7061720D0A7D0D0A00}
  end
  object wwDataSource1: TDataSource
    DataSet = ClientDataSet1
    Left = 368
    Top = 64
  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 = 408
    Top = 64
    Data = {
      [encoded data, 34368 characters]
      4C0532343331318D1C0B00083332342D33323432024E6F}
  end
  object ClientDataSet2: TClientDataSet
    Active = True
    Aggregates = <>
    AggregatesActive = False
    Constraints = <>
    DisableStringTrim = False
    FieldDefs = <
      item
        Name = 'Customer No'
        Attributes = [faUnNamed]
        DataType = ftInteger
      end
      item
        Name = 'Invoice No'
        Attributes = [faUnNamed]
        DataType = ftFloat
      end
      item
        Name = 'Payment Method'
        Attributes = [faUnNamed]
        DataType = ftFloat
      end
      item
        Name = 'Total Invoice'
        Attributes = [faUnNamed]
        DataType = ftCurrency
      end
      item
        Name = 'Purchase Date'
        Attributes = [faUnNamed]
        DataType = ftDate
      end
      item
        Name = 'Balance Due'
        Attributes = [faUnNamed]
        DataType = ftCurrency
      end>
    IndexDefs = <>
    IndexFieldNames = 'Customer No;Invoice No'
    FetchOnDemand = True
    MasterFields = 'Customer No'
    MasterSource = wwDataSource1
    ObjectView = True
    PacketRecords = 0
    Params = <>
    ReadOnly = False
    StoreDefs = False
    Left = 400
    Top = 112
    Data = {
      [encoded data, 23616 characters]
      80B3C540}
  end
end
