[starcon]

Я задавал вот так
DD.MM.YYYY в EditFormat

У меня нормально, только дату пишет

[Страдалецъ]

Ну хорошо, а такой вариант устроит?

Код:

 if DBGrid1.DataSource.DataSet.Fields[0].DataType = ftDateTime
 then TDateTimeField(DBGrid1.DataSource.DataSet.Fields[0]).DisplayFormat := 'dd.mm.yyyy';

[Alegun]

ТС DBGridEh пользует, что понял из его пояснений, то как в поле этой шароварной сетки тип DateTime автоматом подставляется вместо Date, вот он и желает убрать временную составляющую от показа. Лазил в хелпы EhLib`ского календаря (он как редактор даты используется в гриде), но про то, как вырубить энто дело там что-то ни звука, нужен совет тех, кто юзал эту либу

[ApxaHGe1]

Сообщение от Страдалецъ

Ну хорошо, а такой вариант устроит?

Код:

 if DBGrid1.DataSource.DataSet.Fields[0].DataType = ftDateTime
 then TDateTimeField(DBGrid1.DataSource.DataSet.Fields[0]).DisplayFormat := 'dd.mm.yyyy';

Возможно такой вариант подойдет. При отрисовке грида. Завтра проверю. Спасибо

[lmikle]

тогда читай метаданные и по ним создавай соотв. поля.

[ApxaHGe1]

Сообщение от Alegun

ТС DBGridEh пользует, что понял из его пояснений, то как в поле этой шароварной сетки тип DateTime автоматом подставляется вместо Date, вот он и желает убрать временную составляющую от показа. Лазил в хелпы EhLib`ского календаря (он как редактор даты используется в гриде), но про то, как вырубить энто дело там что-то ни звука, нужен совет тех, кто юзал эту либу

Все верно.

[ApxaHGe1]

Ни разу не занимался разбором компонентов. В dbgrideh.pas есть такое

Код:

function FormatFieldDisplayValue(Field: TField; DisplayFormat: String): String;
begin
  if DisplayFormat = '' then
    Result := Field.DisplayText
  else if Field.IsNull then
    Result := ''
  else if Field is TNumericField then
    Result := FormatFloat(DisplayFormat, Field.AsFloat)
  else if Field is TDateTimeField then
    DateTimeToString(Result, DisplayFormat, Field.AsDateTime)
{$IFDEF EH_LIB_6}
  else if Field is TSQLTImeStampField then
    DateTimeToString(Result, DisplayFormat, Field.AsDateTime)
{$ENDIF}
  else if (Field is TAggregateField) and (TAggregateField(Field).ResultType in [ftFloat, ftCurrency]) then
     Result := FormatFloat(DisplayFormat, Field.Value)
  else if (Field is TAggregateField) and (TAggregateField(Field).ResultType in [ftDate, ftTime, ftDatetime]) then
    DateTimeToString(Result, DisplayFormat, Field.Value)
  else
    Result := '';
end;

Если тут поменять datetime на date. Это не поможет?