paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-07 09:26:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add AMPM to string, patch from closes #39973

Browse Source
This commit is contained in:
marcoonthegit 2022-10-29 16:12:40 +02:00
parent f18524f2fe
commit f9a76aaa56
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

@ -1243,9 +1243,15 @@ begin
HF:='h' HF:='h'
else else
HF:='hh'; HF:='hh';
// No support for 12 hour stuff at the moment...
ShortTimeFormat := HF+':nn'; ShortTimeFormat := HF+':nn';
LongTimeFormat := HF + ':nn:ss'; 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 } { Currency stuff }
CurrencyString:=GetLocaleStr(LID, LOCALE_SCURRENCY, ''); CurrencyString:=GetLocaleStr(LID, LOCALE_SCURRENCY, '');
CurrencyFormat:=StrToIntDef(GetLocaleStr(LID, LOCALE_ICURRENCY, '0'), 0); CurrencyFormat:=StrToIntDef(GetLocaleStr(LID, LOCALE_ICURRENCY, '0'), 0);