Componentes.Terceros.DevExp.../official/x.26/ExpressPivotGrid/Demos/Delphi/MultipleTotalsDemo/MultipleTotalsMain.dfm
2007-09-09 11:27:27 +00:00

108 lines
3.0 KiB
Plaintext

inherited frmMultipleTotals: TfrmMultipleTotals
Left = 224
Top = 226
Width = 814
Caption = 'Multiple Totals with Custom Summary'
PixelsPerInch = 96
TextHeight = 13
inherited lbDescrip: TLabel
Width = 806
Caption =
'This demo shows how you can provide multiple types of subtotals ' +
'for the outermost group values (either the row or column).'
end
object DBPivotGrid: TcxDBPivotGrid [1]
Left = 0
Top = 32
Width = 806
Height = 511
Align = alClient
DataSource = dmOrders.dsOrders
Groups = <>
OptionsSelection.MultiSelect = True
Styles.OnGetColumnHeaderStyle = PivotGridStylesGetGroupHeaderStyle
Styles.OnGetContentStyle = PivotGridStylesGetContentStyle
Styles.OnGetRowHeaderStyle = PivotGridStylesGetGroupHeaderStyle
TabOrder = 0
TabStop = True
object pgfPurchaseQuarter: TcxDBPivotGridField
Area = faColumn
AreaIndex = 0
IsCaptionAssigned = True
Caption = 'Purchase Quarter'
DataBinding.FieldName = 'PurchaseDate'
GroupInterval = giDateQuarter
Visible = True
end
object pgfPurchaseMonth: TcxDBPivotGridField
AreaIndex = 2
IsCaptionAssigned = True
Caption = 'Purchase Month'
DataBinding.FieldName = 'PurchaseDate'
GroupInterval = giDateMonth
Visible = True
end
object pgfCompanyName: TcxDBPivotGridField
Area = faRow
AreaIndex = 0
CustomTotals = <
item
SummaryType = stMin
end
item
SummaryType = stMax
end
item
SummaryType = stCount
end
item
end
item
SummaryType = stAverage
end
item
SummaryType = stCustom
DisplayFormat = '0.00 %'
end>
DataBinding.FieldName = 'Company Name'
TotalsVisibility = tvCustom
Visible = True
Width = 127
end
object cxDBPivotGrid1PaymentType: TcxDBPivotGridField
AreaIndex = 0
IsCaptionAssigned = True
Caption = 'Payment Type'
DataBinding.FieldName = 'PaymentType'
Visible = True
end
object cxDBPivotGrid1Quantity: TcxDBPivotGridField
Area = faData
AreaIndex = 1
DataBinding.FieldName = 'Quantity'
Visible = True
OnCalculateCustomSummary = CalculateCustomSummary
end
object cxDBPivotGrid1CarName: TcxDBPivotGridField
Area = faRow
AreaIndex = 1
DataBinding.FieldName = 'Car Name'
Visible = True
end
object cxDBPivotGrid1UnitPrice: TcxDBPivotGridField
AreaIndex = 1
DataBinding.FieldName = 'Unit Price'
Visible = True
end
object cxDBPivotGrid1PaymentAmount: TcxDBPivotGridField
Area = faData
AreaIndex = 0
IsCaptionAssigned = True
Caption = 'Payment Amount'
DataBinding.FieldName = 'PaymentAmount'
Visible = True
OnCalculateCustomSummary = CalculateCustomSummary
end
end
end