object ColumnsSimpleDemoMainForm: TColumnsSimpleDemoMainForm Left = 34 Top = 41 Width = 964 Height = 633 Caption = 'ExpressQuantumGrid ColumnSimpleDemo' 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 = 956 Height = 25 Align = alTop AutoSize = False Caption = 'This demo shows various column editors. 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 = 560 Width = 956 Height = 19 AutoHint = True Panels = <> ParentShowHint = False ShowHint = True SimplePanel = True end object Grid: TcxGrid Left = 0 Top = 25 Width = 956 Height = 535 Align = alClient TabOrder = 1 OnFocusedViewChanged = GridFocusedViewChanged object tvCustomers: TcxGridDBTableView DataController.DataSource = ColumnsSimpleDemoDataDM.dsCustomers DataController.KeyFieldNames = 'ID' DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = <> DataController.Summary.SummaryGroups = <> NavigatorButtons.ConfirmDelete = False OptionsView.HeaderAutoHeight = True OptionsView.Indicator = True Styles.StyleSheet = ColumnsSimpleDemoDataDM.GridTableViewStyleSheetDevExpress object tvCustomersCompany: TcxGridDBColumn Caption = 'Company (TextEdit)' DataBinding.FieldName = 'Company' end object tvCustomersState: TcxGridDBColumn Caption = 'State (MRUEdit)' DataBinding.FieldName = 'State' PropertiesClassName = 'TcxMRUEditProperties' Properties.LookupItems.Strings = ( 'VA' 'NY' 'IL' 'GA' 'CA' 'OK' 'OH' 'CT' 'MI') Properties.OnButtonClick = tvCustomersStatePropertiesButtonClick end object tvCustomersCity: TcxGridDBColumn Caption = 'City (ButtonEdit)' DataBinding.FieldName = 'City' PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item Default = True end item Kind = bkEllipsis end> Properties.OnButtonClick = tvCustomersCityPropertiesButtonClick end object tvCustomersPrefix: TcxGridDBColumn Caption = 'Prefix (ComboBox)' DataBinding.FieldName = 'Prefix' PropertiesClassName = 'TcxComboBoxProperties' Properties.DropDownListStyle = lsFixedList Properties.Items.Strings = ( 'Ms.' 'Mr.' 'Mrs.') end object tvCustomersFirstName: TcxGridDBColumn Caption = 'FirstName (TextEdit)' DataBinding.FieldName = 'FirstName' end object tvCustomersLastName: TcxGridDBColumn Caption = 'LastName (TextEdit)' DataBinding.FieldName = 'LastName' end object tvCustomersCustomer: TcxGridDBColumn Caption = 'Customer (CheckBox)' DataBinding.FieldName = 'Customer' PropertiesClassName = 'TcxCheckBoxProperties' Properties.ValueChecked = 'Y' Properties.ValueUnchecked = 'N' end object tvCustomersZipCode: TcxGridDBColumn Caption = 'ZipCode (MaskEdit)' DataBinding.FieldName = 'ZipCode' PropertiesClassName = 'TcxMaskEditProperties' Properties.MaskKind = emkRegExprEx Properties.EditMask = '\d\d\d\d\d - \d\d\d\d' end object tvCustomersAddress: TcxGridDBColumn Caption = 'Address (TextEdit)' DataBinding.FieldName = 'Address' end object tvCustomersFaxPhone: TcxGridDBColumn Caption = 'FaxPhone (MaskEdit)' DataBinding.FieldName = 'FaxPhone' PropertiesClassName = 'TcxMaskEditProperties' Properties.MaskKind = emkRegExprEx Properties.EditMask = '(\(\d\d\d\))? \d(\d\d?)? - \d\d - \d\d' end end object tvOrders: TcxGridDBTableView DataController.DataSource = ColumnsSimpleDemoDataDM.dsOrders DataController.DetailKeyFieldNames = 'CustomerID' DataController.KeyFieldNames = 'ID' DataController.MasterKeyFieldNames = 'ID' DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = <> DataController.Summary.SummaryGroups = <> NavigatorButtons.ConfirmDelete = False OptionsView.HeaderAutoHeight = True OptionsView.Indicator = True Styles.StyleSheet = ColumnsSimpleDemoDataDM.GridTableViewStyleSheetDevExpress object tvOrdersProductID: TcxGridDBColumn Caption = 'Car (LookupComboBox)' DataBinding.FieldName = 'ProductID' PropertiesClassName = 'TcxLookupComboBoxProperties' Properties.DropDownListStyle = lsFixedList Properties.KeyFieldNames = 'ID' Properties.ListColumns = < item FieldName = 'Car' end> Properties.ListOptions.GridLines = glNone Properties.ListOptions.ShowHeader = False Properties.ListSource = ColumnsSimpleDemoDataDM.dsCars Width = 250 end object tvOrdersCarInfo: TcxGridDBColumn Caption = 'CarInfo (PopupEdit)' PropertiesClassName = 'TcxPopupEditProperties' Properties.PopupControl = ColumnSimpleDemoCarsForm.pnlCarInfo Properties.OnCloseUp = tvOrdersCarInfoPropertiesCloseUp Properties.OnInitPopup = tvOrdersCarInfoPropertiesInitPopup Options.Filtering = False Options.Grouping = False Options.Sorting = False Width = 90 end object tvOrdersPurchaseDate: TcxGridDBColumn Caption = 'PurchaseDate (DateEdit)' DataBinding.FieldName = 'PurchaseDate' Width = 120 end object tvOrdersTime: TcxGridDBColumn Caption = 'Time (TimeEdit)' DataBinding.FieldName = 'Time' PropertiesClassName = 'TcxTimeEditProperties' Properties.AssignedValues.MinValue = True Width = 100 end object tvOrdersPaymentType: TcxGridDBColumn Caption = 'PaymentType (ImageComboBox)' DataBinding.FieldName = 'PaymentType' PropertiesClassName = 'TcxImageComboBoxProperties' Properties.Images = ColumnsSimpleDemoDataDM.PaymentTypeImages Properties.Items = < item Description = 'American Express' ImageIndex = 3 Value = 'AmEx' end item Description = 'Master Card' ImageIndex = 2 Value = 'Master' end item Description = 'Visa Card' ImageIndex = 1 Value = 'Visa' end item Description = 'Cash' ImageIndex = 0 Value = 'Cash' end> end object tvOrdersQuantity: TcxGridDBColumn Caption = 'Quantity (SpinEdit)' DataBinding.FieldName = 'Quantity' PropertiesClassName = 'TcxSpinEditProperties' Width = 100 end object tvOrdersPaymentAmount: TcxGridDBColumn Caption = 'PaymentAmount (CalcEdit)' DataBinding.FieldName = 'PaymentAmount' PropertiesClassName = 'TcxCalcEditProperties' Properties.Alignment.Horz = taRightJustify end object tvOrdersDescription: TcxGridDBColumn Caption = 'Description (BlobEdit)' DataBinding.FieldName = 'Description' PropertiesClassName = 'TcxBlobEditProperties' Properties.BlobEditKind = bekMemo end end object lvCustomers: TcxGridLevel GridView = tvCustomers object lvOrders: TcxGridLevel GridView = tvOrders 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 miShowEditButtons: TMenuItem Caption = 'Show Edit Buttons' object miEditButtonsNever: TMenuItem Caption = 'Never' Checked = True Hint = 'The editor buttons are displayed only for the focused column in ' + 'a table view.' RadioItem = True OnClick = miEditButtonsClick end object miEditButtonsForFocusedRecord: TMenuItem Tag = 1 Caption = 'For Focused Record' Hint = 'The editor buttons are visible for the focused record.' RadioItem = True OnClick = miEditButtonsClick end object miEditButtonsAlways: TMenuItem Tag = 2 Caption = 'Always' Hint = 'The editor buttons are always visible within the current view' RadioItem = True OnClick = miEditButtonsClick end end object N2: TMenuItem Caption = '-' end object miOptionsSelection: TMenuItem Caption = 'Options Selection' object miCellSelect: TMenuItem Caption = 'Cell Select' Hint = 'Determines whether individual cells are selected within a view i' + 'nstead of whole rows. ' OnClick = miCellSelectClick end object miHideFocusRect: TMenuItem Caption = 'Hide Focus Rect' Hint = 'Determines whether the focus rectangle is displayed around the f' + 'ocused record within a view.' OnClick = miHideFocusRectClick end object miHideSelection: TMenuItem Caption = 'Hide Selection' Hint = 'Determines whether the selection mark persists within a view whe' + 'n focus leaves the grid control.' OnClick = miHideSelectionClick end object miInvertSelect: TMenuItem Caption = 'Invert Select' Hint = 'Determines whether the selection mark highlights a single cell w' + 'ithin the focused row or the whole focused row.' OnClick = miInvertSelectClick end object miMultiSelect: TMenuItem Caption = 'Multi Select' Hint = 'Determines whether the multiple rows can be selected within a vi' + 'ew.' OnClick = miMultiSelectClick end end object N1: TMenuItem Caption = '-' end object miLookFeel: TMenuItem Caption = '&Look&&Feel' object miKind: TMenuItem Caption = '&Kind' object miFlat: TMenuItem Caption = '&Flat' Hint = 'Setting this option changes the grid view appearance to Flat sty' + 'le' RadioItem = True OnClick = miLookAndFeelKindClick end object miStandard: TMenuItem Caption = '&Standard' Hint = 'Setting this option changes the grid view appearance to Standard' + ' style' RadioItem = True OnClick = miLookAndFeelKindClick end object miUltraFlat: TMenuItem Caption = '&Ultra Flat' Checked = True Hint = 'Setting this option changes the grid view appearance to Ultra Fl' + 'at style' RadioItem = True OnClick = miLookAndFeelKindClick end object miOffice11: TMenuItem Tag = 3 Caption = '&Office11' Hint = 'Setting this option changes the grid view appearance to Office11' + ' style' RadioItem = True OnClick = miLookAndFeelKindClick end end object miNativeStyle: TMenuItem Caption = '&Native Style' Checked = True Hint = 'Setting this option changes the appearance of grid items to the ' + 'native style' OnClick = miNativeStyleClick end 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 = 536 Top = 24 end end