object frmContactList: TfrmContactList
  Left = 17
  Top = 12
  Width = 615
  Height = 463
  BorderIcons = [biSystemMenu, biMaximize]
  Caption = 'Contact List'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Position = poScreenCenter
  OnActivate = FormActivate
  OnDeactivate = FormDeactivate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 391
    Width = 607
    Height = 45
    Align = alBottom
    TabOrder = 0
    object Label4: TLabel
      Left = 12
      Top = 2
      Width = 224
      Height = 13
      Caption = 'Click a column header to change the sort order.'
    end
    object Label5: TLabel
      Left = 12
      Top = 16
      Width = 239
      Height = 13
      Caption = 'Click inside an e-mail field for a Send E-mail button.'
    end
    object Label6: TLabel
      Left = 12
      Top = 30
      Width = 207
      Height = 13
      Caption = 'Click inside a URL field for a Browse button.'
    end
    object BitBtn1: TBitBtn
      Left = 400
      Top = 10
      Width = 75
      Height = 25
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      OnClick = BitBtn1Click
      Kind = bkCancel
    end
    object BitBtn2: TBitBtn
      Left = 488
      Top = 10
      Width = 75
      Height = 25
      TabOrder = 1
      OnClick = BitBtn2Click
      Kind = bkHelp
    end
    object BitBtn3: TBitBtn
      Left = 312
      Top = 10
      Width = 75
      Height = 25
      TabOrder = 2
      OnClick = BitBtn1Click
      Kind = bkOK
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 607
    Height = 33
    Align = alTop
    TabOrder = 1
    object Label1: TLabel
      Left = 8
      Top = 10
      Width = 62
      Height = 13
      Caption = 'Category 1'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label2: TLabel
      Left = 199
      Top = 10
      Width = 62
      Height = 13
      Caption = 'Category 2'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label3: TLabel
      Left = 389
      Top = 10
      Width = 62
      Height = 13
      Caption = 'Category 3'
      Color = clBtnFace
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object edtCatA: TwwDBCombobox
      Left = 75
      Top = 6
      Width = 113
      Height = 21
      ShowButton = True
      Style = csDropDownList
      MapList = False
      AllowClearKey = False
      Color = 14417919
      DropDownCount = 8
      ItemHeight = 0
      Items.Strings = (
        'All'
        'Customers'
        'Friends'
        'Leads'
        'Prospects'
        'Relatives')
      MaxLength = 0
      Sorted = False
      TabOrder = 0
      OnChange = edtCatAClick
    end
    object edtCatB: TwwDBCombobox
      Left = 266
      Top = 6
      Width = 113
      Height = 21
      ShowButton = True
      Style = csDropDownList
      MapList = False
      AllowClearKey = False
      Color = 14417919
      DropDownCount = 8
      ItemHeight = 0
      Items.Strings = (
        'All'
        'Home Businesses'
        'Manufacturers'
        'Retailers'
        'Servises')
      MaxLength = 0
      Sorted = False
      TabOrder = 1
      OnChange = edtCatAClick
    end
    object edtCatC: TwwDBCombobox
      Left = 456
      Top = 6
      Width = 113
      Height = 21
      ShowButton = True
      Style = csDropDownList
      MapList = False
      AllowClearKey = False
      Color = 14417919
      DropDownCount = 8
      ItemHeight = 0
      Items.Strings = (
        'All'
        'Blue'
        'Green'
        'Red'
        'Yellow')
      MaxLength = 0
      Sorted = False
      TabOrder = 2
      OnChange = edtCatAClick
    end
  end
  object ConGrid: TwwDBGrid
    Left = 0
    Top = 33
    Width = 607
    Height = 358
    Selected.Strings = (
      'LName'#9'13'#9'Last Name'
      'FName'#9'13'#9'First Name'
      'Company'#9'20'#9'Company'
      'EMail'#9'18'#9'E-Mail'
      'Mark'#9'5'#9'Mark'
      'SiteTitle'#9'35'#9'SiteTitle'
      'URL'#9'35'#9'URL'
      'SiteDesc'#9'10'#9'Site Desc.'
      'LastVisited'#9'10'#9'Last Visited'
      'CategoryA'#9'15'#9'Category 1'
      'CategoryB'#9'15'#9'Category 2'
      'CategoryC'#9'15'#9'Category 3'
      'JobTitle'#9'15'#9'JobTitle'
      'Department'#9'15'#9'Department'
      'Phone1'#9'13'#9'Phone1'
      'Phone2'#9'13'#9'Phone2'
      'Cellular'#9'13'#9'Cellular'
      'Fax'#9'13'#9'Fax'
      'Address1'#9'20'#9'Address1'
      'Address2'#9'20'#9'Address2'
      'City'#9'13'#9'City'
      'State'#9'10'#9'State'
      'Zip'#9'9'#9'Zip'
      'Country'#9'15'#9'Country'
      'Created'#9'10'#9'Created'
      'LastContact'#9'12'#9'Last Contacted'
      'Comments'#9'10'#9'Comments'
      'User1'#9'20'#9'User1'
      'User2'#9'20'#9'User2'
      'User3'#9'20'#9'User3'
      'User4'#9'20'#9'User4'
      'User5'#9'20'#9'User5'
      'User6'#9'20'#9'User6'
      'User7'#9'20'#9'User7'
      'User8'#9'20'#9'User8'
      'User9'#9'20'#9'User9'
      'User10'#9'20'#9'User10'
      'Date1'#9'10'#9'Date1'
      'Date2'#9'10'#9'Date2'
      'Date3'#9'10'#9'Date3'
      'Date4'#9'10'#9'Date4'
      'Date5'#9'10'#9'Date5'
      'Num1'#9'10'#9'Num1'
      'Num2'#9'10'#9'Num2'
      'Num3'#9'10'#9'Num3'
      'Num4'#9'10'#9'Num4'
      'Num5'#9'10'#9'Num5')
    TitleColor = 10485760
    FixedCols = 0
    ShowHorzScrollBar = True
    EditControlOptions = [ecoCheckboxSingleClick, ecoSearchOwnerForm]
    Align = alClient
    Color = 14286847
    DataSource = frmDataModule.dsCon
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    TitleAlignment = taCenter
    TitleFont.Color = clAqua
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = [fsBold]
    TitleLines = 1
    TitleButtons = True
    OnCalcTitleAttributes = ConGridCalcTitleAttributes
    OnTitleButtonClick = ConGridTitleButtonClick
    OnDblClick = ConGridDblClick
    IndicatorColor = icYellow
  end
  object PushBut: TwwDBComboDlg
    Left = 212
    Top = 205
    Width = 85
    Height = 23
    OnCustomDlg = PushButCustomDlg
    ShowButton = True
    Style = csDropDown
    Color = 14417919
    DataField = 'LastVisited'
    DataSource = frmDataModule.dsCon
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = []
    MaxLength = 0
    ParentFont = False
    TabOrder = 3
  end
  object pushSendEmail: TwwDBComboDlg
    Left = 312
    Top = 204
    Width = 121
    Height = 21
    OnCustomDlg = pushSendEmailCustomDlg
    ShowButton = True
    Style = csDropDown
    Color = 15532031
    MaxLength = 0
    TabOrder = 4
  end
end