object GridDemo: TGridDemo
  Left = 224
  Top = 139
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  BorderStyle = bsDialog
  Caption = 'InfoPower - Lookup Combos in Grid'
  ClientHeight = 375
  ClientWidth = 510
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  KeyPreview = True
  OldCreateOrder = True
  Position = poScreenCenter
  OnCloseQuery = FormCloseQuery
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object TabbedNotebook1: TTabbedNotebook
    Left = 4
    Top = 28
    Width = 501
    Height = 345
    TabFont.Charset = DEFAULT_CHARSET
    TabFont.Color = clBtnText
    TabFont.Height = -11
    TabFont.Name = 'MS Sans Serif'
    TabFont.Style = []
    TabOrder = 1
    OnChange = TabbedNotebook1Change
    object TTabPage
      Left = 4
      Top = 24
      Caption = 'LookupCombo'
      ExplicitWidth = 0
      ExplicitHeight = 0
      object wwDBGrid1: TwwDBGrid
        Left = 4
        Top = 4
        Width = 481
        Height = 158
        ControlType.Strings = (
          'Buyer;CheckBox;Yes;No'
          'Zip;CustomEdit;wwDBLookupCombo2;F'
          'First Name;CustomEdit;wwDBComboBox1;F')
        Selected.Strings = (
          'Last Name'#9'10'#9'Last Name'#9'F'
          'First Name'#9'14'#9'First Name'#9'F'
          'Buyer'#9'6'#9'Buyer?'#9'F'
          'Zip'#9'9'#9'Zip'#9'F'
          'Company Name'#9'21'#9'Company Name'#9'F')
        IniAttributes.FileName = 'delphi32.ini'
        IniAttributes.SectionName = 'GridDemowwDBGrid1'
        IniAttributes.Delimiter = ';;'
        IniAttributes.UnicodeIniFile = False
        TitleColor = clNavy
        FixedCols = 1
        ShowHorzScrollBar = True
        Ctl3D = True
        DataSource = CustomerSource
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        KeyOptions = [dgEnterToTab, dgAllowDelete, dgAllowInsert]
        Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgWordWrap, dgPerfectRowFit, dgProportionalColResize]
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 0
        TitleAlignment = taCenter
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWhite
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = [fsBold]
        TitleLines = 1
        TitleButtons = False
        UseTFields = False
        OnKeyUp = wwDBGrid1KeyUp
        IndicatorIconColor = clYellow
      end
      object Memo2: TMemo
        Left = 4
        Top = 168
        Width = 481
        Height = 141
        Ctl3D = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Times New Roman'
        Font.Style = []
        Lines.Strings = (
          
            'This example attaches a lookup combo to an InfoPower data-aware ' +
            'grid.'
          
            'Click in the grid'#39's field column "Zip" to display the lookup com' +
            'bo control.'
          ''
          
            'The combo control uses the value from field "Zip" in customer.db' +
            ' to lookup '
          
            'zip.db.  The drop-down displays the zip, city, and state from th' +
            'e lookup table.'
          ''
          
            'You can incrementally search through the lookup list by directly' +
            ' typing into the '
          'combo control while the lookup list is displayed.')
        ParentCtl3D = False
        ParentFont = False
        ScrollBars = ssVertical
        TabOrder = 1
      end
      object wwDBComboBox1: TwwDBComboBox
        Left = 240
        Top = 200
        Width = 121
        Height = 21
        ShowButton = True
        Style = csDropDown
        MapList = False
        AllowClearKey = False
        DropDownCount = 13
        HistoryList.FileName = 'delphi32.ini.ini'
        ItemHeight = 0
        Items.Strings = (
          'one'
          'two'
          'three'
          'four'
          'five'
          'six'
          'seven'
          'eight'
          'nine'
          'ten'
          'eleven'
          'twelve'
          'thirteen'
          'fourteen'
          'fifteen'
          'sdf')
        Sorted = False
        TabOrder = 2
        UnboundDataType = wwDefault
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = 'Linked LookupCombo'
      ExplicitWidth = 0
      ExplicitHeight = 0
      object wwDBGrid2: TwwDBGrid
        Left = 4
        Top = 0
        Width = 480
        Height = 158
        ControlType.Strings = (
          'ZipCity;CustomEdit;wwDBLookupCombo1;F')
        Selected.Strings = (
          'Last Name'#9'10'#9'Last Name'#9'F'
          'First Name'#9'10'#9'First Name'#9'No'
          'Buyer'#9'7'#9'Buyer?'#9'No'
          'ZipCity'#9'15'#9'ZipCity'#9'F'
          'Company Name'#9'18'#9'Company Name'#9'No')
        IniAttributes.FileName = 'delphi32.ini'
        IniAttributes.SectionName = 'GridDemowwDBGrid2'
        IniAttributes.Delimiter = ';;'
        IniAttributes.UnicodeIniFile = False
        TitleColor = clNavy
        FixedCols = 1
        ShowHorzScrollBar = False
        Color = clBtnFace
        DataSource = CustomerSource
        EditCalculated = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        KeyOptions = [dgEnterToTab, dgAllowDelete, dgAllowInsert]
        Options = [dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgWordWrap, dgPerfectRowFit, dgProportionalColResize]
        ParentFont = False
        TabOrder = 0
        TitleAlignment = taCenter
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWhite
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = [fsBold]
        TitleLines = 1
        TitleButtons = False
        UseTFields = False
        OnCalcCellColors = wwDBGrid2CalcCellColors
        IndicatorIconColor = clYellow
      end
      object Memo1: TMemo
        Left = 4
        Top = 168
        Width = 481
        Height = 141
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Times New Roman'
        Font.Style = []
        Lines.Strings = (
          
            'This example attaches a lookup combo to a linked field in a Info' +
            'Power '
          
            'data-aware grid.  Click the City field in the grid to display th' +
            'e lookup combo '
          
            'control.  Type in characters to perform incremental searches on ' +
            'the lookup list.'
          ''
          
            'This grid is actually displaying values from two different table' +
            's.'
          
            'The combo control uses the value from "Zip" in customer.db to lo' +
            'ok up zip.db to '
          
            'retrieve and display its corresponding "City" value.. The displa' +
            'yed field "City" in '
          
            'the above grid comes from the zip.db table. When the end-user se' +
            'lects a new'
          
            '"City", he/she is actually changing the "Zip" field value from "' +
            'Customer.db".')
        ParentFont = False
        ScrollBars = ssVertical
        TabOrder = 1
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = 'DateTime Picker'
      ExplicitWidth = 0
      ExplicitHeight = 0
      object wwDBGrid3: TwwDBGrid
        Left = 4
        Top = 0
        Width = 481
        Height = 154
        ControlType.Strings = (
          'Buyer;CheckBox;Yes;No')
        Selected.Strings = (
          'Last Name'#9'10'#9'Last Name'#9'F'
          'First Name'#9'10'#9'First Name'#9'No'
          'Buyer'#9'7'#9'Buyer?'#9'No'
          'Company Name'#9'20'#9'Company Name'#9'F'
          'First Contact Date'#9'13'#9'First Contact~Date'#9'F')
        IniAttributes.FileName = 'delphi32.ini'
        IniAttributes.SectionName = 'GridDemowwDBGrid3'
        IniAttributes.Delimiter = ';;'
        IniAttributes.UnicodeIniFile = False
        TitleColor = clNavy
        FixedCols = 1
        ShowHorzScrollBar = False
        Color = clBtnFace
        DataSource = CustomerSource
        EditCalculated = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgWordWrap, dgPerfectRowFit, dgProportionalColResize]
        ParentFont = False
        TabOrder = 0
        TitleAlignment = taCenter
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWhite
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = [fsBold]
        TitleLines = 2
        TitleButtons = False
        UseTFields = False
        OnMouseDown = wwDBGrid3MouseDown
        IndicatorIconColor = clYellow
      end
      object wwDBRichEdit1: TwwDBRichEdit
        Left = 8
        Top = 168
        Width = 473
        Height = 145
        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 = 1
        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 = {
          C80100007B5C727466315C616E73695C616E7369637067313235325C64656666
          305C6465666C616E67313033337B5C666F6E7474626C7B5C66305C666E696C20
          54696D6573204E657720526F6D616E3B7D7D0D0A7B5C636F6C6F7274626C203B
          5C726564305C677265656E305C626C7565303B7D0D0A5C766965776B696E6434
          5C7563315C706172645C736134335C6366315C66305C6673323020546865205C
          756C20466972737420436F6E7461637420446174655C756C6E6F6E6520206669
          656C64207573657320496E666F506F7765722773206E6577204461746554696D
          655069636B657220636F6E74726F6C2E202054686520677269642077696C6C20
          6175746F6D61746963616C6C79206465746563742064617465206F722074696D
          65206669656C647320616E64207573652074686520617070726F707269617465
          20636F6E74726F6C2E5C7061720D0A5C70617264205365652074686520446174
          6554696D655069636B65722064656D6F6E7374726174696F6E20666F726D2066
          6F722064657461696C73206F6E2074686520666C65786962696C697479206F66
          20496E666F506F7765722773204461746554696D655069636B65722E5C706172
          0D0A5C7061720D0A7D0D0A00}
      end
    end
  end
  object wwDBLookupCombo2: TwwDBLookupCombo
    Left = 60
    Top = 8
    Width = 17
    Height = 21
    DropDownAlignment = taLeftJustify
    Selected.Strings = (
      'ZIP'#9'5'#9'ZIP'
      'CITY'#9'35'#9'CITY'#9'F'
      'STATE'#9'25'#9'STATE'#9'F')
    LookupTable = ZipTable
    LookupField = 'ZIP'
    Options = [loColLines, loTitles]
    DropDownCount = 25
    TabOrder = 2
    AutoDropDown = True
    ShowButton = True
    PreciseEditRegion = False
    AllowClearKey = False
    ShowMatchText = True
  end
  object wwDBLookupCombo1: TwwDBLookupCombo
    Left = 44
    Top = 8
    Width = 17
    Height = 21
    DropDownAlignment = taLeftJustify
    Selected.Strings = (
      'CITY'#9'11'#9'CITY'
      'ZIP'#9'5'#9'ZIP'
      'STATE'#9'5'#9'STATE'
      'CityDesc'#9'20'#9'CityDesc')
    LookupTable = ZipTable
    LookupField = 'ZIP'
    Options = [loColLines, loTitles]
    DropDownCount = 25
    TabOrder = 0
    AutoDropDown = True
    ShowButton = True
    PreciseEditRegion = False
    AllowClearKey = False
    ShowMatchText = True
  end
  object Button1: TButton
    Left = 278
    Top = 3
    Width = 103
    Height = 25
    Caption = 'Lookup and Fill'
    TabOrder = 3
    OnClick = Button1Click
  end
  object BitBtn2: TBitBtn
    Left = 400
    Top = 3
    Width = 93
    Height = 25
    Caption = 'Exit'
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      0400000000000001000000000000000000001000000010000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
      03333377777777777F333301111111110333337F333333337F33330111111111
      0333337F333333337F333301111111110333337F333333337F33330111111111
      0333337F333333337F333301111111110333337F333333337F33330111111111
      0333337F3333333F7F333301111111B10333337F333333737F33330111111111
      0333337F333333337F333301111111110333337F33FFFFF37F3333011EEEEE11
      0333337F377777F37F3333011EEEEE110333337F37FFF7F37F3333011EEEEE11
      0333337F377777337F333301111111110333337F333333337F33330111111111
      0333337FFFFFFFFF7F3333000000000003333377777777777333}
    NumGlyphs = 2
    TabOrder = 4
    OnClick = BitBtn2Click
  end
  object CustomerSource: TDataSource
    DataSet = CustomerTable
    Left = 168
    Top = 4
  end
  object wwLookupDialog1: TwwLookupDialog
    Selected.Strings = (
      'ZIP'#9'6'#9'ZIP'
      'CITY'#9'11'#9'CITY'
      'STATE'#9'2'#9'STATE')
    GridTitleAlignment = taLeftJustify
    GridColor = clWhite
    Options = [opShowOKCancel, opShowSearchBy, opGroupControls, opFixFirstColumn, opShowStatusBar]
    GridOptions = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete]
    LookupTable = ZipTable
    Caption = 'Lookup'
    MaxWidth = 0
    MaxHeight = 209
    CharCase = ecNormal
    UserButton1Caption = '&User Button'
    OnUserButton1Click = wwLookupDialog1UserButton1Click
    Left = 248
    Top = 4
  end
  object CustomerTable: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    Left = 200
    Data = {
      [encoded data, 27136 characters]
      0C3437342D3637392D36343232024E6F}
    object CustomerTableLastName: TStringField
      FieldName = 'Last Name'
      Size = 25
    end
    object CustomerTableFirstName: TStringField
      FieldName = 'First Name'
      Size = 25
    end
    object CustomerTableBuyer: TStringField
      FieldName = 'Buyer'
      Size = 3
    end
    object CustomerTableZip: TStringField
      FieldName = 'Zip'
      Size = 10
    end
    object CustomerTableZipCity: TStringField
      FieldKind = fkLookup
      FieldName = 'ZipCity'
      LookupDataSet = ZipTable
      LookupKeyFields = 'Zip'
      LookupResultField = 'City'
      KeyFields = 'Zip'
      ReadOnly = True
      Lookup = True
    end
    object CustomerTableCompanyName: TStringField
      FieldName = 'Company Name'
      Size = 40
    end
    object CustomerTableCustomerNo: TIntegerField
      FieldName = 'Customer No'
    end
    object CustomerTableStreet: TStringField
      FieldName = 'Street'
      Size = 60
    end
    object CustomerTableCity: TStringField
      FieldName = 'City'
      Size = 25
    end
    object CustomerTableState: TStringField
      FieldName = 'State'
      Size = 25
    end
    object CustomerTableFirstContactDate: TDateField
      FieldName = 'First Contact Date'
    end
    object CustomerTablePhoneNumber: TStringField
      FieldName = 'Phone Number'
    end
    object CustomerTableInformation: TMemoField
      FieldName = 'Information'
      BlobType = ftMemo
      Size = 80
    end
    object CustomerTableRequestedDemo: TStringField
      FieldName = 'Requested Demo'
      Size = 3
    end
    object CustomerTableLogical: TBooleanField
      FieldName = 'Logical'
    end
  end
  object ZipTable: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    Left = 8
    Top = 40
    Data = {
      [encoded data, 190080 characters]
      02414B0004053939393939024341}
  end
end
