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

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

2009-08-09T18:51:21Z

92.207.105.188:

В .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('CultureForm',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>

Заглавная страница

2009-08-09T14:04:58Z

92.207.105.188:

== Web-среда разработки PascalABC.NET ==

[[Основная страница проекта WDE PascalABC.NET|Основная страница проекта]]

== Некоторые статьи о PascalABC.NET ==
* [[Шаблоны кода]]

== Некоторые статьи о внутреннем представлении PascalABC.NET ==

* [[Архитектура PascalABC.NET]]
* [[Интерфейс подключения нового языка программирования]]
* [[Директивы компилятора]]
* [[Синтаксическое дерево]]
* [[Семантическое дерево]]
* [[Формат PCU]]
* [[Отладчик]]
* [[Intellisense]]

== Некоторые статьи по программированию в PascalABC.NET ==
* [[Локализация приложений]]

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

2009-08-09T10:23:40Z

92.207.105.188:

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

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

#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.

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

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.

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

2009-08-09T10:22:36Z

92.207.105.188:

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

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

#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.

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

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.

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

2009-08-09T10:20:06Z

92.207.105.188:

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

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

#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.

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

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.CreateFileBasedResourceManager('CultureForm2',System.IO.Path.Combine(GetCurrentDir(),'resources'),nil);
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
f := new Form;
btn := new Button();

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

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

2009-08-09T10:17:52Z

92.207.105.188:

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

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

#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.

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

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 := ResourceManager.CreateFileBasedResourceManager('CultureForm2',System.IO.Path.Combine(GetCurrentDir(),'resources'),nil);
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
f := new Form;
btn := new Button();

btn.Text := 'Click me';
btn.Click += ButtonClicked;
f.Controls.Add(btn);
Application.Run(f);
end.

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

2009-08-09T10:10:20Z

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