paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-27 22:25:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

Examples, Translation: removed GetDefaultLang reference, made TMainForm.SelectLanguage method use SetDefaultLang result

Browse Source 
git-svn-id: trunk@61600 -
This commit is contained in:
maxim 2019-07-18 00:06:01 +00:00
parent 4f92041356
commit 3bbfbdcaac
1 changed files with 27 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
examples/translation/main.pas
View File

@ -149,7 +149,7 @@ begin
store language in a configuration file and apply that selection here. } store language in a configuration file and apply that selection here. }
SelectLanguage('en'); SelectLanguage('en');
{ OR: Start the program with system's default language: { OR: Start the program with system's default language:
SelectLanguage(GetDefaultLang); } SelectLanguage(''); }
end; end;
{ Another example how to combine translated strings, in this case for a { Another example how to combine translated strings, in this case for a
@ -174,8 +174,10 @@ var
lang: String; lang: String;
begin begin
// Switch language - this is in LCLTranslator // Switch language - this is in LCLTranslator
SetDefaultLang(ALang); ALang := SetDefaultLang(ALang);
if ALang <> '' then
begin
// Switch default settings by calling the procedure provided in BasicLocalizedForm.pas. // Switch default settings by calling the procedure provided in BasicLocalizedForm.pas.
UpdateFormatSettings(ALang); UpdateFormatSettings(ALang);
@ -204,6 +206,7 @@ begin
whether the new language has a different BiDiMode. } whether the new language has a different BiDiMode. }
CurrentLang := ALang; CurrentLang := ALang;
end; end;
end;
{ This method is inherited from LocalizedForm and manually inserts translated { This method is inherited from LocalizedForm and manually inserts translated
strings in cases where LCL/DefaultTranslator cannot do this. } strings in cases where LCL/DefaultTranslator cannot do this. }