Локализация приложений

2009-08-09T15:42:51Z

77.66.230.115:

В .NET есть развитые средства локализации приложений. Соответственно эти возможности доступны в PascalABC.NET. Ниже приведен минимальный код, использующий ресурсы для локализации приложения на лету.

На данный момент в PascalABC.NET нет редактора ресурсов. Однако их можно создать программно, используя класс ResourceWriter. Следует отметить, что имя файла ресурса (точнее корневая папка ресурса) должно совпадать с именем файла основной программы. Назовем основную программу CultureForm. Тогда код генерации ресурсов выглядит так.

<source lang="Pascal"> #reference 'System.Windows.Forms.dll'

uses System, System.Windows.Forms, System.Globalization, System.Resources, System.Diagnostics;

procedure MakeResource;
begin
var rw := new ResourceWriter('CultureForm.en-US.resources');
rw.AddResource('MyButton','Click me');
rw.Close();
rw := new ResourceWriter('CultureForm.ru-RU.resources');
rw.AddResource('MyButton','Нажми меня');
rw.Close();
end;

begin
MakeResource();
end.</source>

Далее необходимо создать в папке программы CultureForm подпапку resources и скопировать туда файлы CultureForm.en-US.resources и CultureForm.ru-RU.resources.
Теперь наша основная программа:

<source lang="Pascal"> program CultureForm
#reference 'System.Windows.Forms.dll'
#reference 'System.Drawing.dll'

uses System, System.Windows.Forms, System.Globalization, System.Resources;

var f : Form;
btn : Button;
rm : ResourceManager;
ru_cult : CultureInfo := new CultureInfo('ru-RU');
en_cult : CultureInfo := new CultureInfo('en-US');
local : boolean;

procedure ButtonClicked(sender : object; e : EventArgs);
begin
if not local then
btn.Text := rm.GetString('MyButton',ru_cult) //надпись на русском языке
else
btn.Text := rm.GetString('MyButton',en_cult); //на английском языке
local := not local;
end;

begin
//загрузка ресурсов
rm := ResourceManager.CreateFileBasedResourceManager('CultureForm2',System.IO.Path.Combine(GetCurrentDir(),'resources'),nil);
f := new Form;
btn := new Button();

btn.Text := rm.GetString('MyButton',en_cult);
btn.Click += ButtonClicked;
f.Controls.Add(btn);
Application.Run(f);
end.</source>

Вики проекта PascalABC.NET - Вклад [ru]

Локализация приложений