object GridModeDemoMainForm: TGridModeDemoMainForm Left = 55 Top = 52 Width = 872 Height = 587 Caption = 'ExpressQuantumGrid Grid Mode Demo' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Menu = mmMain Position = poScreenCenter OnClose = FormClose OnCloseQuery = FormCloseQuery OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object lbDescription: TLabel Left = 0 Top = 0 Width = 864 Height = 25 Align = alTop AutoSize = False Caption = 'This demo loads and processes 100,000 records using gridmode. Cl' + 'ick '#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 = 514 Width = 864 Height = 19 AutoHint = True Panels = <> ParentShowHint = False ShowHint = True SimplePanel = True end object Grid: TcxGrid Left = 0 Top = 65 Width = 864 Height = 449 Align = alClient TabOrder = 1 object tvCars: TcxGridDBTableView DataController.DataModeController.GridMode = True DataController.DataSource = GridModeDemoDataDM.dsCars DataController.Filter.OnGetValueList = tvDataControllerFilterGetValueList DataController.Filter.AutoDataSetFilter = True DataController.KeyFieldNames = 'ID' DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = < item Kind = skCount FieldName = 'Trademark' Column = tvCarsTrademark end> DataController.Summary.SummaryGroups = <> NavigatorButtons.ConfirmDelete = False OptionsBehavior.FocusCellOnTab = True OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnGrouping = False OptionsCustomize.ColumnSorting = False OptionsView.GroupByBox = False OptionsView.Indicator = True Preview.MaxLineCount = 1 Preview.RightIndent = 10 Styles.StyleSheet = GridModeDemoDataDM.GridTableViewStyleSheetDevExpress object tvCarsTrademark: TcxGridDBColumn DataBinding.FieldName = 'Trademark' Width = 100 end object tvCarsModel: TcxGridDBColumn DataBinding.FieldName = 'Model' Width = 180 end object tvCarsPicture: TcxGridDBColumn DataBinding.FieldName = 'Picture' PropertiesClassName = 'TcxBlobEditProperties' Properties.BlobEditKind = bekPict Properties.PictureGraphicClassName = 'TJPEGImage' end object tvCarshp: TcxGridDBColumn DataBinding.FieldName = 'hp' PropertiesClassName = 'TcxSpinEditProperties' Properties.Increment = 10.000000000000000000 end object tvCarsliter: TcxGridDBColumn DataBinding.FieldName = 'liter' PropertiesClassName = 'TcxSpinEditProperties' Properties.Increment = 0.100000000000000000 end object tvCarscyl: TcxGridDBColumn DataBinding.FieldName = 'cyl' PropertiesClassName = 'TcxSpinEditProperties' end object tvCarsTransmissSpeedCount: TcxGridDBColumn DataBinding.FieldName = 'TransmissSpeedCount' PropertiesClassName = 'TcxSpinEditProperties' Width = 130 end object tvCarsTransmissAutomatic: TcxGridDBColumn Caption = 'Automatic Transmission' DataBinding.FieldName = 'TransmissAutomatic' PropertiesClassName = 'TcxCheckBoxProperties' Properties.ValueChecked = 'Yes' Properties.ValueUnchecked = 'No' Width = 135 end object tvCarsMPG_City: TcxGridDBColumn DataBinding.FieldName = 'MPG_City' Width = 70 end object tvCarsMPG_Highway: TcxGridDBColumn DataBinding.FieldName = 'MPG_Highway' Width = 100 end object tvCarsCategory: TcxGridDBColumn DataBinding.FieldName = 'Category' Width = 70 end object tvCarsDescription: TcxGridDBColumn DataBinding.FieldName = 'Description' PropertiesClassName = 'TcxBlobEditProperties' Properties.BlobEditKind = bekMemo Properties.MemoScrollBars = ssVertical end object tvCarsHyperlink: TcxGridDBColumn DataBinding.FieldName = 'Hyperlink' PropertiesClassName = 'TcxHyperLinkEditProperties' Width = 150 end object tvCarsPrice: TcxGridDBColumn DataBinding.FieldName = 'Price' PropertiesClassName = 'TcxCurrencyEditProperties' Properties.Alignment.Horz = taRightJustify Properties.ValidateOnEnter = True Width = 80 end end object tvOrders: TcxGridDBTableView DataController.DataModeController.GridMode = True DataController.DataSource = GridModeDemoDataDM.dsOrders DataController.DetailKeyFieldNames = 'ProductID' DataController.Filter.OnGetValueList = tvDataControllerFilterGetValueList DataController.Filter.AutoDataSetFilter = True DataController.KeyFieldNames = 'ID' DataController.MasterKeyFieldNames = 'ID' DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = < item Kind = skCount FieldName = 'CustomerID' Column = tvOrdersCustomerID end item Kind = skSum FieldName = 'PaymentAmount' Column = tvOrdersPaymentAmount end item Kind = skMax FieldName = 'PurchaseDate' Column = tvOrdersPurchaseDate end> DataController.Summary.SummaryGroups = <> NavigatorButtons.ConfirmDelete = False OptionsBehavior.FocusCellOnTab = True OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnGrouping = False OptionsCustomize.ColumnSorting = False OptionsView.ColumnAutoWidth = True OptionsView.GroupByBox = False OptionsView.Indicator = True Styles.StyleSheet = GridModeDemoDataDM.GridTableViewStyleSheetDevExpress object tvOrdersCustomerID: TcxGridDBColumn Caption = 'Company' DataBinding.FieldName = 'CustomerID' PropertiesClassName = 'TcxLookupComboBoxProperties' Properties.KeyFieldNames = 'ID' Properties.ListColumns = < item FieldName = 'Company' end> Properties.ListOptions.AnsiSort = True Properties.ListOptions.CaseInsensitive = True Properties.ListOptions.GridLines = glNone Properties.ListOptions.ShowHeader = False Properties.ListSource = GridModeDemoDataDM.dsCustomers Properties.MaxLength = 50 Options.Sorting = False Width = 100 end object tvOrdersPurchaseDate: TcxGridDBColumn DataBinding.FieldName = 'PurchaseDate' PropertiesClassName = 'TcxDateEditProperties' Width = 60 end object tvOrdersPaymentType: TcxGridDBColumn DataBinding.FieldName = 'PaymentType' PropertiesClassName = 'TcxImageComboBoxProperties' Properties.Alignment.Vert = taVCenter Properties.Images = GridModeDemoDataDM.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> end object tvOrdersPaymentAmount: TcxGridDBColumn DataBinding.FieldName = 'PaymentAmount' PropertiesClassName = 'TcxCalcEditProperties' Properties.Alignment.Horz = taRightJustify end end object lvCars: TcxGridLevel GridView = tvCars MaxDetailHeight = 300 object lvOrders: TcxGridLevel GridView = tvOrders end end end object pnlPopulate: TPanel Left = 0 Top = 25 Width = 864 Height = 40 Align = alTop BevelOuter = bvNone Color = 4707838 TabOrder = 2 object btnPopulate: TcxButton Left = 8 Top = 8 Width = 153 Height = 25 Hint = 'Click here to populate the Orders table (100000 records)' Caption = 'Add about 100,000 orders' TabOrder = 0 OnClick = btnPopulateClick Colors.Default = 16247513 Colors.Normal = 16247513 end object pnlProgress: TPanel Left = 176 Top = 8 Width = 681 Height = 25 Alignment = taLeftJustify BevelOuter = bvNone Caption = 'Please wait ...' ParentColor = True TabOrder = 1 Visible = False object ProgressBar: TProgressBar Left = 77 Top = 3 Width = 596 Height = 17 Max = 1000 Smooth = True Step = 1 TabOrder = 0 end end end object mmMain: TMainMenu Left = 504 Top = 24 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 miCustomizeViews: TMenuItem Caption = 'Customize &Views' object miCalculateSummaries: TMenuItem Caption = 'Calculate &Summaries' Hint = 'Summary calculation. If checked, the demo will work more slowly' OnClick = miCalculateSummariesClick end object miEnableSorting: TMenuItem Caption = 'Enable S&orting' Hint = 'Enable Sorting. If checked, the demo will work more slowly' OnClick = miEnableSortingClick end object miEnableFiltering: TMenuItem Caption = 'Enable &Filtering' Hint = 'Enable Filtering. If checked, the demo will work more slowly' OnClick = miEnableFilteringClick end end object N1: TMenuItem Caption = '-' end object miRecreateDB: TMenuItem Caption = 'Re&create the database' OnClick = miRecreateDBClick end end object miAbout: TMenuItem Caption = '&About this demo' Hint = 'Displays the brief description of the current demo features' OnClick = miAboutClick end end object LookAndFeelController: TcxLookAndFeelController NativeStyle = True Left = 472 Top = 24 end end