Подскажите как русифицировать данный пакет компонентов.
В исходниках 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;
По итогу ничего не происходит..
Подскажите пожалуйста, что не так?