object SummaryMultiDemoMainForm: TSummaryMultiDemoMainForm Left = 100 Top = 40 Width = 864 Height = 608 Caption = 'ExpressQuantumGrid Summary Multi Demo' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Menu = mmMain Position = poScreenCenter OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object lbDescription: TLabel Left = 0 Top = 0 Width = 856 Height = 25 Align = alTop AutoSize = False Caption = 'Options/Summary above provides runtime summary facilities. Click' + ' '#39'About this demo'#39' for more information.' Color = 12937777 Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentColor = False ParentFont = False WordWrap = True end object sbMain: TStatusBar Left = 0 Top = 535 Width = 856 Height = 19 AutoHint = True Panels = <> ParentShowHint = False ShowHint = True SimplePanel = True end object Grid: TcxGrid Left = 0 Top = 25 Width = 856 Height = 510 Align = alClient TabOrder = 1 OnFocusedViewChanged = GridFocusedViewChanged object tvOrders: TcxGridDBTableView NavigatorButtons.ConfirmDelete = False DataController.DataSource = SummaryMultiDemoDataDM.dsOrders DataController.DetailKeyFieldNames = 'ProductID' DataController.KeyFieldNames = 'ID' DataController.MasterKeyFieldNames = 'ID' DataController.Summary.DefaultGroupSummaryItems = < item Kind = skSum Position = spFooter Column = tvOrdersPaymentAmount end item Kind = skCount Column = tvOrdersProductID end item Format = 'Last purchase date: ' Kind = skMax Column = tvOrdersPurchaseDate end item Kind = skCount Position = spFooter Column = tvOrdersProductID end item Format = 'Payment Amount = $,0.00' Kind = skSum Column = tvOrdersPaymentAmount end item Kind = skSum Position = spFooter Column = tvOrdersQuantity end item Kind = skMax Position = spFooter Column = tvOrdersPurchaseDate end item Kind = skCount Position = spFooter Column = tvOrdersDescription end item Format = 'Count(Payment amount > '#39'$300,000'#39') = 0' Kind = skCount Column = tvOrdersProductID end> DataController.Summary.FooterSummaryItems = < item Kind = skMax Column = tvOrdersPaymentAmount end item Kind = skCount Column = tvOrdersCustomerID end item Kind = skCount Column = tvOrdersDescription end item Kind = skCount Column = tvOrdersProductID end item Kind = skMin Column = tvOrdersPurchaseDate end item 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 end item Format = 'First purchase date: ' Kind = skMin Column = tvOrdersPurchaseDate end item Kind = skSum Position = spFooter Column = tvOrdersPaymentAmount end item Format = '0' Kind = skSum Position = spFooter Column = tvOrdersQuantity end item Format = 'Average Payment Amount: $,0.0' Kind = skAverage Column = tvOrdersPaymentAmount end item Kind = skMin Position = spFooter Column = tvOrdersPurchaseDate end item Kind = skCount Position = spFooter Column = tvOrdersDescription end> end item Links = < item Column = tvOrdersPaymentType end> SummaryItems = < item Kind = skCount Column = tvOrdersDescription end item Format = 'Quantity: 0' Kind = skSum Column = tvOrdersQuantity end item Kind = skAverage Position = spFooter Column = tvOrdersPaymentAmount end> end> DataController.Summary.OnAfterSummary = tvOrdersDataControllerSummaryAfterSummary OptionsBehavior.FocusCellOnTab = True OptionsSelection.MultiSelect = True OptionsView.CellAutoHeight = True OptionsView.ColumnAutoWidth = True OptionsView.Footer = True OptionsView.GroupFooters = gfAlwaysVisible OptionsView.Indicator = True Styles.Background = SummaryMultiDemoDataDM.stBlueSky Styles.Content = SummaryMultiDemoDataDM.stBlueLight Styles.FilterBox = SummaryMultiDemoDataDM.stYellowLight Styles.Inactive = SummaryMultiDemoDataDM.stBlueLight Styles.Selection = SummaryMultiDemoDataDM.stBlueBright Styles.Footer = SummaryMultiDemoDataDM.stYellowLight Styles.Group = SummaryMultiDemoDataDM.stGreyLight Styles.GroupByBox = SummaryMultiDemoDataDM.stGold Styles.Header = SummaryMultiDemoDataDM.stBlueDark Styles.Indicator = SummaryMultiDemoDataDM.stBlueSky Styles.OnGetGroupStyle = tvOrdersStylesGetGroupStyle 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 = soAscending 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 DataBinding.FieldName = 'PurchaseDate' PropertiesClassName = 'TcxDateEditProperties' Width = 60 end object tvOrdersPurchaseMonth: TcxGridDBColumn DataBinding.FieldName = 'PurchaseMonth' end object tvOrdersPaymentType: TcxGridDBColumn 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 = 60 end object tvOrdersPaymentAmount: TcxGridDBColumn DataBinding.FieldName = 'PaymentAmount' PropertiesClassName = 'TcxCalcEditProperties' Properties.Alignment.Horz = taRightJustify Options.Grouping = False end object tvOrdersDescription: TcxGridDBColumn DataBinding.FieldName = 'Description' PropertiesClassName = 'TcxBlobEditProperties' Properties.BlobEditKind = bekMemo Options.Grouping = False end object tvOrdersQuantity: TcxGridDBColumn DataBinding.FieldName = 'Quantity' PropertiesClassName = 'TcxSpinEditProperties' Options.Grouping = False Width = 40 end end object lvOrders: TcxGridLevel GridView = tvOrders MaxDetailHeight = 200 end end object mmMain: TMainMenu Left = 504 Top = 8 object miFile: TMenuItem Caption = '&File' object miExit: TMenuItem Caption = 'E&xit' Hint = 'Press to quit the demo-program' ShortCut = 32856 OnClick = miExitClick end end object miOptions: TMenuItem Caption = '&Options' object miSummaries: TMenuItem Caption = 'Su&mmary' Hint = 'Displays the brief description of the current demo features' object miSelectedRecordOnly: TMenuItem Caption = 'Calculate on &selected records only' Hint = 'Check to calculate on selected records only' OnClick = miSelectedRecordsOnlyClick end object miIgnoreNullValues: TMenuItem Caption = '&Ignore Null Values when calculating' Hint = 'Ignore Null values when calculating Count and Average summary ki' + 'nds' OnClick = miIgnoreNullValuesClick end object miUseOnAfterSummaryEvent: TMenuItem Caption = 'Footer summary based on &group totals' Checked = True Hint = 'Check to calculate footer summaries based on group results' OnClick = miUseOnAfterSummaryEventClick end end object N1: TMenuItem Caption = '-' end object miGroupFooter: TMenuItem Caption = 'Show Group &Footer' Hint = 'Show group footer for grouped data' object miGroupFooterAlwaysShow: TMenuItem Tag = 2 Caption = '&Always' Checked = True GroupIndex = 1 Hint = 'Always show group footer' RadioItem = True OnClick = miGroupFooterShowClick end object miGroupFooterNeverShow: TMenuItem Caption = '&Never' GroupIndex = 1 Hint = 'Never to show group footer' RadioItem = True OnClick = miGroupFooterShowClick end object miGroupFooterShowWhenExpand: TMenuItem Tag = 1 Caption = 'When &Expand' GroupIndex = 1 Hint = 'Show group footer only when group record is expanded ' RadioItem = True OnClick = miGroupFooterShowClick end end object miMultiSelect: TMenuItem Caption = '&Multi Select' Checked = True Hint = 'Check to select more that one records' OnClick = miMultiSelectClick end end object miAbout: TMenuItem Caption = '&About this demo' Hint = 'Displays the brief description of the current demo features' OnClick = miAboutClick end end object cxGridPopupMenu1: TcxGridPopupMenu Grid = Grid PopupMenus = <> Left = 440 Top = 8 end object LookAndFeelController: TcxLookAndFeelController NativeStyle = True Left = 472 Top = 8 end end