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:

Código Delphi [-]
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, por ejemplo, y otras son de pago, como la JfActive Controls.

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

[dec]

Hola,

Quisiera añadir DxGetText a las soluciones dadas por los compañeros. Si no lo has hecho ya dale una oportunidad a esta herramienta.