Локализация приложений - История изменений

92.207.105.188 в 18:51, 9 августа 2009

2009-08-09T18:51:21Z

← Предыдущая версия		Версия от 21:51, 9 августа 2009
Строка 48:		Строка 48:
	begin		begin
	//загрузка ресурсов		//загрузка ресурсов
	rm := ResourceManager.CreateFileBasedResourceManager('~~CultureForm2~~',System.IO.Path.Combine(GetCurrentDir(),'resources'),nil);		rm := ResourceManager.CreateFileBasedResourceManager('CultureForm',System.IO.Path.Combine(GetCurrentDir(),'resources'),nil);
	f := new Form;		f := new Form;
	btn := new Button();		btn := new Button();

77.66.230.115 в 15:42, 9 августа 2009

2009-08-09T15:42:51Z

← Предыдущая версия		Версия от 18:42, 9 августа 2009
Строка 3:		Строка 3:
	На данный момент в PascalABC.NET нет редактора ресурсов. Однако их можно создать программно, используя класс ResourceWriter. Следует отметить, что имя файла ресурса (точнее корневая папка ресурса) должно совпадать с именем файла основной программы. Назовем основную программу CultureForm. Тогда код генерации ресурсов выглядит так.		На данный момент в PascalABC.NET нет редактора ресурсов. Однако их можно создать программно, используя класс ResourceWriter. Следует отметить, что имя файла ресурса (точнее корневая папка ресурса) должно совпадать с именем файла основной программы. Назовем основную программу CultureForm. Тогда код генерации ресурсов выглядит так.

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

	uses System, System.Windows.Forms, System.Globalization, System.Resources, System.Diagnostics;		uses System, System.Windows.Forms, System.Globalization, System.Resources, System.Diagnostics;
Строка 19:		Строка 19:
	begin		begin
	MakeResource();		MakeResource();
	end.		end.</source>

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

	program CultureForm		<source lang="Pascal"> program CultureForm
	#reference 'System.Windows.Forms.dll'		#reference 'System.Windows.Forms.dll'
	#reference 'System.Drawing.dll'		#reference 'System.Drawing.dll'
Строка 56:		Строка 56:
	f.Controls.Add(btn);		f.Controls.Add(btn);
	Application.Run(f);		Application.Run(f);
	end.		end.</source>

92.207.105.188 в 10:23, 9 августа 2009

2009-08-09T10:23:40Z

← Предыдущая версия		Версия от 13:23, 9 августа 2009
Строка 47:		Строка 47:

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

92.207.105.188 в 10:22, 9 августа 2009

2009-08-09T10:22:36Z

← Предыдущая версия		Версия от 13:22, 9 августа 2009
Строка 32:		Строка 32:
	var f : Form;		var f : Form;
	btn : Button;		btn : Button;
	rm := ResourceManager~~.CreateFileBasedResourceManager('CultureForm2',System.IO.Path.Combine(GetCurrentDir(),'resources'),nil)~~;		rm : ResourceManager;
	ru_cult : CultureInfo := new CultureInfo('ru-RU');		ru_cult : CultureInfo := new CultureInfo('ru-RU');
	en_cult : CultureInfo := new CultureInfo('en-US');		en_cult : CultureInfo := new CultureInfo('en-US');
Строка 40:		Строка 40:
	begin		begin
	if not local then		if not local then
	btn.Text := rm.GetString('MyButton',ru_cult)		btn.Text := rm.GetString('MyButton',ru_cult) //надпись на русском языке
	else		else
	btn.Text := rm.GetString('MyButton',en_cult);		btn.Text := rm.GetString('MyButton',en_cult); //на английском языке
	local := not local;		local := not local;
	end;		end;

	begin		begin
			rm := ResourceManager.CreateFileBasedResourceManager('CultureForm2',System.IO.Path.Combine(GetCurrentDir(),'resources'),nil);
	f := new Form;		f := new Form;
	btn := new Button();		btn := new Button();

92.207.105.188 в 10:20, 9 августа 2009

2009-08-09T10:20:06Z

← Предыдущая версия		Версия от 13:20, 9 августа 2009
Строка 32:		Строка 32:
	var f : Form;		var f : Form;
	btn : Button;		btn : Button;
	rm ~~: ResourceManager~~ := ResourceManager.CreateFileBasedResourceManager('CultureForm2',System.IO.Path.Combine(GetCurrentDir(),'resources'),nil);		rm := ResourceManager.CreateFileBasedResourceManager('CultureForm2',System.IO.Path.Combine(GetCurrentDir(),'resources'),nil);
	ru_cult : CultureInfo := new CultureInfo('ru-RU');		ru_cult : CultureInfo := new CultureInfo('ru-RU');
	en_cult : CultureInfo := new CultureInfo('en-US');		en_cult : CultureInfo := new CultureInfo('en-US');
Строка 50:		Строка 50:
	btn := new Button();		btn := new Button();

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

92.207.105.188 в 10:17, 9 августа 2009

2009-08-09T10:17:52Z

@@ Строка 1: / Строка 1: @@
 В .NET есть развитые средства локализации приложений. Соответственно эти возможности доступны в PascalABC.NET. Ниже приведен минимальный код, использующий ресурсы для локализации приложения на лету.
-На данный момент в PascalABC.NET нет редактора ресурсов. Однако их можно создать программно, используя класс ResourceWriter.
+На данный момент в PascalABC.NET нет редактора ресурсов. Однако их можно создать программно, используя класс ResourceWriter. Следует отметить, что имя файла ресурса (точнее корневая папка ресурса) должно совпадать с именем файла основной программы. Назовем основную программу CultureForm. Тогда код генерации ресурсов выглядит так.
   #reference 'System.Windows.Forms.dll'
@@ Строка 9: / Строка 9: @@
   procedure MakeResource;
   begin
-    var rw := new ResourceWriter('CultureForm2.en-US.resources');
+    var rw := new ResourceWriter('CultureForm.en-US.resources');
     rw.AddResource('MyButton','Click me');
     rw.Close();
-    rw := new ResourceWriter('CultureForm2.ru-RU.resources');
+    rw := new ResourceWriter('CultureForm.ru-RU.resources');
     rw.AddResource('MyButton','Нажми меня');
     rw.Close();
@@ Строка 19: / Строка 19: @@
   begin
    MakeResource();
   end.

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

2009-08-09T10:10:20Z

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

Новая страница

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

На данный момент в PascalABC.NET нет редактора ресурсов. Однако их можно создать программно, используя класс ResourceWriter.

#reference 'System.Windows.Forms.dll'

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

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

begin
MakeResource();
end.