david
5678df5538
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@31 05c56307-c608-d34a-929d-697000501d7a
400 lines
12 KiB
Plaintext
400 lines
12 KiB
Plaintext
object SummaryMultiDemoMainForm: TSummaryMultiDemoMainForm
|
|
Left = 300
|
|
Top = 120
|
|
Caption = 'ExpressQuantumGrid Summary Multi Demo'
|
|
ClientHeight = 546
|
|
ClientWidth = 792
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
Menu = mmMain
|
|
OldCreateOrder = False
|
|
Position = poScreenCenter
|
|
OnShow = FormShow
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object lbDescription: TLabel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 792
|
|
Height = 29
|
|
Align = alTop
|
|
AutoSize = False
|
|
Caption =
|
|
' This demo shows summaries at all locations available in the gr' +
|
|
'id: footer, group and group footer'
|
|
Color = 12937777
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWhite
|
|
Font.Height = -13
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentColor = False
|
|
ParentFont = False
|
|
Layout = tlCenter
|
|
WordWrap = True
|
|
end
|
|
object sbMain: TStatusBar
|
|
Left = 0
|
|
Top = 527
|
|
Width = 792
|
|
Height = 19
|
|
AutoHint = True
|
|
Panels = <>
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
SimplePanel = True
|
|
end
|
|
object Grid: TcxGrid
|
|
Left = 0
|
|
Top = 29
|
|
Width = 792
|
|
Height = 498
|
|
Align = alClient
|
|
TabOrder = 1
|
|
object tvOrders: TcxGridDBTableView
|
|
NavigatorButtons.ConfirmDelete = False
|
|
DataController.DataSource = SummaryMultiDemoDataDM.dsOrders
|
|
DataController.DetailKeyFieldNames = 'ProductID'
|
|
DataController.KeyFieldNames = 'ID'
|
|
DataController.MasterKeyFieldNames = 'ID'
|
|
DataController.Summary.DefaultGroupSummaryItems.OnSummary = tvOrdersDataControllerSummaryDefaultGroupSummaryItemsSummary
|
|
DataController.Summary.DefaultGroupSummaryItems = <
|
|
item
|
|
Format = '0 orders'
|
|
Kind = skCount
|
|
Column = tvOrdersCustomerID
|
|
DisplayText = 'Order Count'
|
|
end
|
|
item
|
|
Format = 'Total paid = $,0'
|
|
Kind = skSum
|
|
Column = tvOrdersPaymentAmount
|
|
DisplayText = 'Total Paid'
|
|
Sorted = True
|
|
end
|
|
item
|
|
Format = 'Count(Payment amount > '#39'$300,000'#39') = 0'
|
|
Kind = skCount
|
|
Column = tvOrdersProductID
|
|
DisplayText = 'Order Count, Payment Amount > $300,000'
|
|
end
|
|
item
|
|
Format = 'Last purchase date: '
|
|
Kind = skMax
|
|
Position = spFooter
|
|
Column = tvOrdersPurchaseDate
|
|
DisplayText = 'Last Purchase Date'
|
|
end
|
|
item
|
|
Kind = skSum
|
|
Position = spFooter
|
|
Column = tvOrdersPaymentAmount
|
|
VisibleForCustomization = False
|
|
end
|
|
item
|
|
Format = '0'
|
|
Kind = skSum
|
|
Position = spFooter
|
|
Column = tvOrdersQuantity
|
|
DisplayText = 'Total Quantity'
|
|
end>
|
|
DataController.Summary.FooterSummaryItems = <
|
|
item
|
|
Format = 'From '
|
|
Kind = skMin
|
|
Column = tvOrdersPurchaseDate
|
|
end
|
|
item
|
|
Format = ' To '
|
|
Kind = skMax
|
|
Column = tvOrdersPurchaseDate
|
|
end
|
|
item
|
|
Format = 'Min: $,0'
|
|
Kind = skMin
|
|
Column = tvOrdersPaymentAmount
|
|
end
|
|
item
|
|
Format = 'Max: $,0'
|
|
Kind = skMax
|
|
Column = tvOrdersPaymentAmount
|
|
end
|
|
item
|
|
Format = 'Total: $,0'
|
|
Kind = skSum
|
|
Column = tvOrdersPaymentAmount
|
|
end
|
|
item
|
|
Format = 'Min = 0'
|
|
Kind = skMin
|
|
Column = tvOrdersQuantity
|
|
end
|
|
item
|
|
Format = 'Max = 0'
|
|
Kind = skMax
|
|
Column = tvOrdersQuantity
|
|
end
|
|
item
|
|
Format = 'Average = 0.00'
|
|
Kind = skAverage
|
|
Column = tvOrdersQuantity
|
|
end>
|
|
DataController.Summary.SummaryGroups = <
|
|
item
|
|
Links = <
|
|
item
|
|
end
|
|
item
|
|
Column = tvOrdersProductID
|
|
end>
|
|
SummaryItems = <
|
|
item
|
|
Format = 'Quantity: 0'
|
|
Kind = skSum
|
|
Column = tvOrdersQuantity
|
|
DisplayText = 'Quantity'
|
|
end
|
|
item
|
|
Format = 'First purchase date: '
|
|
Kind = skMin
|
|
Column = tvOrdersPurchaseDate
|
|
DisplayText = 'First Purchase Date'
|
|
end
|
|
item
|
|
Format = 'Average payment amount: $,0.00'
|
|
Kind = skAverage
|
|
Column = tvOrdersPaymentAmount
|
|
DisplayText = 'Average Payment Amount'
|
|
end
|
|
item
|
|
Kind = skSum
|
|
Position = spFooter
|
|
Column = tvOrdersPaymentAmount
|
|
DisplayText = 'Total Payment Amount'
|
|
end
|
|
item
|
|
Format = '0'
|
|
Kind = skSum
|
|
Position = spFooter
|
|
Column = tvOrdersQuantity
|
|
VisibleForCustomization = False
|
|
end>
|
|
end
|
|
item
|
|
Links = <
|
|
item
|
|
Column = tvOrdersPaymentType
|
|
end>
|
|
SummaryItems = <
|
|
item
|
|
Format = 'Orders: 0'
|
|
Kind = skCount
|
|
end
|
|
item
|
|
Format = 'Quantity: 0'
|
|
Kind = skSum
|
|
Column = tvOrdersQuantity
|
|
end
|
|
item
|
|
Format = 'Average payment: $,0.00'
|
|
Kind = skAverage
|
|
Position = spFooter
|
|
Column = tvOrdersPaymentAmount
|
|
end>
|
|
end>
|
|
DataController.Summary.OnAfterSummary = tvOrdersDataControllerSummaryAfterSummary
|
|
OptionsBehavior.FocusCellOnTab = True
|
|
OptionsSelection.MultiSelect = True
|
|
OptionsView.ColumnAutoWidth = True
|
|
OptionsView.Footer = True
|
|
OptionsView.FooterMultiSummaries = True
|
|
OptionsView.GroupFooterMultiSummaries = True
|
|
OptionsView.GroupFooters = gfVisibleWhenExpanded
|
|
OptionsView.Indicator = True
|
|
Styles.Content = SummaryMultiDemoDataDM.styleYellowLight
|
|
Styles.Footer = SummaryMultiDemoDataDM.styleBlueLight
|
|
Styles.Group = SummaryMultiDemoDataDM.styleGold
|
|
Styles.GroupFooterSortedSummary = SummaryMultiDemoDataDM.styleSortedSummary
|
|
Styles.GroupSortedSummary = SummaryMultiDemoDataDM.styleSortedSummary
|
|
Styles.GroupSummary = SummaryMultiDemoDataDM.styleNormal
|
|
Styles.OnGetFooterSummaryStyle = tvOrdersStylesGetFooterSummaryStyle
|
|
Styles.OnGetGroupSummaryStyle = tvOrdersStylesGetGroupSummaryStyle
|
|
object tvOrdersCustomerID: TcxGridDBColumn
|
|
Caption = 'Company'
|
|
DataBinding.FieldName = 'CustomerID'
|
|
PropertiesClassName = 'TcxLookupComboBoxProperties'
|
|
Properties.KeyFieldNames = 'ID'
|
|
Properties.ListColumns = <
|
|
item
|
|
FieldName = 'Company'
|
|
end>
|
|
Properties.ListSource = SummaryMultiDemoDataDM.dsCustomers
|
|
Visible = False
|
|
GroupIndex = 0
|
|
SortIndex = 0
|
|
SortOrder = soDescending
|
|
Width = 100
|
|
end
|
|
object tvOrdersProductID: TcxGridDBColumn
|
|
Caption = 'Car'
|
|
DataBinding.FieldName = 'ProductID'
|
|
PropertiesClassName = 'TcxLookupComboBoxProperties'
|
|
Properties.DropDownListStyle = lsFixedList
|
|
Properties.KeyFieldNames = 'ID'
|
|
Properties.ListColumns = <
|
|
item
|
|
FieldName = 'CarName'
|
|
end>
|
|
Properties.ListOptions.GridLines = glNone
|
|
Properties.ListOptions.ShowHeader = False
|
|
Properties.ListSource = SummaryMultiDemoDataDM.dsCars
|
|
Visible = False
|
|
GroupIndex = 1
|
|
SortIndex = 1
|
|
SortOrder = soAscending
|
|
Width = 80
|
|
end
|
|
object tvOrdersPurchaseDate: TcxGridDBColumn
|
|
Caption = 'Purchase Date'
|
|
DataBinding.FieldName = 'PurchaseDate'
|
|
PropertiesClassName = 'TcxDateEditProperties'
|
|
Width = 162
|
|
end
|
|
object tvOrdersPaymentAmount: TcxGridDBColumn
|
|
Caption = 'Payment Amount'
|
|
DataBinding.FieldName = 'PaymentAmount'
|
|
PropertiesClassName = 'TcxCalcEditProperties'
|
|
Properties.Alignment.Horz = taRightJustify
|
|
Options.Grouping = False
|
|
Width = 156
|
|
end
|
|
object tvOrdersPaymentType: TcxGridDBColumn
|
|
Caption = 'Payment Type'
|
|
DataBinding.FieldName = 'PaymentType'
|
|
PropertiesClassName = 'TcxImageComboBoxProperties'
|
|
Properties.Alignment.Vert = taVCenter
|
|
Properties.Images = SummaryMultiDemoDataDM.PaymentTypeImages
|
|
Properties.Items = <
|
|
item
|
|
Description = 'Am. Express'
|
|
ImageIndex = 3
|
|
Value = 'AmEx'
|
|
end
|
|
item
|
|
Description = 'Cash'
|
|
ImageIndex = 0
|
|
Value = 'Cash'
|
|
end
|
|
item
|
|
Description = 'Master'
|
|
ImageIndex = 2
|
|
Value = 'Master'
|
|
end
|
|
item
|
|
Description = 'Visa'
|
|
ImageIndex = 1
|
|
Value = 'Visa'
|
|
end>
|
|
Width = 173
|
|
end
|
|
object tvOrdersQuantity: TcxGridDBColumn
|
|
DataBinding.FieldName = 'Quantity'
|
|
PropertiesClassName = 'TcxSpinEditProperties'
|
|
Options.Grouping = False
|
|
Width = 165
|
|
end
|
|
end
|
|
object lvOrders: TcxGridLevel
|
|
GridView = tvOrders
|
|
MaxDetailHeight = 200
|
|
end
|
|
end
|
|
object mmMain: TMainMenu
|
|
Left = 504
|
|
Top = 40
|
|
object miFile: TMenuItem
|
|
Caption = '&File'
|
|
object miExit: TMenuItem
|
|
Caption = 'E&xit'
|
|
ShortCut = 32856
|
|
OnClick = miExitClick
|
|
end
|
|
end
|
|
object miOptions: TMenuItem
|
|
Caption = '&Options'
|
|
object miSummaries: TMenuItem
|
|
Caption = 'Su&mmary'
|
|
object miSelectedRecordsOnly: TMenuItem
|
|
Caption = 'Calculate on &selected records only'
|
|
OnClick = miSelectedRecordsOnlyClick
|
|
end
|
|
object miIgnoreNullValues: TMenuItem
|
|
Caption = '&Ignore Null values when calculating'
|
|
OnClick = miIgnoreNullValuesClick
|
|
end
|
|
object miUseOnAfterSummaryEvent: TMenuItem
|
|
Caption = 'Footer summary based on &group totals'
|
|
OnClick = miUseOnAfterSummaryEventClick
|
|
end
|
|
end
|
|
object N1: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object miGroupFooters: TMenuItem
|
|
Caption = 'Group &Footers'
|
|
object miGroupFooterNeverShow: TMenuItem
|
|
Caption = 'gfInvisible'
|
|
GroupIndex = 1
|
|
RadioItem = True
|
|
OnClick = miGroupFootersClick
|
|
end
|
|
object miGroupFooterShowWhenExpand: TMenuItem
|
|
Caption = 'gfVisibleWhenExpanded'
|
|
GroupIndex = 1
|
|
RadioItem = True
|
|
OnClick = miGroupFootersClick
|
|
end
|
|
object miGroupFooterAlwaysShow: TMenuItem
|
|
Caption = 'gfAlwaysVisible'
|
|
GroupIndex = 1
|
|
RadioItem = True
|
|
OnClick = miGroupFootersClick
|
|
end
|
|
end
|
|
object miMultipleSummariesInFooter: TMenuItem
|
|
Caption = 'Multiple Summaries in Footer'
|
|
OnClick = miMultipleSummariesInFooterClick
|
|
end
|
|
object miMultipleSummariesInGroupFooters: TMenuItem
|
|
Caption = 'Multiple Summaries in Group Footers'
|
|
OnClick = miMultipleSummariesInGroupFootersClick
|
|
end
|
|
object N2: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object miMultiSelect: TMenuItem
|
|
Caption = '&Multi Select'
|
|
OnClick = miMultiSelectClick
|
|
end
|
|
end
|
|
object miAbout: TMenuItem
|
|
Caption = '&About this demo'
|
|
OnClick = miAboutClick
|
|
end
|
|
end
|
|
object cxGridPopupMenu1: TcxGridPopupMenu
|
|
Grid = Grid
|
|
PopupMenus = <>
|
|
Left = 440
|
|
Top = 40
|
|
end
|
|
object LookAndFeelController: TcxLookAndFeelController
|
|
Left = 472
|
|
Top = 40
|
|
end
|
|
end
|