Texto en varios idiomas

[galustiza]

Hola a todo el mundo!

Me interesaría que en la aplicación en C++ Builder que estoy construyendo, el texto y los titulos pudieran aparecer en varios idiomas. Podría hacer esto creando un juego de "label"s para cada idioma, y ocultarlos o mostrarlos según la necesidad, pero no me parece muy elegante. ¿Alguien conoce alguna función preestablecida de Builder para este fin?

Muchisimas gracias

[Ivanzinho]

Hola galustiza, te comento como lo he hecho yo en un proyecto que terminé recientemente. Está hecho en Delphi, pero no creo que tengas problemas para hacerlo en C++.

Utilicé un documento XML* con la siguente estructura :

<ro ot>
<idioma id="idioma1" >
<formulario nombre="nombreformulario1">
<nombrecomponente1>texto componente1</nombrecomponente1>
<nombrecomponente2>texto componente2</nombrecomponente2> .
.
.
<nombrecomponenteN>texto componenteN</nombrecomponenteN>
</formulario>
.
.
.
<formulario nombre="nombreformularioN">
<nombrecomponente1>texto componente1</nombrecomponente1>
<nombrecomponente2>texto componente2</nombrecomponente2> .
.
.
<nombrecomponenteN>texto componenteN</nombrecomponenteN>
</formulario>
</idioma>
.
.
.
<idioma id="idiomaN" >
<formulario nombre="nombreformulario1">
<nombrecomponente1>texto componente1</nombrecomponente1>
<nombrecomponente2>texto componente2</nombrecomponente2> .
.
.
<nombrecomponenteN>texto componenteN</nombrecomponenteN>
</formulario>
.
.
.
<formulario nombre="nombreformularioN">
<nombrecomponente1>texto componente1</nombrecomponente1>
<nombrecomponente2>texto componente2</nombrecomponente2> .
.
.
<nombrecomponenteN>texto componenteN</nombrecomponenteN>
</formulario>
</idioma>
</ro ot>

Luego cada vez que entro en un formulario miro el idioma con el que está trabajando el usuario y el nombre del formulario, recorro los componentes del formulario y les asigno el texto que guardo en el documento XML. la función que utilizo es la siguiente:
procedure TFPrincipal.EstablecerIdioma(Idioma : String; Formulario : TForm;
Mensaxes : TStringList);
var
Componente : TComponent;
i, j : integer;
Nodo : IXMLNode;
Texto, Nome : String;
begin
//Seleccionamos o arquivo XML donde están definidos os idiomas
XMLDIdioma.FileName := 'Idiomas.xml';

XMLDIdioma.Active := true;

//Seleccionamos o idioma que nos interesa
Nodo := XMLDIdioma.DocumentElement.ChildNodes.FindNode('idioma');

while (Nodo <> nil) and (Nodo.Attributes['id'] <> Idioma) do
Nodo := Nodo.NextSibling;

//Buscamos o formulario no que nos atopamos
Nodo := Nodo.ChildNodes.FindNode('formulario');

while (Nodo <> nil) and (Nodo.Attributes['nome'] <> Formulario.Name) do
Nodo := Nodo.NextSibling;

//Percorremos todos os componentes da pantalla e establecemos o idioma indicado
for i := 0 to Formulario.ComponentCount - 1 do
begin
Componente := Formulario.Components[i];

if Componente is TMenuItem then
begin
Texto := Nodo.ChildNodes[Componente.Name].Text;

if Texto <> '' then
(Componente as TMenuItem).Caption := Texto;
end
else if Componente is TDBGrid then
begin
for j := 0 to (Componente as TDBGrid).Columns.Count - 1 do
begin
Nome := (Componente as TDBGrid).Name + 'Columns'
+ IntToStr(j);

Texto := Nodo.ChildNodes[Nome].Text;

if Texto <> '' then
(Componente as TDBGrid).Columns[j].Title.Caption := Texto;
end;
end
else if Componente is TButton then
begin
Texto := Nodo.ChildNodes[Componente.Name].Text;

