IResourceLocales.Add

Синтаксис Fore

Add(Key: Integer): IResourceLocale;

Синтаксис Fore.NET

Add(Key: uinteger): Prognoz.Platform.Interop.ForeIO.IResourceLocale;

Параметры

Key. Ключ языка.

Описание

Метод Add добавляет язык с указанным ключом в редактор ресурсов.

Комментарии

Для указания ключа языка используйте значения перечисления LocaleCodeID.

Пример Fore

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

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

Sub UserProc;
Var
    mb: IMetabase;
    Resource: IResourceObject;
    Locales: IResourceLocales;
Begin
    // Получаем текущий репозиторий
    mb := MetabaseClass.Active;
    // Получаем ресурсы
    Resource := mb.ItemById("APP_RESOURCE").Edit As IResourceObject;
    // Получаем коллекцию языков ресурсов
    Locales := Resource.Locales;
    // Проверяем, есть ли в коллекции французский язык  
    If Locales.FindByKey(LocaleCodeID.French_France) = Null Then
        // Если французский язык отсутствует, до добавляем его
        Locales.Add(LocaleCodeID.French_France)
    End If;
    // Сохраняем изменения
    (Resource As IMetabaseObject).Save;
End Sub UserProc;

После выполнения примера в редактор ресурсов будет добавлен французский язык.

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.

Imports Prognoz.Platform.Interop.ForeIO;
Imports Prognoz.Platform.Interop.ForeSystem;
…
Public Shared Sub Main(Params: StartParams);
Var
    mb: IMetabase;
    Resource: IResourceObject;
    Locales: IResourceLocales;
Begin
    // Получаем текущий репозиторий
    mb := Params.Metabase;
    // Получаем ресурсы
    Resource := mb.ItemById["APP_RESOURCE"].Edit() As IResourceObject;
    // Получаем коллекцию языков ресурсов
    Locales := Resource.Locales;
    // Проверяем, есть ли в коллекции французский язык  
    If Locales.FindByKey(LocaleCodeID.lcidFrench_France) = Null Then
        // Если французский язык отсутствует, до добавляем его
        Locales.Add(LocaleCodeID.lcidFrench_France)
    End If;
    // Сохраняем изменения
    (Resource As IMetabaseObject).Save();
End Sub;

См. также:

IResourceLocales