lazarus-ccr/components/tvplanit/examples/localization

--------------------------------------------------------------------------------
                           translations_demo
--------------------------------------------------------------------------------

This project shows how a single-language (non-English) application with
TvPlanIt components can be created. The example will be for a German application.

These are the general instructions:

- Create a folder "languages" for the translation files. Normally it is in the
  folder of the binary, but in order so share the translation files with other
  sample projects, we've put it in the top level of the TvPlanIt installation
  folder structure.

- After compilation a .pot file is created in the languages folder. Copy it and
  rename it to have the "double" extension .de.po where "de" indicates the
  German translation

- Install a translation tool (e.g. "poedit") and open this file in it. Translate
  all the strings to German. Save.

- The TvPlanIt translation files have the names vpsr.<country>.po where <country>
  is the two-digit symbol of the country, in our example: vpsr.de.po

- Copy the file vpsr.de.po (from (tvplanit)/languages) to the languages folder
  of the project.

- Copy the LCL strings file, lclstrconsts.de.po, from the lcl/languages folder
  of the Lazarus installation to the languages folder of the project.

- Repeat with other packages needed by the project.

- Add the units LCLTranslator and translations to the uses clause of the main
  form.

- In the OnCreate handler of the main form call the following function

  procedure TMainForm.SelectLanguage(ALang: String);
  var
    langDir: String;
  begin
    // Calculate the path to the directory with the translation files.
    langDir := ExpandFileName(Application.Location + '../../languages/');  // Adapt to the true location of the languages folder...

    // Switch language of the application. This is a function in LCLTranslator.
    SetDefaultLang(ALang, langDir);

    // Translate all package string files needed.
    TranslateUnitResourceStrings('vpsr', langDir + 'vpsr.' + ALang + '.po');
    TranslateUnitResourceStrings('lclstrconsts', langDir + 'lclstrconsts.' + ALang + '.po');

    // We must call the method LoadLanguage for all used TvPlanIt visual
    // components in order to use the translated strings in the popup menus
    // and other places not automatically handled by LCLTranslator.
    VpDayView1.LoadLanguage;
    VpWeekView1.LoadLanguage;
    VpMonthView1.LoadLanguage;
    VpTaskList1.LoadLanguage;
    VpContactGrid1.LoadLanguage;
  end;