Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   API de Windows (https://www.clubdelphi.com/foros/forumdisplay.php?f=7)
-   -   Idiomas en una aplicación (https://www.clubdelphi.com/foros/showthread.php?t=54166)

madiazg 11-03-2008 00:27:26

Idiomas en una aplicación
 
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 11-03-2008 00:35:11

No funciona el

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

Saludos

madiazg 11-03-2008 22:22:21

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 11-03-2008 22:43:31

Cita:

Empezado por madiazg (Mensaje 272481)
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 12-03-2008 17:20:05

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

ActionManager1.ActionBars[1].Items[0].Caption := ........
y para submenús detro de otros menús:
Código:

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


La franja horaria es GMT +2. Ahora son las 16:48:53.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi