paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 01:36:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

Lazutils: try to correctly detect current language on macOS for applications started not from terminal, issue #40495

Browse Source
This commit is contained in:
Maxim Ganetsky 2023-09-11 17:30:15 +03:00
parent 3386610492
commit 1a4f2d3c20
1 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
components/lazutils/translations.pas
View File

@ -225,6 +225,11 @@ uses
Windows;
{$ENDIF}
{$IFDEF DARWIN}
uses
MacOSAll;
{$ENDIF}
function IsKey(Txt, Key: PChar): boolean;
begin
if Txt=nil then exit(false);
@ -535,6 +540,10 @@ function GetLanguageID: TLanguageID;
procedure GetLanguage;
var
EnvVarContents: string;
{$IFDEF DARWIN}
cfLang: CFPropertyListRef;
lang: array[0..49] of char;
{$ENDIF}
begin
EnvVarContents := GetEnvironmentVariable('LC_ALL');
if Length(EnvVarContents) = 0 then
@ -543,6 +552,21 @@ function GetLanguageID: TLanguageID;
if Length(EnvVarContents) = 0 then
EnvVarContents := GetEnvironmentVariable('LANG');
end;
{$IFDEF DARWIN}
// macOS does not set environment variables for GUI applications which are not started from terminal.
// Obtain language identifier in a different (but independent on settings in Application Bundle) way.
// AppleLocale property is expected to contain values in ISO formats, like `ru_RU`, `zh_CN`, `it_IT`.
if Length(EnvVarContents) = 0 then
begin
cfLang:= CFPreferencesCopyAppValue( CFSTR('AppleLocale'), CFSTR('') );
if Assigned(cfLang) then
begin
CFStringGetCString( cfLang, lang, SizeOf(lang), kCFStringEncodingUTF8 );
EnvVarContents := lang;
CFRelease( cfLang );
end;
end;
{$ENDIF}
// Even empty EnvVarContents is processed in order to return normalized ID
Result := GetLanguageIDFromLocaleName(EnvVarContents);
end;