LSeconds := Trunc(AValue / msecPerSecond) LMinutes := Trunc(AValue / msecPerMinute) ДЄValue := AValue - (lMinutes * msecPerMinute) TcxComboboxProperties(cxGridDBColumn.Properties).Items.Add(ValueList.DisplayText) ДЇunction TMainForm.FormatMilliseconds(AValue: Integer): string ДЄValue := AValue - (lHours * msecPerHour) TcxComboboxProperties(cxGridDBColumn.Properties).Items.Clear Д¬(FilterStrings, ValueList) Procedure TMainForm.BuildProperties(const cxGridDBColumn: TcxGridDBColumn) Procedure idDBTableView1time_fieldGetDataText(Sender: TcxCustomGridTableItem ARecordIndex: Integer var AText: string) Index := gridDBTableView1date_field.Index Д¬xTextEdit3.Text := AFocusedRecord.Values Д¬xTextEdit4.Text := AFocusedRecord.DisplayTexts Index := gridDBTableView1time_field.Index Д¬xTextEdit1.Text := AFocusedRecord.Values Д¬xTextEdit2.Text := AFocusedRecord.DisplayTexts Procedure idDBTableView1FocusedRecordChanged(Sender: TcxCustomGridTableView APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord ANewItemRecordFocusingChanged: Boolean) Procedure idDBTableView1date_fieldGetDataText(Sender: TcxCustomGridTableItem ARecordIndex: Integer var AText: string) ДЄText := FormatDateTime(FormatSettings.LongDateFormat, lDateTime) MemData.AppendRecord() Д«uildProperties(gridDBTableView1time_field) Д«uildProperties(gridDBTableView1date_field) ДЇilterEditsController.Register(TcxComboboxProperties, TmyFilterComboBoxHelper) GridDBTableView1date_field.PropertiesClass := TcxComboboxProperties Д¬urDate := Random(Trunc(Date - BeginOfYear)) + BeginOfYear GridDBTableView1time_field.PropertiesClass := TcxComboboxProperties Procedure TMainForm.FormCreate(Sender: TObject) ДЇormatSettings := TFormatSettings.Create(1030) // HARDCODED TO DANISH Procedure BuildProperties(const cxGridDBColumn: TcxGridDBColumn) ДЇunction FormatMilliseconds(AValue: Integer): string Procedure gridDBTableView1FocusedRecordChanged(Sender: TcxCustomGridTableView APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord ANewItemRecordFocusingChanged: Boolean) Procedure gridDBTableView1date_fieldGetDataText(Sender: TcxCustomGridTableItem ARecordIndex: Integer var AText: string) Procedure gridDBTableView1time_fieldGetDataText(Sender: TcxCustomGridTableItem ARecordIndex: Integer var AText: string) GridDBTableView1date_field: TcxGridDBColumn GridDBTableView1time_field: TcxGridDBColumn TmyFilterComboBoxHelper = class(TcxFilterComboBoxHelper)Д¬lass function TryLongDateFormatToDate(const S: string out Value: TDateTime): Boolean Д¬lass function TryStringToMilliseconds(const S: string out Value: Int64): Boolean Д¬lass procedure GetFilterValue(AEdit: TcxCustomEdit AEditProperties: TcxCustomEditProperties var V: Variant var S: TCaption) override MsecPerMinute: Integer = SecsPerMin * MSecsPerSec Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics, cxControls, cxLookAndFeels, Dateutils,Д¬xLookAndFeelPainters, cxStyles, cxCustomData, cxFilter, cxData, cxFilterDialog,Д¬xDataStorage, cењЋdit, cxNavigator, Data.DB, cxDBData, cxGridCustomTableView,Д¬xGridTableView, cxGridDBTableView, dxmdaset, cxGridLevel, cxClasses,Д¬xGridCustomView, cxGrid, cxContainer, cxTextEdit, cxLabel, cxGroupBox, Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Cxgrid