IResourceLocale.IsCurrent

Синтаксис

IsCurrent: Boolean;

Описание

Свойство IsCurrent определяет является ли язык текущим языком перевода.

Комментарии

Возможные значения:

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

Пример

Для выполнения примера в репозитории предполагается наличие ресурсов с идентификатором «APP_RESOURCE». В данных ресурсах должно содержаться несколько языков.

Добавьте ссылки на системные сборки: IO, Metabase.

Sub UserProc;
Var
    mb: IMetabase;
    Resource: IResourceObject;
    Locales: IResourceLocales;
    Locale: IResourceLocale;
Begin
    // Получаем текущий репозиторий
    mb := MetabaseClass.Active;
    // Получаем ресурсы
    Resource := mb.ItemById("APP_RESOURCE").Edit As IResourceObject;
    // Получаем коллекцию языков ресурсов
    Locales := Resource.Locales;
    // Получаем второй язык в ресурсах
    Locale := Locales.Item(1);
    // Проверяем, является ли он текущим языком перевода
    If Locale.IsCurrent
        // Если является, то выводим соответствующее сообщение
        Then
            Debug.WriteLine(Locale.Id + "(" + Locale.Key.ToString + ")" +
                "Является текущим языком перевода");
        // Если не является, то делаем его текущим языком перевода  
        Else
            Locale.IsCurrent := True;
    End If;
    // Сохраняем изменения
    (Resource As IMetabaseObject).Save;
End Sub UserProc;

В результате выполнения примера второй язык в ресурсах будет установлен в качестве языка перевода.

См. также:

IResourceLocale