<< Click to display table of contents >> RVA_ChooseLanguage Function |
Displays a dialog for choosing UI language and applies the chosen language.
Unit RichViewActions.
function RVA_ChooseLanguage(ControlPanel: TRVAControlPanel = nil): Boolean;
This function displays a dialog containing a list with all available UI languages.
If the user pressed "OK", this function calls RVA_SwitchLanguage and returns True.
You may need to perform additional operations on the language changing, see RVA_SwitchLanguage for details.
In Delphi 4-2007, this function displays language names in English.
In new versions of Delphi (or if TNT Controls are used), this function displays both English and native language names.
Example (from the ActionTest demo):
// button at the right side of status bar
procedure TForm3.Button1Click(Sender: TObject);
begin
if RVA_ChooseLanguage then
Localize;
end;
procedure TForm3.FormCreate(Sender: TObject);
begin
...
Localize;
...
end;
procedure TForm3.Localize;
var Index: Integer;
begin
// Fonts (for Delphi 5-2007)
Font.Charset := RVA_GetCharset;
StatusBar1.Font.Charset := RVA_GetCharset;
// Fonts (for Delphi 6-2007)
Screen.HintFont.Charset := RVA_GetCharset;
Screen.MenuFont.Charset := RVA_GetCharset;
// Localizing all actions on rvActionsResource
RVA_LocalizeForm(rvActionsResource);
// Localizing all actions on this form
RVA_LocalizeForm(Self);
// Localizing ruler
RVALocalizeRuler(RVRuler1);
// Localizing menus
mitFile.Caption := RVA_GetS(rvam_menu_File);
mitEdit.Caption := RVA_GetS(rvam_menu_Edit);
// Styles
rvActionsResource.rvActionStyleInspector1.UpdateInfo;
RVStyleTemplateComboBox1.Localize;
// Localizing combobox with units of measurement
Index := cmbUnits.ItemIndex;
RVA_TranslateUnits(cmbUnits.Items);
cmbUnits.ItemIndex := Index;
end;