Ivanzinho |
14-03-2007 10:06:53 |
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 :
Código:
<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
XMLDIdioma.FileName := 'Idiomas.xml';
XMLDIdioma.Active := true;
Nodo := XMLDIdioma.DocumentElement.ChildNodes.FindNode('idioma');
while (Nodo <> nil) and (Nodo.Attributes['id'] <> Idioma) do
Nodo := Nodo.NextSibling;
Nodo := Nodo.ChildNodes.FindNode('formulario');
while (Nodo <> nil) and (Nodo.Attributes['nome'] <> Formulario.Name) do
Nodo := Nodo.NextSibling;
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.
|