Browse Source

* Merging revisions 1080 from trunk:
------------------------------------------------------------------------
r1080 | svenbarth | 2021-02-19 17:27:46 +0100 (Fri, 19 Feb 2021) | 1 line

* provide suitable defaults for Long- and ShortTimeFormat
------------------------------------------------------------------------

michael 4 years ago
parent
commit
5f4c021342
1 changed files with 2 additions and 0 deletions
  1. 2 0
      packages/rtl/sysutils.pas

+ 2 - 0
packages/rtl/sysutils.pas

@@ -4919,6 +4919,8 @@ begin
   Result.TimeSeparator := ':';
   Result.ShortDateFormat := 'yyyy-mm-dd';
   Result.LongDateFormat := 'ddd, yyyy-mm-dd';
+  Result.ShortTimeFormat := 'hh:nn';
+  Result.LongTimeFormat := 'hh:nn:ss';
   Result.DecimalSeparator := '.';
   Result.ThousandSeparator := ',';
   Result.TimeAMString := 'AM';