RVA_TranslateUnits procedure

<< Click to display table of contents >>

RVA_TranslateUnits procedure

Translates units of measurement to the current language.

procedure RVA_TranslateUnits(SL: TStrings; ControlPanel: TComponent=nil);

If ControlPanel is a TRVAControlPanel component, the function uses it. Otherwise, it uses MainRVAControlPanel.

SL must have 6 items corresponding to the following units, in the specified order:

Inches,

Centimeters,

Millimeters,

Picas,

Pixels,

Points.

The name of the current language is returned as ControlPanel.Language, or by RVA_GetLanguageName function.

The current language can be changed by assigning a new value to ControlPanel.Language, or by calling RVA_SwitchLanguage procedure.