IResourceLocale.IsCurrent

Syntax

IsCurrent: Boolean;

Description

The IsCurrent property determines whether the language is the current translation language.

Comments

Available values:

Translation language is a language that is used to display values in the repository language for the current user, if it differs from the default repository language. If resources do not contain the translation language that matches the current user repository language, default resource language values are used.

Example

Executing the example requires that the repository contains resources with the APP_RESOURCE identifier. These resources must contain several languages.

Add links to the IO, Metabase system assemblies.

Sub UserProc;
Var
    mb: IMetabase;
    Resource: IResourceObject;
    Locales: IResourceLocales;
    Locale: IResourceLocale;
Begin
    
// Get current repository
    mb := MetabaseClass.Active;
    
// Get resources
    Resource := mb.ItemById("APP_RESOURCE").Edit As IResourceObject;
    
// Get resource languages collection
    Locales := Resource.Locales;
    
// Get the second resource language
    Locale := Locales.Item(1);
    
// Check if the language is the current translation language
    If Locale.IsCurrent
        
// If the language is, display appropriate message
        Then
            Debug.WriteLine(Locale.Id + 
"(" + Locale.Key.ToString + ")" +
                
"Current translation language");
        
// If the language is not, make it the current translation language  
        Else
            Locale.IsCurrent := 
True;
    
End If;
    
// Save changes
    (Resource As IMetabaseObject).Save;
End Sub UserProc;

After executing the example the second resource language is set as a translation language.

See also:

IResourceLocale