Componentes.Terceros.DevExpressVCL/official/x.30/ExpressMasterView/Demos/Delphi/HugeTables/main.dfm

object fmMain: TfmMain
  Left = 199
  Top = 130
  Width = 697
  Height = 494
  Caption = 
    'MasterView - HugeTablesDemo (Customers - 1 000 rec., Orders - 10' +
    ' 000 rec., Items - 100 000 rec.)'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OnActivate = FormActivate
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object MasterView: TdxMasterView
    Left = 0
    Top = 0
    Width = 689
    Height = 391
    Align = alClient
    TabOrder = 0
    OptionsBehavior = [mobShowHourGlassCursor]
    object Level1: TdxMasterViewLevel
      Caption = 'Level1'
      DataSource = dsCustomers
      ID = 'ID'
      object Level1ID: TdxMasterViewColumn
        FieldName = 'ID'
        RowIndex = 0
        ColIndex = 0
      end
      object Level1CustomerName: TdxMasterViewColumn
        FieldName = 'CustomerName'
        RowIndex = 0
        ColIndex = 1
      end
      object Level1Company: TdxMasterViewColumn
        FieldName = 'Company'
        RowIndex = 0
        ColIndex = 2
      end
      object Level1PurchaseDate: TdxMasterViewColumn
        FieldName = 'PurchaseDate'
        RowIndex = 0
        ColIndex = 3
      end
      object Level1Address: TdxMasterViewColumn
        FieldName = 'Address'
        RowIndex = 0
        ColIndex = 4
      end
      object Level1Customer: TdxMasterViewColumn
        FieldName = 'Customer'
        RowIndex = 0
        ColIndex = 5
      end
      object Level1City: TdxMasterViewColumn
        FieldName = 'City'
        RowIndex = 0
        ColIndex = 6
      end
      object Level1State: TdxMasterViewColumn
        FieldName = 'State'
        RowIndex = 0
        ColIndex = 7
      end
      object Level1HomePhone: TdxMasterViewColumn
        FieldName = 'HomePhone'
        RowIndex = 0
        ColIndex = 8
      end
      object Level2: TdxMasterViewLevel
        Caption = 'Level2'
        DataSource = dsOrders
        DetailKey = 'CustomerNo'
        ID = 'OrderNo'
        MasterKey = 'ID'
        object Level2OrderNo: TdxMasterViewColumn
          FieldName = 'OrderNo'
          RowIndex = 0
          ColIndex = 0
        end
        object Level2CustomerNo: TdxMasterViewColumn
          FieldName = 'CustomerNo'
          RowIndex = 0
          ColIndex = 1
        end
        object Level2PaymentType: TdxMasterViewColumn
          FieldName = 'PaymentType'
          RowIndex = 0
          ColIndex = 2
        end
        object Level2PaymentAmount: TdxMasterViewColumn
          FieldName = 'PaymentAmount'
          RowIndex = 0
          ColIndex = 3
        end
        object Level3: TdxMasterViewLevel
          Caption = 'Level3'
          DataSource = dsItems
          DetailKey = 'OrderNo'
          ID = 'ItemNo'
          MasterKey = 'OrderNo'
          object Level3ItemNo: TdxMasterViewColumn
            FieldName = 'ItemNo'
            RowIndex = 0
            ColIndex = 0
          end
          object Level3OrderNo: TdxMasterViewColumn
            FieldName = 'OrderNo'
            RowIndex = 0
            ColIndex = 1
          end
          object Level3PartNo: TdxMasterViewColumn
            FieldName = 'PartNo'
            RowIndex = 0
            ColIndex = 2
          end
          object Level3Qty: TdxMasterViewColumn
            FieldName = 'Qty'
            RowIndex = 0
            ColIndex = 3
          end
        end
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 391
    Width = 689
    Height = 56
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    object btnCustomize: TButton
      Left = 16
      Top = 8
      Width = 75
      Height = 25
      Caption = 'Customize'
      TabOrder = 0
      OnClick = btnCustomizeClick
    end
    object btnFullCollapse: TButton
      Left = 184
      Top = 8
      Width = 75
      Height = 25
      Caption = 'FullCollapse'
      TabOrder = 1
      OnClick = btnFullCollapseClick
    end
    object btnFullExpand: TButton
      Left = 104
      Top = 8
      Width = 75
      Height = 25
      Caption = 'FullExpand'
      TabOrder = 2
      OnClick = btnFullExpandClick
    end
    object chbSmartLoadLevel1: TCheckBox
      Left = 280
      Top = 8
      Width = 105
      Height = 13
      Caption = 'SmartLoadLevel1'
      TabOrder = 3
      OnClick = chbSmartLoadLevel1Click
    end
    object btnReloadDataset: TButton
      Left = 392
      Top = 8
      Width = 97
      Height = 25
      Caption = 'ReloadDatasets'
      TabOrder = 4
      OnClick = btnReloadDatasetClick
    end
    object chbSmartLoadLevel2: TCheckBox
      Tag = 1
      Left = 280
      Top = 24
      Width = 105
      Height = 13
      Caption = 'SmartLoadLevel2'
      TabOrder = 5
      OnClick = chbSmartLoadLevel2Click
    end
    object chbSmartLoadLevel3: TCheckBox
      Tag = 2
      Left = 280
      Top = 40
      Width = 105
      Height = 13
      Caption = 'SmartLoadLevel3'
      TabOrder = 6
      OnClick = chbSmartLoadLevel3Click
    end
  end
  object ProgressBar: TProgressBar
    Left = 426
    Top = 6
    Width = 150
    Height = 16
    Hint = '1212000'
    Min = 0
    Max = 100
    TabOrder = 2
    Visible = False
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 447
    Width = 689
    Height = 20
    Panels = <
      item
        Width = 250
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object tbCustomers: TTable
    TableName = 'Customers'
    TableType = ttParadox
    Left = 308
    Top = 26
    object tbCustomersID: TIntegerField
      FieldName = 'ID'
      Required = True
    end
    object tbCustomersCustomerName: TStringField
      FieldName = 'CustomerName'
      Required = True
    end
    object tbCustomersCompany: TStringField
      FieldName = 'Company'
      Size = 30
    end
    object tbCustomersAddress: TStringField
      FieldName = 'Address'
      Size = 50
    end
    object tbCustomersCustomer: TBooleanField
      FieldName = 'Customer'
    end
    object tbCustomersCity: TStringField
      FieldName = 'City'
    end
    object tbCustomersState: TStringField
      FieldName = 'State'
      Size = 2
    end
    object tbCustomersHomePhone: TStringField
      FieldName = 'HomePhone'
      Size = 15
    end
    object tbCustomersPurchaseDate: TDateTimeField
      FieldName = 'PurchaseDate'
    end
  end
  object dsCustomers: TDataSource
    DataSet = tbCustomers
    Left = 344
    Top = 22
  end
  object tbOrders: TTable
    TableName = 'Orders'
    Left = 312
    Top = 56
    object tbOrdersOrderNo: TIntegerField
      FieldName = 'OrderNo'
      Required = True
    end
    object tbOrdersCustomerNo: TIntegerField
      FieldName = 'CustomerNo'
      Required = True
    end
    object tbOrdersPaymentType: TStringField
      FieldName = 'PaymentType'
    end
    object tbOrdersPaymentAmount: TCurrencyField
      FieldName = 'PaymentAmount'
    end
  end
  object dsOrders: TDataSource
    DataSet = tbOrders
    Left = 344
    Top = 56
  end
  object tbItems: TTable
    TableName = 'Items'
    Left = 312
    Top = 88
    object tbItemsItemNo: TIntegerField
      FieldName = 'ItemNo'
      Required = True
    end
    object tbItemsOrderNo: TIntegerField
      FieldName = 'OrderNo'
      Required = True
    end
    object tbItemsPartNo: TIntegerField
      FieldName = 'PartNo'
    end
    object tbItemsQty: TIntegerField
      FieldName = 'Qty'
    end
  end
  object dsItems: TDataSource
    DataSet = tbItems
    Left = 344
    Top = 88
  end
end