mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-11 16:48:12 +02:00
* According to bug #14960, Delphi TDateTimeField.GetText uses the LongTimeFormat for displaying times
git-svn-id: trunk@15006 -
This commit is contained in:
parent
33f9424d68
commit
9a543dbd1c
@ -2046,7 +2046,7 @@ begin
|
|||||||
F:=FDisplayFormat
|
F:=FDisplayFormat
|
||||||
else
|
else
|
||||||
Case DataType of
|
Case DataType of
|
||||||
ftTime : F:=ShortTimeFormat;
|
ftTime : F:=LongTimeFormat;
|
||||||
ftDate : F:=ShortDateFormat;
|
ftDate : F:=ShortDateFormat;
|
||||||
else
|
else
|
||||||
F:='c'
|
F:='c'
|
||||||
|
Loading…
Reference in New Issue
Block a user