freepascal.ru

Добрый день!
Подскажите как русифицировать данный пакет компонентов.
В исходниках RX нашел файл:

rxconst.ru.po

положил его в папку вместе с иcходниками проекта.
Использовал уже всеми известную процедуру русификации lazreport, немного переделав под RX:

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

procedure TForm1.TranslateRX(Lang: String);
var
  UserLang, lngFolder, poFileName:string;
  i:integer;
begin
  lngFolder:=ExtractFilePath(ParamStr(0));
  UserLang:=Lang;
  for i := 1 to Paramcount - 1 do
    if (ParamStrUTF8(i) = '--LANG') or (ParamStrUTF8(i) = '-l') or
      (ParamStrUTF8(i) = '--lang') then
      UserLang := ParamStrUTF8(i + 1);
  if UserLang='' then
  UserLang:='ru';
  poFileName:= lngFolder +DirectorySeparator + Format('rxconst.%s.po', [UserLang]);
  if FileExists(poFileName) then
    Translations.TranslateUnitResourceStrings('rxconst', poFileName);
end; 

procedure TForm1.FormShow(Sender: TObject);
begin
TranslateRX('ru');
end;   

По итогу ничего не происходит..
Подскажите пожалуйста, что не так?

Скопируйте также файлы "rxdconst.ru.po" и "rxconst.ru.mo" и добавьте в конец процедуры

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

  poFileName:= lngFolder +DirectorySeparator + Format('rxdconst.%s.po', [UserLang]);
  if FileExists(poFileName) then
    Translations.TranslateUnitResourceStrings('rxdconst', poFileName);             

Спасибо, получилось!

Добавлено спустя 17 часов 51 минуту 18 секунд:
Единственное кнопка Cancel так и осталась)

"lclstrconsts.ru.po"

Еще раз спасибо!