AnchorDocking - Как подключить русский язык

[Aleh]

В каталоге c:\lazarus\components\anchordocking\languages\ находятся файлы локализации *.po, в частности anchordockstr.ru.po, и сам Лазарус его как-то использует, так как менюшка и окошко настройки руссифицировано. Но мне в своей программе это сделать не удалось. В общем памагителюдидобрые.
Заранее благодарен за дельный совет!

[Снег Север]

если вас интересует в принципе, как подключать и переключать языки, то вот минидемка

[Aleh]

Большое спасибо.
Быстро посмотрел демку - есть одна "шероховатость" - "родной" anchordockstr.ru.po она не цепляет, но можно добиться результата объединив multi.ru.po демки и anchordockstr.ru.po.
Как я понял нужно в SetDefaultLang(Lang: string; Dir: string = ''; ForceUpdate: boolean = true) передать так параметры, чтоб "удовлетворить" FindLocaleFileName(LCExt: string; Lang: string; Dir: string): string;

[zub]

Код: Выделить всё

uses
  ...gettext,Translations...
var
PODirectory, Lang, FallbackLang:String;
...
GetLanguageIDs(Lang, FallbackLang);
PODirectory:='path/to/your/copy/pofiles/'
TranslateUnitResourceStrings('anchordockstr', PODirectory + 'anchordockstr.%s.po', Lang, FallbackLang);
TranslateUnitResourceStrings('lclstrconsts', PODirectory + 'lclstrconsts.%S.po', Lang, FallbackLang);
...

[Aleh]

Всем спасибо!!! Всё работает!