Idiomas en una aplicación

[madiazg]

Hola a todos,
estoy desarrollando una aplicación y, aparte del español, quiero 'traducirla' al Inglés. El problema viene con los Menús.
Para traducir la aplicación, cargo un fichero de texto que incluye todos aquellos elementos cuyo caption sea susceptible de traducirse. El problema viene con ActionManager y los menús del programa.
Por ejemplo, tengo un menú que se llama Ficheros que a su vez consta de Abrir Fichero, Guardar Fichero, etc.... que son los diferentes Actions. Cambiarle el nombre a los Actions es sencillo con la propiedad Caption pero, ¿como cambio el nombre del Menú, en este caso Ficheros por Files?.

Saludos...

[MaMu]

No funciona el

Código Delphi [-]
 
ActionManager1.LoadFromFile();

Saludos

[madiazg]

Hola, perdona pero no entiendo que me quieres decir,
yo creo el árbol de menús con el Editor de ActionManager y lo arrastro a un TActionMainMenuBar.
Lo que quiero es que, en tiempo de ejecución, cambiar el nombre a las categorías de las Actions.
Saludos...

[[egostar]]

Empezado por madiazg

Hola, perdona pero no entiendo que me quieres decir,
yo creo el árbol de menús con el Editor de ActionManager y lo arrastro a un TActionMainMenuBar.
Lo que quiero es que, en tiempo de ejecución, cambiar el nombre a las categorías de las Actions.
Saludos...

Trata con esto:

Código Delphi [-]
procedure TFMenu.Action12Execute(Sender: TObject);
begin
  //Horarios
   case Lenguaje of
     0: begin //Inglés
          ActionManager1.ActionBars[0].Items[0].Caption := 'File';
          ActionManager1.ActionBars[0].Items[1].Caption := 'Reports';
          ActionManager1.ActionBars[0].Items[2].Caption := 'View';
     end;
     1: begin //Español
          ActionManager1.ActionBars[0].Items[0].Caption := 'Archivo';
          ActionManager1.ActionBars[0].Items[1].Caption := 'Reportes';
          ActionManager1.ActionBars[0].Items[2].Caption := 'Ver';
     end;
   end;
end;

Salud OS

[madiazg]

Muchas gracias. Casi casi funciona tal y como me indicastes. Realmente me funciona así:

ActionManager1.ActionBars[1].Items[0].Caption := ........

y para submenús detro de otros menús:

ActionManager1.ActionBars[1].Items[3].Items[0].Caption := .....

Saludos...