Как я могу перевести строки ресурсов Firemonkey?

Question

Я иразильский, и мне нужны строки ресурсов Firemonkey на моем языке, например, когда я использую диалоги. Я не мог найти способ его перевести. Кто-нибудь знает, как это сделать?

Answer 1

Что вам нужно, это this, но для FMX. В результате быстрого поиска единственным файлом, который я нашел в help for Delphi XE2, является FMX.Consts. Вы берете этот файл, переводите его, а затем помещаете переведенный файл в свой проект.

Позаботьтесь, когда Delphi получит обновление. Исходный файл можно изменить, и вам нужно будет обновить ваш перевод. Кроме того, вы, вероятно, захотите изменить любые другие файлы, которые имеют Resource Strings, и используются в вашем проекте.

Наконец, я не эксперт в этом, но если вы планируете использовать многоязычный язык, это может быть не лучшим подходом.

Answer 2

Перевод форматов FMX осуществляется с помощью компонента TLang, хотя это не будет работать для большинства диалогов.

Answer 3

Вы можете изменить диалоги с помощью FMX.Consts.pas, но он исправляет язык во время компиляции. Если вы хотите проверить языковые версии ОС хоста во время выполнения, вы должны исправить FMX.Platform.Android.pas или FMX.Platform.iOS.pas.

Для Android, в FMX.Platform.Android.pas, в процедуре TPlatformAndroid.MessageDialog ... найдите ButtonCaptions и окружите его своей собственной функцией, например: ZSTranslate (ButtonCaptions [B]). Объявить ZSTranslate следующим образом:

function ZSTranslate(txt: String):String; 
var 
    LocaleSvc: IFMXLocaleService; 
begin 
    LocaleSvc := TPlatformServices.Current.GetPlatformService(IFMXLocaleService) as IFMXLocaleService; 
result:=txt; 
if LocaleSvc.GetCurrentLangID ='your_language_two_letter_id' then 
begin 
    if txt= 'Yes' then 
    result := 'yes in your language' 
    else 
    if txt= 'No' then 
     result := 'no in your language' 
    else 
    if txt= 'Confirm' then 
     result := 'confirm in your language' 
     else 
    if txt= 'Cancel' then 
     result := 'cancel in your language'; 
end 
end; 

Место ZSTranslate где-то выше TPlatformAndroid.MessageDialog в копию FMX.Platform.Android.pas, и добавить эту исправленную версию FMX.Platform.Android.pas для вашего проекта ,

Обратите внимание, что приведенный выше пример очень прост, и насколько я помню, в системе качества Embarcadero существует нерешенный случай, предлагающий здесь метод перевода (так что TLang должен работать нормально). Я не пытался перевести, моя версия выполнила эту работу (так как в диалоговом окне всего несколько ярлыков кнопок, и мне нужны только два разных языка).

Для iOS вы должны посмотреть в FMX.Platform.iOS.pas для функции TPlatformCocoaTouch.MessageDialog. Обратите внимание, что есть две перегруженные версии. В iOS также есть MsgTitles и ButtonCaptions, в качестве диалогов на iOS показаны титры.

PS. Для польского языка мне пришлось исправить также метод GetCurrentLangID, потому что он всегда возвращал «en» - пожалуйста, дважды проверьте результат для своего языка. Версии, которые работали для меня: в FMX.Platform.iOS.pas:

function TPlatformCocoaTouch.GetCurrentLangID: string; 
var 
    lngs : NSArray; 
    CurrentLocale: NSLocale; 
    LanguageISO: NSString; 
begin 
    lngs := TNSLocale.OCClass.preferredLanguages; 
    LanguageISO:= TNSString.Wrap(lngs.objectAtIndex(0)); 
    //CurrentLocale := TNSLocale.Wrap(TNSLocale.OCClass.currentLocale); 
    //LanguageISO := TNSString.Wrap(CurrentLocale.objectForKey((NSLocaleLanguageCode as ILocalObject).GetObjectID)); 
    Result := UTF8ToString(LanguageISO.UTF8String); 
    if Length(Result) > 2 then 
    Delete(Result, 3, MaxInt); 
end; 

в FMX.Platform.Android.pas:

function TPlatformAndroid.GetCurrentLangID: string; 
var 
    Locale: JLocale; 
begin 
    Locale := TJLocale.JavaClass.getDefault; 
    Result := JStringToString(Locale.getLanguage);//getISO3Language); //zs 
    if Length(Result) > 2 then 
    Delete(Result, 3, MaxInt); 
end;