|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#16
|
|||
|
|||
Я задавал вот так
DD.MM.YYYY в EditFormat У меня нормально, только дату пишет |
#17
|
||||
|
||||
Ну хорошо, а такой вариант устроит?
Код:
if DBGrid1.DataSource.DataSet.Fields[0].DataType = ftDateTime then TDateTimeField(DBGrid1.DataSource.DataSet.Fields[0]).DisplayFormat := 'dd.mm.yyyy'; Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
Этот пользователь сказал Спасибо Страдалецъ за это полезное сообщение: | ||
ApxaHGe1 (12.03.2016)
|
#18
|
||||
|
||||
ТС DBGridEh пользует, что понял из его пояснений, то как в поле этой шароварной сетки тип DateTime автоматом подставляется вместо Date, вот он и желает убрать временную составляющую от показа. Лазил в хелпы EhLib`ского календаря (он как редактор даты используется в гриде), но про то, как вырубить энто дело там что-то ни звука, нужен совет тех, кто юзал эту либу
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
Этот пользователь сказал Спасибо Alegun за это полезное сообщение: | ||
ApxaHGe1 (12.03.2016)
|
#19
|
|||
|
|||
Цитата:
|
#20
|
|||
|
|||
тогда читай метаданные и по ним создавай соотв. поля.
|
#21
|
|||
|
|||
Цитата:
|
#22
|
|||
|
|||
Ни разу не занимался разбором компонентов. В 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; |