if Texto <> '' then
(Componente as TButton).Caption := Texto;
end
else if Componente is TLabel then
begin
Texto := Nodo.ChildNodes[Componente.Name].Text;

if Texto <> '' then
(Componente as TLabel).Caption := Texto;
end
else if Componente is TSpeedButton then
begin
Texto := Nodo.ChildNodes[Componente.Name].Text;

if Texto <> '' then
(Componente as TSpeedButton).Caption := Texto;
end
else if Componente is TRadioButton then
begin
Texto := Nodo.ChildNodes[Componente.Name].Text;

if Texto <> '' then
(Componente as TRadioButton).Caption := Texto;
end
else if Componente is TCheckBox then
begin
Texto := Nodo.ChildNodes[Componente.Name].Text;

if Texto <> '' then
(Componente as TCheckBox).Caption := Texto;
end
else if Componente is TStringGrid then
begin
Nome := (Componente as TStringGrid).Name;

Texto := Nodo.ChildNodes[Nome].Text;

if Texto <> '' then
(Componente as TStringGrid).Hint := Texto;


for j := 1 to (Componente as TStringGrid).ColCount - 1 do
begin
Nome := (Componente as TStringGrid).Name + 'Cells'
+ IntToStr(j);

Texto := Nodo.ChildNodes[Nome].Text;

if Texto <> '' then
(Componente as TStringGrid).Cells[j, 0] := Texto;
end;
end
else if Componente is TToolButton then
begin
Texto := Nodo.ChildNodes[Componente.Name].Text;

if Texto <> '' then
(Componente as TToolButton).Hint := Texto;
end
else if Componente is TGroupBox then
begin
Texto := Nodo.ChildNodes[Componente.Name].Text;

if Texto <> '' then
(Componente as TGroupBox).Caption := Texto;
end
else if Componente is TPageControl then
begin
for j := 0 to (Componente as TPageControl).PageCount - 1 do
begin
Nome := (Componente as TPageControl).Name + 'Pages' +
IntToStr(j);

Texto := Nodo.ChildNodes[Nome].Text;

if Texto <> '' then
(Componente as TPageControl).Pages[j].Caption := Texto;
end;
end
else if Componente is TQrLabel then
begin
Texto := Nodo.ChildNodes[Componente.Name].Text;

if Texto <> '' then
(Componente as TQrLabel).Caption := Texto;
end;
end;

if Mensaxes <> nil then
for j := 0 to Mensaxes.Count - 1 do
begin
Texto := Nodo.ChildNodes[Mensaxes[j]].Text;

if Texto <> '' then
Mensaxes[j] := Texto;
end;

Formulario.Caption := Nodo.ChildNodes['Caption'].Text;
end;


Este procedimiento lo llamo en el create de los formularios. El parametro mensajes es donde almaceno los mensajes que se muestran al usuario por pantalla, y lo que hago es crear un StringList en el que meto una etiqueta en cada posición con la que referencio el mensaje, esta etiqueta será la que uso posteriormente para buscar el texto del mensaje en el documento XML.

No se si es el mejor método, pero es el que se me ocurrio y realmente no se nota nada en la carga de los formulario.

Espero que te sirva, y si tienes alguna duda non tengas reparos en comentarme lo que sea.

Un saúdo

*La etiqueta root en el documento XML la puse separada ya que sino me daba un error al grabar el post.

[Ñuño Martínez]

También existen librerías de componentes que permiten gestionar varios idiomas. Algunas son gratuítas, como las del proyecto Jedi (http://delphi-jedi.org/), por ejemplo, y otras son de pago, como la JfActive Controls (http://www.jfactivesoft.com/spindex.htm).

[edit] Ahora que lo pienso, el proyecto Jedi no funciona con Builder, ¿o sí?

[dec]

Hola,

Quisiera añadir DxGetText (http://dybdahl.dk/dxgettext/) a las soluciones dadas por los compañeros. Si no lo has hecho ya dale una oportunidad a esta herramienta. :)