david
8a45a23220
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@7 05c56307-c608-d34a-929d-697000501d7a
392 lines
13 KiB
Plaintext
392 lines
13 KiB
Plaintext
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
|