Cryogen2003 Цитата: Вот мой код:
А это умышленно вы установили свойство dbgCorrespondenceDBTableView1.DataController.Filter.AutoDataSetFilter = True?
Подробнее: ms-help://borland.bds5/ExpressDataController.BDS5/ExpressDataController/IDH_TcxDBDataFilterCriteria_AutoDataSetFilter.htm
Вот мой, рабочий код:
[more=Dfm]
object dbgCorrespondence: TcxGrid
Left = 0
Top = 0
Width = 920
Height = 655
Align = alClient
TabOrder = 0
DragOpening = False
LevelTabs.Style = 7
LookAndFeel.Kind = lfFlat
RootLevelOptions.TabsForEmptyDetails = False
ExplicitLeft = 8
ExplicitTop = -24
object dbgCorrespondenceDBTableView1: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False
NavigatorButtons.First.Hint = #1055#1077#1088#1074#1072#1103' '#1079#1072#1087#1080#1089#1100
NavigatorButtons.PriorPage.Hint = #1055#1077#1088#1077#1081#1090#1080' '#1085#1072' '#1087#1088#1077#1076#1099#1076#1091#1097#1091#1102' '#1089#1090#1088#1072#1085#1080#1094#1091
NavigatorButtons.PriorPage.Visible = True
NavigatorButtons.Prior.Hint = #1055#1088#1077#1076#1099#1076#1091#1097#1072#1103' '#1079#1072#1087#1080#1089#1100
NavigatorButtons.Next.Hint = #1057#1083#1077#1076#1091#1102#1097#1072#1103' '#1079#1072#1087#1080#1089#1100
NavigatorButtons.NextPage.Hint = #1055#1077#1088#1077#1081#1090#1077' '#1085#1072' '#1089#1083#1077#1076#1091#1102#1097#1091#1102' '#1089#1090#1088#1072#1085#1080#1094#1091
NavigatorButtons.NextPage.Visible = True
NavigatorButtons.Last.Hint = #1055#1086#1089#1083#1077#1076#1085#1103#1103' '#1079#1072#1087#1080#1089#1100
NavigatorButtons.Last.Visible = True
NavigatorButtons.Insert.Hint = #1044#1086#1073#1072#1074#1083#1077#1085#1080#1077' '#1079#1072#1087#1080#1089#1080
NavigatorButtons.Insert.Visible = False
NavigatorButtons.Append.Hint = #1044#1086#1073#1072#1074#1083#1077#1085#1080#1077' '#1079#1072#1087#1080#1089#1080' '#1074' '#1082#1086#1085#1077#1094
NavigatorButtons.Append.Visible = False
NavigatorButtons.Delete.Hint = #1059#1076#1072#1083#1080#1090#1100' '#1079#1072#1087#1080#1089#1100
NavigatorButtons.Delete.Visible = False
NavigatorButtons.Edit.Hint = #1056#1077#1076#1072#1082#1090#1080#1088#1086#1074#1072#1085#1080#1077' '#1079#1072#1087#1080#1089#1080
NavigatorButtons.Edit.Visible = False
NavigatorButtons.Post.Hint = #1057#1086#1093#1088#1072#1085#1080#1090#1100' '#1080#1079#1084#1077#1085#1077#1085#1080#1103
NavigatorButtons.Post.Visible = False
NavigatorButtons.Cancel.Hint = #1054#1090#1084#1077#1085#1072' '#1080#1079#1084#1077#1085#1077#1085#1080#1081
NavigatorButtons.Cancel.Visible = False
NavigatorButtons.Refresh.Hint = #1054#1073#1085#1086#1074#1080#1090#1100
NavigatorButtons.SaveBookmark.Hint = #1057#1086#1093#1088#1072#1085#1080#1090#1100' '#1079#1072#1082#1083#1072#1076#1082#1091
NavigatorButtons.GotoBookmark.Hint = #1055#1077#1088#1077#1081#1090#1080' '#1082' '#1079#1072#1082#1083#1072#1076#1082#1077
NavigatorButtons.Filter.Hint = #1060#1080#1083#1100#1090#1088
NavigatorButtons.Filter.Visible = False
FilterBox.CustomizeDialog = False
FilterBox.Position = fpTop
DataController.DataModeController.SmartRefresh = True
DataController.DataSource = DataSource1
DataController.Filter.Options = [fcoCaseInsensitive, fcoSoftNull, fcoSoftCompare]
DataController.Filter.Active = True
DataController.Filter.TranslateBetween = True
DataController.Filter.TranslateIn = True
DataController.Filter.TranslateLike = True
DataController.Options = [dcoAnsiSort, dcoCaseInsensitive, dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoSortByDisplayText]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
DateTimeHandling.IgnoreTimeForFiltering = True
Filtering.ColumnFilteredItemsList = True
FilterRow.InfoText = #1053#1072#1078#1084#1080#1090#1077' '#1079#1076#1077#1089#1100', '#1095#1090#1086#1073#1099' '#1085#1072#1089#1090#1088#1086#1080#1090#1100' '#1092#1080#1083#1100#1090#1088
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.IncSearch = True
OptionsBehavior.NavigatorHints = True
OptionsCustomize.ColumnGrouping = False
OptionsCustomize.ColumnsQuickCustomization = True
OptionsCustomize.ColumnsQuickCustomizationReordering = qcrEnabled
OptionsCustomize.DataRowSizing = True
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsData.Editing = False
OptionsData.Inserting = False
OptionsSelection.CellMultiSelect = True
OptionsView.Navigator = True
OptionsView.NoDataToDisplayInfoText = #1054#1090#1089#1091#1090#1089#1090#1074#1091#1102#1090' '#1076#1072#1085#1085#1099#1077
OptionsView.CellAutoHeight = True
OptionsView.GroupByBox = False
OptionsView.HeaderAutoHeight = True
OptionsView.Indicator = True
object dbgCorrespondenceDBTableView1Column1: TcxGridDBColumn
Caption = #1048#1044
DataBinding.FieldName = 'f1'
HeaderAlignmentVert = vaCenter
Width = 47
end
object dbgCorrespondenceDBTableView1Column2: TcxGridDBColumn
Caption = #1053#1086#1084#1077#1088' '#1087#1080#1089#1100#1084#1072
DataBinding.FieldName = 'f2'
HeaderAlignmentVert = vaCenter
Width = 97
end
object dbgCorrespondenceDBTableView1Column3: TcxGridDBColumn
Caption = #1044#1072#1090#1072' '#1089#1082#1072#1085#1080#1088#1086#1074#1072#1085#1080#1103
DataBinding.FieldName = 'f3'
DateTimeGrouping = dtgByDateAndTime
HeaderAlignmentVert = vaCenter
Width = 146
end
object dbgCorrespondenceDBTableView1Column9: TcxGridDBColumn
Caption = #1044#1072#1090#1072' '#1086#1090#1087#1088#1072#1074#1082#1080' '#1087#1086#1083#1091#1095#1072#1090#1077#1083#1102
DataBinding.FieldName = 'f4'
DateTimeGrouping = dtgByDateAndTime
HeaderAlignmentVert = vaCenter
Width = 146
end
object dbgCorrespondenceDBTableView1Column4: TcxGridDBColumn
Caption = #1064#1090#1088#1080#1093'-'#1082#1086#1076
HeaderAlignmentVert = vaCenter
Width = 127
end
object dbgCorrespondenceDBTableView1Column10: TcxGridDBColumn
Caption = #1042#1080#1076' '#1086#1090#1087#1088#1072#1074#1080#1090#1077#1083#1103
HeaderAlignmentVert = vaCenter
Width = 110
end
object dbgCorrespondenceDBTableView1Column5: TcxGridDBColumn
Caption = #1056#1077#1075#1080#1089#1090#1088#1072#1090#1086#1088
HeaderAlignmentVert = vaCenter
Width = 212
end
object dbgCorrespondenceDBTableView1Column7: TcxGridDBColumn
Caption = #1055#1086#1083#1091#1095#1072#1090#1077#1083#1100
HeaderAlignmentVert = vaCenter
Width = 130
end
object dbgCorrespondenceDBTableView1Column8: TcxGridDBColumn
Caption = #1055#1086#1083#1091#1095#1072#1090#1077#1083#1100' ('#1082#1086#1087#1080#1103')'
HeaderAlignmentVert = vaCenter
Width = 130
end
object dbgCorrespondenceDBTableView1Column6: TcxGridDBColumn
Caption = #1057#1090#1072#1090#1091#1089' '#1087#1080#1089#1100#1084#1072
HeaderAlignmentVert = vaCenter
Width = 139
end
end
object dbgCorrespondenceLevel1: TcxGridLevel
GridView = dbgCorrespondenceDBTableView1
end
end
object dxMemData1: TdxMemData
Active = True
Indexes = <>
Persistent.Data = {
5665728FC2F5285C8FFE3F040000000400000003000300663100140000000100
0300663200080000000B000300663300080000000B0003006634000101000000
01010000003101004C7CF44CD4CC420100B06A104DD4CC420102000000010100
0000320100849FBC4CD4CC4201004428A14CD4CC420103000000010100000033
0100E8FB05FDD3CC420100E831B247D4CC42}
SortOptions = []
Left = 528
Top = 176
object dxMemData1f1: TIntegerField
FieldName = 'f1'
end
object dxMemData1f2: TStringField
FieldName = 'f2'
end
object dxMemData1f3: TDateTimeField
FieldName = 'f3'
end
object dxMemData1f4: TDateTimeField
FieldName = 'f4'
end
end
object DataSource1: TDataSource
DataSet = dxMemData1
Left = 528
Top = 208
end
[/more]
Добавлено: X11 Цитата: Подскажите, пожалуйста, как можно закрасить пункты подменю (cxBarEditItem1) и изменять цвет текста.
Попробуйте подход, описанный в
How to change the color of a BarItem