paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-07 13:20:53 +01:00
Code Issues Packages Projects Releases Wiki Activity

LazReport editor sample: migrated to using GetLanguageID function from Translations unit

Browse Source
This commit is contained in:
Maxim Ganetsky 2023-06-12 17:10:11 +03:00
parent 5ad1936941
commit 53bda35072
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/lazreport/samples/editor/maincalleditor.pas
View File

@ -172,7 +172,7 @@ var
implementation
uses gettext,translations, lazutf8;
uses translations, lazutf8;
{$R *.lfm}
@ -615,14 +615,14 @@ end;
procedure TranslateResStrings;
var
Lang, FallbackLang: String;
LangID: TLanguageID;
begin
GetLanguageIDs(Lang,FallbackLang); // in unit gettext
TranslateUnitResourceStrings('LCLStrConsts','../../../../lcl/languages/lclstrconsts.%s.po', Lang,FallbackLang);
TranslateUnitResourceStrings('Lr_const','../../source/languages/lr_const.%s.po', Lang,FallbackLang);
TranslateUnitResourceStrings('lr_add_function_const','../../source/addons/addfunction/languages/lr_add_function_const.%s.po'
,Lang,FallbackLang);
SetDefaultLang(Lang, '', '', false); // needed to translate strings extracted from forms
LangID := GetLanguageID;
TranslateUnitResourceStrings('LCLStrConsts','../../../../lcl/languages/lclstrconsts.%s.po', LangID.LanguageID, LangID.LanguageCode);
TranslateUnitResourceStrings('Lr_const','../../source/languages/lr_const.%s.po', LangID.LanguageID, LangID.LanguageCode);
TranslateUnitResourceStrings('lr_add_function_const','../../source/addons/addfunction/languages/lr_add_function_const.%s.po',
LangID.LanguageID, LangID.LanguageCode);
SetDefaultLang('', '', '', false); // needed to translate strings extracted from forms
end;
initialization