¡Hola! Estoy emocionado de anunciar que he retomado la actividad en mi blog "Jugando Haciendo Juegos" después de una pausa. En esta nueva etapa, el blog se centrará en proporcionar información valiosa desde dentro de la industria de los videojuegos, incluyendo trucos, curiosidades, herramientas, recursos y consejos sobre cómo crear videojuegos desde la comodidad de tu habitación utilizando Unity. El blog ya cuenta con varios artículos útiles que pueden servir como recursos iniciales. Por ejemplo, hay guías detalladas sobre cómo hacer copias de seguridad de tu código de Unity con GitHub, lo que es crucial para la gestión de versiones y el trabajo colaborativo. También encontrarás tutoriales sobre el diseño de interfaces de usuario, el desarrollo de controladores de personajes y cómo crear un PressKit para tu juego. Mi objetivo es compartir conocimientos prácticos y experiencias personales para ayudar tanto a principiantes como a desarrolladores más avanzados a mejorar sus hab
Si queremos llegar al máximo número de usuarios en nuestros juegos es importante tener en cuenta de dominar el sistema de multilenguaje. Delphi dispone en las últimas versiones de un sistema de multilenguaje que nos puede resultar muy útil.
Los componentes TLabel, TButton, etc. disponen de una propiedad llamada Autotranslate que si esta activada podemos a través del componente Lang incorporar varios idiomas a la propiedad Text del los componentes.
Yo personalmente prefiero no utilizar la propiedad Autotranslate y tener un procedimiento que traduzca al idioma que el jugador haya seleccionado. Para ello utilizo una función como esta para asignar los Text de todos los controles del juego. Si sitúas esta función en el inicio del juego o cunado el jugador cambia de idioma tendrás un sistema multilenguaje muy funcional.
Función al inicio del programa para suministrar la traducción a todos los controles visuales:
El control Lang1 permite crear cadenas en múltiples idiomas.
function TForm1.sTextManualF(sOrg: string): string;
// translate a text, which is not in the automate translation process of TFmxObjects
begin
// first check, if the selected language has a mapping
if Lang1.Resources.IndexOf(Lang1.Lang)>=0 then begin
// get the resource stringlist of the current language and get the translation
result := Lang1.LangStr[Lang1.Lang].Values[sOrg];
if result='' then begin
// text not found in mapping - keep original text
result := sOrg;
end;
end
else begin
// language not found: must be the default language
result := sOrg;
end;
end;
Función al inicio del programa para suministrar la traducción a todos los controles visuales:
Procedure TForm1.FormCreate(Sender: TObject);
begin
TranslateText;
end;
Procedure TForm1.TranslateText;
begin
//Main
Text1.Text:= sTextManualF('sOpen');
end;
El control Lang1 permite crear cadenas en múltiples idiomas.
Comentarios
Publicar un comentario