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

* detect language under windows, patch by Ales Katona

Browse Source 
git-svn-id: trunk@289 -
This commit is contained in:
peter 2005-06-08 20:48:26 +00:00
parent bffd9f2cc7
commit 698e88ac72
1 changed files with 31 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
fcl/inc/gettext.pp
View File

@ -76,7 +76,7 @@ type
implementation
uses dos;
uses {$ifdef win32} windows, {$endif}dos;
var
GettextUsed: Boolean;
@ -260,10 +260,39 @@ end;
{$endif}
procedure TranslateResourceStrings(const AFilename: String);
{$ifdef win32}
procedure GetLanguageIDs(var Lang, FallbackLang: string);
var
Buffer: array[1..4] of char;
Country: string;
UserLCID: LCID;
begin
//defaults
Lang := '';
FallbackLang:='';
UserLCID := GetUserDefaultLCID;
if GetLocaleInfo(UserLCID, LOCALE_SABBREVLANGNAME, @Buffer, 4)<>0 then
FallbackLang := lowercase(copy(Buffer,1,2));
if GetLocaleInfo(UserLCID, LOCALE_SABBREVCTRYNAME, @Buffer, 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';
Lang := FallbackLang+'_'+Country;
end;
end;
{$endif}
var
mo: TMOFile;
lang, FallbackLanguage: String;
begin
{$ifdef win32}
GetLanguageIDs(Lang, FallbackLanguage);
{$else}
lang := GetEnv('LC_ALL');
if Length(lang) = 0 then
begin
@ -275,8 +304,8 @@ begin
exit; // no language defined via environment variables
end;
end;
FallbackLanguage := Copy(lang, 1, 2);
{$endif}
try
mo := TMOFile.Create(Format(AFilename, [FallbackLanguage]));
try