paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 01:09:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add AMPM to string, patch from closes #39973

Browse Source 
(cherry picked from commit f9a76aaa56)
This commit is contained in:
marcoonthegit 2022-10-29 16:12:40 +02:00
parent 3aa9e1dc62
commit 705e7429d3
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/win/sysutils.pp
View File

@ -1056,9 +1056,15 @@ begin
HF:='h'
else
HF:='hh';
// No support for 12 hour stuff at the moment...
ShortTimeFormat := HF+':nn';
LongTimeFormat := HF + ':nn:ss';
{ 12-hour system support }
if GetLocaleInt(LID, LOCALE_ITIME, 1) = 0 then
begin
LongTimeFormat := LongTimeFormat + ' AMPM';
ShortTimeFormat := ShortTimeFormat + ' AMPM';
end;
{ Currency stuff }
CurrencyString:=GetLocaleStr(LID, LOCALE_SCURRENCY, '');
CurrencyFormat:=StrToIntDef(GetLocaleStr(LID, LOCALE_ICURRENCY, '0'), 0);