object MasterDetailGridForm: TMasterDetailGridForm
  Left = 159
  Top = 119
  Caption = 'InfoPower - Master/Detail View From Single Grid Demo'
  ClientHeight = 546
  ClientWidth = 890
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object SpeedButton1: TSpeedButton
    Left = 72
    Top = 40
    Width = 25
    Height = 25
  end
  object CustomerGrid: TwwDBGrid
    Left = 0
    Top = 0
    Width = 890
    Height = 546
    LineStyle = gls3D
    ControlType.Strings = (
      'Orders;CustomEdit;wwExpandButton1;F'
      'Company;URL-Link;Company'
      'State;CustomEdit;wwDBEdit2;F')
    Selected.Strings = (
      'Orders'#9'3'#9' '#9'F'
      'CustNo'#9'9'#9'Cust No'#9'F'
      'Country'#9'19'#9'Country'#9'F'
      'LastInvoiceDate'#9'22'#9'Last Invoice Date'#9'F'
      'Company'#9'23'#9'Company'#9'F')
    IniAttributes.FileName = 'm:\ip2001\temp.ini'
    IniAttributes.Delimiter = ';;'
    IniAttributes.UnicodeIniFile = False
    TitleColor = clBtnFace
    FixedCols = 0
    ShowHorzScrollBar = True
    Align = alClient
    Color = clInfoBk
    DataSource = DataSource1
    TabOrder = 0
    TitleAlignment = taLeftJustify
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    TitleLines = 1
    TitleButtons = False
    UseTFields = False
    OnCalcTitleImage = CustomerGridCalcTitleImage
    TitleImageList = ImageList1
    PaintOptions.BackgroundBitmap.Data = {
      07544269746D617056020000424D560200000000000076000000280000001E00
      00001E0000000100040000000000E0010000C40E0000C40E0000100000000000
      0000D9EEEE00C7E0E000EBFEFE00C6DFDF00B3D0D000EDFFFF00DAEFEF00B2CF
      CF00A1C0C000FFFFFF0000000000000000000000000000000000000000000000
      0000600111111111111333111116660110000001111110011111331111100011
      3000600001110601111111110000011331000000000000011111111000000011
      1100600000001100001111111006001111000000001111166600001111126011
      1000111001160006666666014411060011001100601000006666660111110001
      3300110666000000006662260001001111000000000000000006622226611111
      1000000111100011000662222260111106000601111000010006662222620113
      1100660111060000000600062662611111000601106660000000011066026111
      0600660000060100001062662262201102000600000600000000626622626011
      0200600006666000000062662262601102000066666666011000066622660011
      0600266622266001100000666660001006002226222660011100100000000000
      6600200666660000113131000000000662000000000601100341330011000066
      2200000006600000134000011111106626000000000111111111111111310066
      6600000001144333111331111110066600001000000114311113100000100060
      0000310066661410001111000000000001003110022201302011111111100000
      1100111002220000000011333110000000000010022222013100011310022000
      0000}
    PaintOptions.AlternatingRowColor = clBlue
    PaintOptions.BackgroundOptions = [coFillDataCells, coBlendFixedRow, coBlendFixedColumn, coBlendAlternatingRow]
    ExplicitWidth = 528
  end
  object InvoiceGrid: TwwDBGrid
    Left = 26
    Top = 96
    Width = 479
    Height = 173
    ControlType.Strings = (
      'Items;CustomEdit;wwExpandButton2;F'
      'ShipDate;CustomEdit;wwDBDateTimePicker1;F')
    Selected.Strings = (
      'Items'#9'5'#9'Items'#9'F'
      'OrderNo'#9'4'#9'Order~No'#9'F'
      'SaleDate'#9'5'#9'Sale'#9'F'#9'Date'
      'ShipDate'#9'11'#9'Ship'#9'F'#9'Date'
      'ShipToContact'#9'11'#9'Ship To Contact'#9'F'
      'CustNo'#9'19'#9'Cust No.'#9'F'
      'ItemsTotal'#9'13'#9'Items~Total'#9'F')
    IniAttributes.FileName = 'delphi32.ini.ini'
    IniAttributes.Delimiter = ';;'
    IniAttributes.UnicodeIniFile = False
    TitleColor = clBtnFace
    FixedCols = 0
    ShowHorzScrollBar = True
    Color = clWhite
    Ctl3D = False
    DataSource = DataSource2
    Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgWordWrap, dgShowFooter, dgFooter3DCells, dgProportionalColResize]
    ParentCtl3D = False
    TabOrder = 1
    TitleAlignment = taCenter
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    TitleLines = 2
    TitleButtons = False
    UseTFields = False
    Visible = False
    OnUpdateFooter = InvoiceGridUpdateFooter
    OnBeforePaint = InvoiceGridBeforePaint
    TitleImageList = ImageList1
    PaintOptions.BackgroundBitmap.Data = {
      07544269746D617056020000424D560200000000000076000000280000001E00
      00001E0000000100040000000000E0010000C40E0000C40E0000100000000000
      0000D9EEEE00C7E0E000EBFEFE00C6DFDF00B3D0D000EDFFFF00DAEFEF00B2CF
      CF00A1C0C000FFFFFF0000000000000000000000000000000000000000000000
      0000600111111111111333111116660110000001111110011111331111100011
      3000600001110601111111110000011331000000000000011111111000000011
      1100600000001100001111111006001111000000001111166600001111126011
      1000111001160006666666014411060011001100601000006666660111110001
      3300110666000000006662260001001111000000000000000006622226611111
      1000000111100011000662222260111106000601111000010006662222620113
      1100660111060000000600062662611111000601106660000000011066026111
      0600660000060100001062662262201102000600000600000000626622626011
      0200600006666000000062662262601102000066666666011000066622660011
      0600266622266001100000666660001006002226222660011100100000000000
      6600200666660000113131000000000662000000000601100341330011000066
      2200000006600000134000011111106626000000000111111111111111310066
      6600000001144333111331111110066600001000000114311113100000100060
      0000310066661410001111000000000001003110022201302011111111100000
      1100111002220000000011333110000000000010022222013100011310022000
      0000}
    PaintOptions.FastRecordScrolling = False
    PaintOptions.BackgroundOptions = [coBlendFixedRow, coBlendFixedColumn]
  end
  object wwExpandButton1: TwwExpandButton
    Left = 176
    Top = 24
    Width = 22
    Height = 16
    DisableThemes = False
    Grid = InvoiceGrid
    AutoShrink = False
    OnBeforeCollapse = wwExpandButton1BeforeCollapse
    OnAfterExpand = wwExpandButton1AfterExpand
    GridIndents.X = 11
    Caption = 'False'
    TabOrder = 2
    ButtonAlignment = taCenter
  end
  object ItemsGrid: TwwDBGrid
    Left = 184
    Top = 136
    Width = 265
    Height = 92
    Selected.Strings = (
      'ItemNo'#9'9'#9'Item No'#9'F'
      'PartNo'#9'8'#9'Part No'#9'F'
      'Qty'#9'10'#9'Qty'#9'F'
      'Discount'#9'8'#9'Discount'#9'F')
    IniAttributes.FileName = 'delphi32.ini.ini'
    IniAttributes.Delimiter = ';;'
    IniAttributes.UnicodeIniFile = False
    TitleColor = clBtnFace
    FixedCols = 0
    ShowHorzScrollBar = False
    Ctl3D = False
    DataSource = DataSource3
    Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgWordWrap, dgProportionalColResize]
    ParentCtl3D = False
    TabOrder = 3
    TitleAlignment = taRightJustify
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    TitleLines = 1
    TitleButtons = False
    UseTFields = False
    Visible = False
    OnBeforePaint = InvoiceGridBeforePaint
    PaintOptions.BackgroundBitmap.Data = {
      07544269746D617056020000424D560200000000000076000000280000001E00
      00001E0000000100040000000000E0010000C40E0000C40E0000100000000000
      0000D9EEEE00C7E0E000EBFEFE00C6DFDF00B3D0D000EDFFFF00DAEFEF00B2CF
      CF00A1C0C000FFFFFF0000000000000000000000000000000000000000000000
      0000600111111111111333111116660110000001111110011111331111100011
      3000600001110601111111110000011331000000000000011111111000000011
      1100600000001100001111111006001111000000001111166600001111126011
      1000111001160006666666014411060011001100601000006666660111110001
      3300110666000000006662260001001111000000000000000006622226611111
      1000000111100011000662222260111106000601111000010006662222620113
      1100660111060000000600062662611111000601106660000000011066026111
      0600660000060100001062662262201102000600000600000000626622626011
      0200600006666000000062662262601102000066666666011000066622660011
      0600266622266001100000666660001006002226222660011100100000000000
      6600200666660000113131000000000662000000000601100341330011000066
      2200000006600000134000011111106626000000000111111111111111310066
      6600000001144333111331111110066600001000000114311113100000100060
      0000310066661410001111000000000001003110022201302011111111100000
      1100111002220000000011333110000000000010022222013100011310022000
      0000}
    PaintOptions.BackgroundOptions = [coBlendFixedRow, coBlendFixedColumn]
  end
  object wwExpandButton2: TwwExpandButton
    Left = 224
    Top = 24
    Width = 34
    Height = 16
    DisableThemes = False
    Grid = ItemsGrid
    OnBeforeCollapse = wwExpandButton2BeforeCollapse
    OnAfterExpand = wwExpandButton1AfterExpand
    GridIndents.X = 17
    Caption = 'False'
    TabOrder = 4
    ButtonAlignment = taCenter
  end
  object DataSource1: TDataSource
    DataSet = CustomerClientDataSet
    Left = 608
    Top = 32
  end
  object DataSource2: TDataSource
    DataSet = InvoiceClientDataSet
    Left = 608
    Top = 64
  end
  object DataSource3: TDataSource
    DataSet = ItemsClientDataSet1
    Left = 608
    Top = 104
  end
  object ImageList1: TImageList
    Left = 616
    Top = 352
    Bitmap = {
      [encoded data, 17216 characters]
      000000000000}
  end
  object InvoiceClientDataSet: TClientDataSet
    Active = True
    Aggregates = <>
    IndexFieldNames = 'CustNo'
    MasterFields = 'CustNo'
    MasterSource = DataSource1
    PacketRecords = 0
    Params = <>
    Left = 640
    Top = 64
    Data = {
      [encoded data, 91776 characters]
      6666479C40000000000000000000000000000000006666666666479C40}
    object InvoiceClientDataSetCustNo: TFloatField
      FieldName = 'CustNo'
    end
    object InvoiceClientDataSetCompany: TStringField
      FieldName = 'Company'
      Size = 30
    end
    object InvoiceClientDataSetAddr1: TStringField
      FieldName = 'Addr1'
      Size = 30
    end
    object InvoiceClientDataSetAddr2: TStringField
      FieldName = 'Addr2'
      Size = 30
    end
    object InvoiceClientDataSetCity: TStringField
      FieldName = 'City'
      Size = 15
    end
    object InvoiceClientDataSetState: TStringField
      FieldName = 'State'
    end
    object InvoiceClientDataSetZip: TStringField
      FieldName = 'Zip'
      Size = 10
    end
    object InvoiceClientDataSetCountry: TStringField
      FieldName = 'Country'
    end
    object InvoiceClientDataSetPhone: TStringField
      FieldName = 'Phone'
      Size = 15
    end
    object InvoiceClientDataSetFAX: TStringField
      FieldName = 'FAX'
      Size = 15
    end
    object InvoiceClientDataSetTaxRate: TFloatField
      FieldName = 'TaxRate'
    end
    object InvoiceClientDataSetContact: TStringField
      FieldName = 'Contact'
    end
    object InvoiceClientDataSetLastInvoiceDate: TDateTimeField
      FieldName = 'LastInvoiceDate'
    end
    object InvoiceClientDataSetOrderNo: TFloatField
      FieldName = 'OrderNo'
    end
    object InvoiceClientDataSetCustNo_1: TFloatField
      FieldName = 'CustNo_1'
    end
    object InvoiceClientDataSetSaleDate: TDateTimeField
      FieldName = 'SaleDate'
    end
    object InvoiceClientDataSetShipDate: TDateTimeField
      FieldName = 'ShipDate'
    end
    object InvoiceClientDataSetEmpNo: TIntegerField
      FieldName = 'EmpNo'
    end
    object InvoiceClientDataSetShipToContact: TStringField
      FieldName = 'ShipToContact'
    end
    object InvoiceClientDataSetShipToAddr1: TStringField
      FieldName = 'ShipToAddr1'
      Size = 30
    end
    object InvoiceClientDataSetShipToAddr2: TStringField
      FieldName = 'ShipToAddr2'
      Size = 30
    end
    object InvoiceClientDataSetShipToCity: TStringField
      FieldName = 'ShipToCity'
      Size = 15
    end
    object InvoiceClientDataSetShipToState: TStringField
      FieldName = 'ShipToState'
    end
    object InvoiceClientDataSetShipToZip: TStringField
      FieldName = 'ShipToZip'
      Size = 10
    end
    object InvoiceClientDataSetShipToCountry: TStringField
      FieldName = 'ShipToCountry'
    end
    object InvoiceClientDataSetShipToPhone: TStringField
      FieldName = 'ShipToPhone'
      Size = 15
    end
    object InvoiceClientDataSetShipVIA: TStringField
      FieldName = 'ShipVIA'
      Size = 7
    end
    object InvoiceClientDataSetPO: TStringField
      FieldName = 'PO'
      Size = 15
    end
    object InvoiceClientDataSetTerms: TStringField
      FieldName = 'Terms'
      Size = 6
    end
    object InvoiceClientDataSetPaymentMethod: TStringField
      FieldName = 'PaymentMethod'
      Size = 7
    end
    object InvoiceClientDataSetItemsTotal: TCurrencyField
      FieldName = 'ItemsTotal'
    end
    object InvoiceClientDataSetTaxRate_1: TFloatField
      FieldName = 'TaxRate_1'
    end
    object InvoiceClientDataSetFreight: TCurrencyField
      FieldName = 'Freight'
    end
    object InvoiceClientDataSetAmountPaid: TCurrencyField
      FieldName = 'AmountPaid'
    end
    object InvoiceClientDataSetItems: TIntegerField
      FieldKind = fkCalculated
      FieldName = 'Items'
      Calculated = True
    end
  end
  object CustomerClientDataSet: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    Left = 640
    Top = 32
    Data = {
      [encoded data, 16192 characters]
      4C6F75697365204672616E6B7300446FBD72A0CC42}
    object CustomerClientDataSetOrders: TIntegerField
      FieldKind = fkCalculated
      FieldName = 'Orders'
      Calculated = True
    end
    object CustomerClientDataSetCustNo: TFloatField
      FieldName = 'CustNo'
    end
    object CustomerClientDataSetCompany: TStringField
      FieldName = 'Company'
      Size = 30
    end
    object CustomerClientDataSetAddr1: TStringField
      FieldName = 'Addr1'
      Size = 30
    end
    object CustomerClientDataSetAddr2: TStringField
      FieldName = 'Addr2'
      Size = 30
    end
    object CustomerClientDataSetCity: TStringField
      FieldName = 'City'
      Size = 15
    end
    object CustomerClientDataSetState: TStringField
      FieldName = 'State'
    end
    object CustomerClientDataSetZip: TStringField
      FieldName = 'Zip'
      Size = 10
    end
    object CustomerClientDataSetCountry: TStringField
      FieldName = 'Country'
    end
    object CustomerClientDataSetPhone: TStringField
      FieldName = 'Phone'
      Size = 15
    end
    object CustomerClientDataSetFAX: TStringField
      FieldName = 'FAX'
      Size = 15
    end
    object CustomerClientDataSetTaxRate: TFloatField
      FieldName = 'TaxRate'
    end
    object CustomerClientDataSetContact: TStringField
      FieldName = 'Contact'
    end
    object CustomerClientDataSetLastInvoiceDate: TDateTimeField
      FieldName = 'LastInvoiceDate'
    end
  end
  object ItemsClientDataSet1: TClientDataSet
    Active = True
    Aggregates = <>
    IndexFieldNames = 'OrderNo'
    MasterFields = 'OrderNo'
    MasterSource = DataSource2
    PacketRecords = 0
    Params = <>
    Left = 640
    Top = 104
    Data = {
      [encoded data, 74112 characters]
      0000000000}
    object ItemsClientDataSet1OrderNo: TFloatField
      FieldName = 'OrderNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object ItemsClientDataSet1ItemNo: TFloatField
      FieldName = 'ItemNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object ItemsClientDataSet1PartNo: TFloatField
      FieldName = 'PartNo'
    end
    object ItemsClientDataSet1Qty: TIntegerField
      FieldName = 'Qty'
    end
    object ItemsClientDataSet1Discount: TFloatField
      FieldName = 'Discount'
    end
  end
end
