From 7175fcd4fc31b3008411fdf5cd3467d26cf9e2f1 Mon Sep 17 00:00:00 2001 From: maxim Date: Wed, 22 Jun 2016 21:44:55 +0000 Subject: [PATCH] LazReport, editor sample: cleanup git-svn-id: trunk@52569 - --- components/lazreport/samples/editor/maincalleditor.pas | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/components/lazreport/samples/editor/maincalleditor.pas b/components/lazreport/samples/editor/maincalleditor.pas index c785a8edf3..8808690815 100644 --- a/components/lazreport/samples/editor/maincalleditor.pas +++ b/components/lazreport/samples/editor/maincalleditor.pas @@ -603,7 +603,6 @@ end; procedure TfrmMain.SaveConfig; var ini: TIniFile; - s: string; begin ini := TIniFile.Create(GetDataPath+'config.ini'); ini.WriteString('General', 'LastReport', fCurReport); @@ -618,11 +617,10 @@ var begin GetLanguageIDs(Lang,FallbackLang); // in unit gettext TranslateUnitResourceStrings('LCLStrConsts','../../../../lcl/languages/lclstrconsts.%s.po', Lang,FallbackLang); - TranslateUnitResourceStrings('MainCallEditor','languages/calleditorwithpkg.%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); // needed to translate strings extracted from forms + SetDefaultLang(Lang, '', false); // needed to translate strings extracted from forms end; initialization