paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 20:39:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix the error of Chinese system getting language information under Windows system

Browse Source 
(cherry picked from commit c39a9ffad3)
This commit is contained in:
ACTom 2023-05-10 09:25:59 +00:00 committed by marcoonthegit
parent 6b9d7f3bf1
commit 9f96c73881
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-base/src/gettext.pp
View File

@ -295,14 +295,20 @@ begin
Lang := '';
FallbackLang:='';
UserLCID := GetUserDefaultLCID;
if GetLocaleInfo(UserLCID, LOCALE_SABBREVLANGNAME, @Buffer[1], 4)<>0 then
if GetLocaleInfo(UserLCID, LOCALE_SABBREVLANGNAME, @Buffer[1], 4)<>0 then begin
FallbackLang := lowercase(copy(Buffer,1,2));
// Chinese abbreviation should be zh instead of ch
if (Copy(Buffer,1,3)='CHS') or (Copy(Buffer,1,3)='CHT') then FallbackLang:='zh';
end;
if GetLocaleInfo(UserLCID, LOCALE_SABBREVCTRYNAME, @Buffer[1], 4)<>0 then begin
Country := copy(Buffer,1,2);
// some 2 letter codes are not the first two letters of the 3 letter code
// there are probably more, but first let us see if there are translations
if (Buffer='PRT') then Country:='PT';
if (Copy(Buffer,1,3)='CHN') then Country:='CN';
Lang := FallbackLang+'_'+Country;
end;