object BitmapForm: TBitmapForm
  Left = 151
  Top = 132
  BorderStyle = bsDialog
  Caption = 'Company Database'
  ClientHeight = 384
  ClientWidth = 492
  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 DBText1: TDBText
    Left = 8
    Top = 8
    Width = 5
    Height = 24
    AutoSize = True
    DataField = 'Full Name'
    DataSource = CustomerDS
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object DBText2: TDBText
    Left = 8
    Top = 48
    Width = 5
    Height = 13
    AutoSize = True
    DataField = 'Full Address'
    DataSource = CustomerDS
  end
  object DBText3: TDBText
    Left = 8
    Top = 32
    Width = 132
    Height = 13
    AutoSize = True
    DataField = 'Street'
    DataSource = CustomerDS
  end
  object InvoiceGrid: TwwDBGrid
    Left = 8
    Top = 68
    Width = 476
    Height = 118
    ControlInfoInDataset = False
    ControlType.Strings = (
      'Payment Method;CustomEdit;PayMethCombo;F'
      'PayImageIndex;ImageIndex;Shrink To Fit')
    Selected.Strings = (
      'Invoice No'#9'7'#9'Invoice~No'#9'F'
      'Purchase Date'#9'14'#9'Purchase~Date'#9'F'
      'PayImageIndex'#9'10'#9'Card Type'#9'F'
      'Payment Method'#9'18'#9'Payment~Method'#9'F'
      'Total Invoice'#9'10'#9'Total~Invoice'#9'F'
      'Balance Due'#9'10'#9'Balance~Due'#9'F')
    IniAttributes.FileName = 'delphi32.ini'
    IniAttributes.SectionName = 'BitmapFormInvoiceGrid'
    IniAttributes.Delimiter = ';;'
    TitleColor = clBtnFace
    FixedCols = 0
    ShowHorzScrollBar = True
    DataSource = InvoiceDS
    EditCalculated = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    KeyOptions = [dgEnterToTab, dgAllowDelete, dgAllowInsert]
    Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgShowFooter]
    ParentFont = False
    RowHeightPercent = 120
    TabOrder = 0
    TitleAlignment = taCenter
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clBlack
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = [fsBold]
    TitleLines = 2
    TitleButtons = False
    UseTFields = False
    OnCalcCellColors = InvoiceGridCalcCellColors
    OnCalcTitleAttributes = InvoiceGridCalcTitleAttributes
    OnDblClick = InvoiceGridDblClick
    OnKeyDown = InvoiceGridKeyDown
    OnUpdateFooter = InvoiceGridUpdateFooter
    ImageList = ImageList1
  end
  object PayMethCombo: TwwDBComboBox
    Left = 440
    Top = 96
    Width = 23
    Height = 21
    ShowButton = True
    Style = csDropDownList
    MapList = True
    AllowClearKey = False
    DropDownCount = 8
    HistoryList.FileName = 'delphi32.ini.ini'
    ItemHeight = 0
    Items.Strings = (
      'American Express'#9'0'
      'MasterCard'#9'2'
      'Visa'#9'1')
    Sorted = True
    TabOrder = 1
    UnboundDataType = wwDefault
    Visible = False
    OnCloseUp = PayMethComboCloseUp
  end
  object wwDBRichEdit1: TwwDBRichEdit
    Left = 7
    Top = 192
    Width = 475
    Height = 177
    ScrollBars = ssVertical
    AutoURLDetect = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    GutterWidth = 3
    HideSelection = False
    ParentFont = False
    PrintJobName = 'Delphi 3'
    TabOrder = 2
    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 = {
      A60400007B5C727466315C616E73695C616E7369637067313235325C64656666
      305C6465666C616E67313033337B5C666F6E7474626C7B5C66305C666E696C5C
      6663686172736574302054696D6573204E657720526F6D616E3B7D7B5C66315C
      666E696C5C6663686172736574322053796D626F6C3B7D7D0D0A7B5C636F6C6F
      7274626C203B5C726564305C677265656E305C626C75653132383B5C72656430
      5C677265656E305C626C7565303B7D0D0A5C766965776B696E64345C7563315C
      706172645C736137325C66305C66733138205468697320666F726D2064656D6F
      6E737472617465732074686520666F6C6C6F77696E6720496E666F506F776572
      2066756E6374696F6E616C6974793A5C7061720D0A5C706172647B5C706E7465
      78745C66315C2742375C7461627D7B5C2A5C706E5C706E6C766C626C745C706E
      66315C706E696E64656E74307B5C706E747874625C2742377D7D5C66692D3138
      305C6C693138305C736134335C6366315C6220466F6F74657220537570706F72
      74203A205C6366325C623020446973706C617920666F6F746572732074686174
      20636F6E7461696E20636F6C756D6E2073756D6D61727920696E666F726D6174
      696F6E2E2020496E20746869732064656D6F2074686520666F6F746572206973
      2075706461746564207768656E76657220796F75206D6F766520746F2061206E
      657720637573746F6D65722C206F72207768656E20796F75206368616E676520
      616E6420706F7374206F6E65206F662074686520726F777320696E2074686520
      677269642E5C7061720D0A5C6366315C627B5C706E746578745C66315C274237
      5C7461627D496D6167654C69737420537570706F7274203A205C6366325C6230
      20446973706C6179206269746D6170732066726F6D20496D616765204C697374
      732E205468652043617264205479706520636F6C756D6E206469737061797320
      61206269746D61702066726F6D20616E20496D6167654C6973742E5C7061720D
      0A5C6366315C627B5C706E746578745C66315C2742375C7461627D456D626564
      20496E666F506F7765722773206E6577204461746554696D655069636B657220
      636F6E74726F6C3A205C6366325C6230205468652067726964206175746F6D61
      746963616C6C79206372656174657320616E6420656D62656473204461746554
      696D655069636B657220636F6E74726F6C7320666F7220646174652F74696D65
      206669656C64732E5C7061720D0A5C6366315C627B5C706E746578745C66315C
      2742375C7461627D5573652061206D617070656420636F6D626F2D626F78205C
      6366305C6230202D204950277320436F6D626F626F782063616E20646973706C
      6179206D6F7265206D65616E696E6766756C207465787420627574207374696C
      6C2073746F7265206120636F6E636973652076657273696F6E2E2020496E2074
      686973206578616D706C652C2074686520636F6E74726F6C20646973706C6179
      732061206C6F6E67206465736372697074696F6E20666F7220746865205C756C
      205061796D656E74204D6574686F645C756C6E6F6E65202C206275742073746F
      72657320616E20696E74656765722E5C7061720D0A5C706172645C6366325C62
      5C7061720D0A7D0D0A00}
  end
  object wwDBNavigator1: TwwDBNavigator
    Left = 280
    Top = 32
    Width = 202
    Height = 27
    DataSource = CustomerDS
    ShowHint = True
    RepeatInterval.InitialDelay = 500
    RepeatInterval.Interval = 100
    BevelInner = bvRaised
    ParentShowHint = False
    object wwDBNavigator1First: TwwNavButton
      Left = 1
      Top = 1
      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 wwDBNavigator1PriorPage: TwwNavButton
      Left = 26
      Top = 1
      Width = 25
      Height = 25
      Hint = 'Move backward 10 records'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1PriorPage'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 1
      Style = nbsPriorPage
    end
    object wwDBNavigator1Prior: TwwNavButton
      Left = 51
      Top = 1
      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 = 2
      Style = nbsPrior
    end
    object wwDBNavigator1Next: TwwNavButton
      Left = 76
      Top = 1
      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 = 3
      Style = nbsNext
    end
    object wwDBNavigator1NextPage: TwwNavButton
      Left = 101
      Top = 1
      Width = 25
      Height = 25
      Hint = 'Move forward 10 records'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1NextPage'
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 4
      Style = nbsNextPage
    end
    object wwDBNavigator1Last: TwwNavButton
      Left = 126
      Top = 1
      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 = 5
      Style = nbsLast
    end
    object wwDBNavigator1SaveBookmark: TwwNavButton
      Left = 151
      Top = 1
      Width = 25
      Height = 25
      Hint = 'Bookmark current record'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1SaveBookmark'
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 6
      Style = nbsSaveBookmark
    end
    object wwDBNavigator1RestoreBookmark: TwwNavButton
      Left = 176
      Top = 1
      Width = 25
      Height = 25
      Hint = 'Go back to saved bookmark'
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1RestoreBookmark'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 7
      Style = nbsRestoreBookmark
    end
  end
  object CustomerDS: TDataSource
    DataSet = CustomerClientDataSet
    Left = 80
  end
  object InvoiceDS: TDataSource
    DataSet = InvoiceClientDataSet
    Left = 80
    Top = 40
  end
  object ImageList1: TImageList
    Height = 29
    Width = 66
    Left = 168
    Top = 16
    Bitmap = {
      [encoded data, 63616 characters]
      0000000000000000000000000000000000000000000000000000}
  end
  object CustomerClientDataSet: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    OnCalcFields = CustomerClientDataSetCalcFields
    Left = 112
    Data = {
      [encoded data, 44608 characters]
      000000000000000000}
    object CustomerClientDataSetCustomerNo: TIntegerField
      FieldName = 'Customer No'
    end
    object CustomerClientDataSetCompanyName: TStringField
      FieldName = 'Company Name'
      Size = 40
    end
    object CustomerClientDataSetFirstName: TStringField
      FieldName = 'First Name'
      Size = 25
    end
    object CustomerClientDataSetLastName: TStringField
      FieldName = 'Last Name'
      Size = 25
    end
    object CustomerClientDataSetCity: TStringField
      FieldName = 'City'
      Size = 25
    end
    object CustomerClientDataSetState: TStringField
      FieldName = 'State'
      Size = 25
    end
    object CustomerClientDataSetZip: TStringField
      FieldName = 'Zip'
      Size = 10
    end
    object CustomerClientDataSetBuyer: TStringField
      FieldName = 'Buyer'
      Size = 3
    end
    object CustomerClientDataSetStreet: TStringField
      FieldName = 'Street'
      Size = 60
    end
    object CustomerClientDataSetFirstContactDate: TDateField
      FieldName = 'First Contact Date'
    end
    object CustomerClientDataSetPhoneNumber: TStringField
      FieldName = 'Phone Number'
    end
    object CustomerClientDataSetInformation: TMemoField
      FieldName = 'Information'
      BlobType = ftMemo
      Size = 80
    end
    object CustomerClientDataSetRequestedDemo: TStringField
      FieldName = 'Requested Demo'
      Size = 3
    end
    object CustomerClientDataSetLogical: TBooleanField
      FieldName = 'Logical'
    end
    object CustomerClientDataSetFullName: TStringField
      FieldKind = fkCalculated
      FieldName = 'Full Name'
      ReadOnly = True
      Calculated = True
    end
    object CustomerClientDataSetFullAddress: TStringField
      FieldKind = fkCalculated
      FieldName = 'Full Address'
      ReadOnly = True
      Calculated = True
    end
    object CustomerClientDataSetInvoiceTable: TDataSetField
      FieldName = 'InvoiceTable'
    end
  end
  object InvoiceClientDataSet: TClientDataSet
    Active = True
    Aggregates = <>
    IndexFieldNames = 'Customer No'
    MasterFields = 'Customer No'
    MasterSource = CustomerDS
    PacketRecords = 0
    Params = <>
    OnCalcFields = InvoiceClientDataSetCalcFields
    Left = 112
    Top = 40
    Data = {
      [encoded data, 18176 characters]
      18157240261E0B000000000000000000}
    object InvoiceClientDataSetCustomerNo: TIntegerField
      FieldName = 'Customer No'
    end
    object InvoiceClientDataSetInvoiceNo: TFloatField
      FieldName = 'Invoice No'
    end
    object InvoiceClientDataSetPaymentMethod: TFloatField
      FieldName = 'Payment Method'
    end
    object InvoiceClientDataSetTotalInvoice: TCurrencyField
      FieldName = 'Total Invoice'
    end
    object InvoiceClientDataSetPurchaseDate: TDateField
      FieldName = 'Purchase Date'
    end
    object InvoiceClientDataSetBalanceDue: TCurrencyField
      FieldName = 'Balance Due'
    end
    object InvoiceClientDataSetPayImageIndex: TIntegerField
      FieldKind = fkCalculated
      FieldName = 'PayImageIndex'
      ReadOnly = True
      Calculated = True
    end
    object InvoiceClientDataSetMyDate: TDateTimeField
      FieldName = 'MyDate'
      ReadOnly = True
    end
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 256
  end
end
