Components for Delphi and C++ Builder.

unit DBAxisGridsEh;

procedure TDBAxisGridInplaceEdit.DropDown;
...
end else if (FActiveList = FPopupMonthCalendar) then
    begin
      PopupDTPickerItfs := FPopupMonthCalendar as IPopupDateTimePickerEh;
      TimeUnits := GetTimeUnitsForAxisBar(AxisBar);
      PopupDTPickerItfs.SetTimeUnits(TimeUnits);
      PopupDTPickerItfs.SetFontOptions(Font, True);
      FVisibleListWantFocus := PopupDTPickerItfs.WantFocus;

// вот тут передаётся то, что будет в календаре
      if AxisBar.Field.IsNull
        then ADateTime := Date
        else ADateTime := AxisBar.Field.AsDateTime;

      P := AlignDropDownWindow(Self, FActiveList, ADropDownAlign);
      PopupDTPickerItfs.ShowPicker(ADateTime, P, CloseWinCallbackProc);