[SOLVED] Support with LazReport
lazarus / 31-LCL

----------------------------------------------------------------------
Ever · 2018-10-22 23:14

Regards

    I need to know what I have to do so that the designer of LazReport
when using it at runtime in my developments, will be seen in Spanish
and not in English.

   Thank you

----------------------------------------------------------------------
mtournay · 2018-10-23 07:04

Hi

you have to include lr_const.xx.po in your language directory and call
next func from your lpr

Code: [Select]uses translations, gettext;
...
...
procedure AddTranslation(const ConstFileName: string);
var
  PODirectory, Lang, FallbackLang: string;   
begin
  PODirectory := ExtractFilePath(Application.Exename) + 'languages\';
  Lang := '';
  FallbackLang := '';
  GetLanguageIDs(Lang, FallbackLang); // in unit gettext
  Translations.TranslateUnitResourceStrings(ConstFileName, PODirectory
+ ConstFileName+'.%s.po', Lang, FallbackLang);
end;

this work for LCL, LazReport, ...

regards

----------------------------------------------------------------------
Ever · 2018-10-24 14:57

Thanks for your help, it worked perfectly