paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-04 04:40:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCProc Carbon: check that bundle exists before getting languages

Browse Source 
git-svn-id: trunk@20944 -
This commit is contained in:
tombo 2009-07-25 15:14:29 +00:00
parent fa67cda580
commit de500e63ba
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/lclproc.pas
View File

@ -4232,6 +4232,7 @@ procedure LCLGetLanguageIDs(var Lang, FallbackLang: String);
StrRange: CFRange;
begin
Result := 'en';
if CFBundleGetMainBundle = nil then Exit;
LangArray := CFBundleCopyLocalizationsForPreferences(CFBundleCopyBundleLocalizations(CFBundleGetMainBundle), nil);
try
if CFArrayGetCount(LangArray) > 0 then