paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-01 14:39:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

LazReport, editor sample: cleanup

Browse Source 
git-svn-id: trunk@52569 -
This commit is contained in:
maxim 2016-06-22 21:44:55 +00:00
parent a3fdf62ba2
commit 7175fcd4fc
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -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