Presentación al Cool Apps Contest

Esta mañana me he decidido a presentarme al Cool Apps Contest que Embarcadero ha promocionado estos días. Creo que es una buena plataforma para que la gente descubra las posibilidades que tiene RAD Studio como herramienta para la creación de aplicaciones móviles. Lamentablemente sólo se puede presentar una aplicación por desarrollador, así que he presentado Simon, color vs. color ya que creo que es la más interesante de todas. Espero que les gusten los vídeos.

Numbers Swap

Simon, color vs. color

Multilenguaje

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.

 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.