Foros Club Delphi - Como traducir fácilmente una aplicación a otros idiomas

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Como traducir fácilmente una aplicación a otros idiomas (https://www.clubdelphi.com/foros/showthread.php?t=67633)

Hola compañeros,

He implementado algunas modificaciones al IniLang2, que amplian el abanico de componentes que permte traducir (DBgrid, Panel, TabControl)
dejo el codigo para quien lo quiera utilizar:

Código:

{ This is a text added for IniLang2.

 The difference in  IniLang2 is that has been included the procedure "Before_SearchStr"

 and that the file "custom.ini" is deleted (at the beggining of the procedure

 "fillcustomini").

 IniLang2 (and IniLang too) works with Delphi 4, 5, 6 and 7. May be that it works well

 in later versions of Delphi (it has not been checked).

}



{Freeware unit for Delphi 4 projects, provided 'As Is'

Frédéric Sigonneau <aFas> 24/04/1999

e-mail : frederic.sigonneau@wanadoo.fr



IniLang can help you to build at design-time, in a single pass, a .ini file

filled with all properties and messages you have to localize for a

multilingual distribution.

Useful for large projects including many forms and lot of messages

(and, you know, a little project grows very quickly!).

At run-time, allows you to change your interface localization 'on the fly', as

long as you translated the .ini file created with IniLang in as many languages

you want to be available. Yet, that's the only ::)))) job you have to do

by yourself.



I wrote that unit because the components or units written by Serge Sushko,

Aldo Ghigliano or José Maria Gías didn't exactly do what I needed  (ie less

work as possible!), but their ideas and their code helped me several times

to turn off some problems. So, thanks to all of them.



Finally, please, read commentaries before use. Then try, there is no danger !

If you use and improve this unit, just send me a copy if possible. Thanks. FS}



{Copy this file in the directory of your project and add IniLang to

the 'uses' implementation clause of units which use it, as usual}

unit IniLang2;



interface



uses Windows, SysUtils, Classes, Forms, stdCtrls, typInfo,

     extCtrls, iniFiles, Controls, DBGrids, ComCtrls;



const

   sep='*|*';   //separator for multiline messages

   FR='French.ini';   FRENCH=2;

   EN='English.ini';  ENGLISH=0;

   SP='Spanish.ini';  SPANISH=1;

   CU='Custom.ini';   CUSTOM=3;

   //add what you want



var

   CL:TMemIniFile;   //Global variable for current language

   //must be inited in the onShow event of your main form.

   // Synthax : CL:=loadIni(XX);

   //where XX is the const name of the ini file you want to load.

   //You can use either a string or an integer const to load a language file.



//user procs

function loadIni(nom:string):TMemIniFile;overload;

function loadIni(ID:integer):TMemIniFile;overload;

procedure fillCustomIni;

procedure fillProps(TC:array of TComponent;ini:TMemIniFile);

function misc(VAL,KEY:string):string;



procedure Before_SearchStr ;       // This procedure was added in IniLang2



//utilities

procedure searchStr(var ini:TIniFile);

function getProp(comp:TComponent;prop:string):string;

procedure setProp(comp:TComponent;{const }prop,value:string);

function HasProperty(comp:TComponent;prop:string):boolean;

function str2IntID(s:string):integer;

function intID2Str(ID:integer):string;



implementation



function loadIni(nom:string):TMemIniFile;

var

   chemin:string;

begin

   chemin:=extractFileDir(application.exeName)+'\'+nom;

   if not fileExists(chemin) then

      result:=nil

   else

      result:=TMemIniFile.create(chemin);

end;

//other way for the same result

function loadIni(ID:integer):TMemIniFile;overload;

var

   chemin,nom:string;

begin

   case ID of

      -1:nom:= '';

      FRENCH:nom:=FR;

      ENGLISH:nom:=EN;

      SPANISH:nom:=SP;

      CUSTOM:nom:=CU;

   end;

   chemin:=extractFileDir(application.exeName)+'\'+nom;

   if not fileExists(chemin) then

      result:=nil

   else

      result:=TMemIniFile.create(chemin);

end;



{Creates the original iniFile 'Custom.ini' and fills it first

with string properties and their values (captions, hints,

items -TRadioGroup and TComboBox-

and lines -TMemo and TRichEdit-  values).

One section for each form in the project.

Then fills a 'Misc' section with strings declared with 'const' or

'resourcestring' keywords (customized messages to inform your users or

properties dynamically renamed in your code).

Call 'fillCustomIni' from the onCreate event of the last created form

in your project.

At this time, ALL FORMS MUST BE IN THE 'AUTOMATICALLY

CREATED FORMS' list of your Project\Options\Forms tab .

Then just run form IDE (F9) and close your project, and it's done !}



procedure fillCustomIni;

var

   ini:TIniFile;

   i,j,k,l,m,n:integer;

   fiche,cmpt:TComponent;

   val,comp,nomComp:string;

begin



      // Delete the old file "custom.ini" if it exists

      // This code was added in Inilang2

          // Borra el anterior archivo "custom.ini" si existía

          // Este  código fue añadido en Inilang2

  if FileExists ( 'custom.ini' )

    then DeleteFile ( 'custom.ini' ) ;



   ini:=TIniFile.create(extractFileDir(application.exeName)+'\'+CU);



   {First search the properties that will be translated}



   for i := 0 to application.ComponentCount - 1 do

   begin

      fiche:=application.Components[i];

      nomComp:=fiche.Name;

       if HasProperty(fiche,'Caption') and

      not (nomComp=getProp(fiche,'Caption')) then

        ini.writeString(nomComp,nomComp+'.Caption',

                      getProp(fiche,'Caption'));

      for j:=0 to fiche.componentCount-1 do

      begin

         cmpt:=fiche.Components[j];

         nomComp:=cmpt.name;

         //use a 'out' prefixed name if you want the component won't appear

         //in the list (ie : outLabel6:TLabel) so as the list won't be too big

         if copy(nomComp,1,3)='out' then continue;

         if HasProperty(cmpt,'Caption') and

         not (nomComp=getProp(cmpt,'Caption')) and

         not (getProp(cmpt,'Caption')='-') and

         not (getProp(cmpt,'Caption')='') then

              ini.writeString(fiche.Name,fiche.Name+'.'+nomComp+'.Caption',

                            getProp(cmpt,'Caption'));

         if HasProperty(cmpt,'Hint') and (getProp(cmpt,'Hint')<>'')then

              ini.writeString(fiche.Name,fiche.Name+'.'+nomComp+'.Hint',

                            getProp(cmpt,'Hint'));



         if (cmpt is TCustomMemo) then

         for k:=0 to TCustomMemo(cmpt).Lines.count-1 do

         begin

            val:=TCustomMemo(cmpt).Lines[k];

            if val=nomComp then break;

            comp:=nomComp+'.Lines['+intToStr(k)+']';

            ini.writeString(fiche.Name,fiche.Name+'.'+comp,val);

         end;



         if (cmpt is TRadioGroup) then

         for l:= 0 to TRadioGroup(cmpt).Items.Count-1 do

         begin

            val:=TRadioGroup(cmpt).Items[l];

            comp:=nomComp+'.Items['+IntToStr(l)+']';

            ini.writeString(fiche.Name,fiche.Name+'.'+comp,val);

         end;



         if (cmpt is TComboBox) then

         for m:=0 to TComboBox(cmpt).Items.Count-1 do

         begin

            val:=TComboBox(cmpt).Items[m];

            comp:=nomComp+'.Items['+IntToStr(m)+']';

            ini.writeString(fiche.Name,fiche.Name+'.'+comp,val);

         end;



         if (cmpt is TDBGrid) then

         for n:=0 to TDBGrid(cmpt).Columns.Count-1 do

         begin

            val:=TDBGrid(cmpt).Columns.Items[n].Title.Caption;

            comp:=nomComp+'.Items['+IntToStr(n)+']';

            ini.writeString(fiche.Name,fiche.Name+'.'+comp,val);

         end;



         if (cmpt is TTabControl) then

         for n:=0 to TTabControl(cmpt).Tabs.Count-1 do

         begin

            val:=TTabControl(cmpt).Tabs[n];

            comp:=nomComp+'.Items['+IntToStr(n)+']';

            ini.writeString(fiche.Name,fiche.Name+'.'+comp,val);

         end;

      end;

   end;





   { In the code of "*.pas" files (after 'implementation'), if find a line that beggins

     with ( ' + # ), then add comments at the beggining of the line for avoid mistakes

     on the procedure 'searchStr(ini);' }       // This is the code added whith Inilang2

   { En el código de ficheros "*.pas" (después de 'implementation'), si alguna línea

     empieza por ( ' + # ), se añade comentarios al inicio de esa línea para evitar errores

     en el procedimiento 'searchStr(ini);' }    // Este es el código añadido con Inilang2

   Before_SearchStr ;





   {search for error or information messages stored as

   const or resourcestring - see below}

   searchStr(ini);



   ini.free;

end;





procedure Before_SearchStr ;

var

   rep:string;

   sr:TSearchRec;

   line :string;

   Archivo :TStringList;

   cc :integer;

   Actuar, cambios : boolean ;



begin



   rep:=extractFileDir(application.exeName)+'\';



  Archivo:=TStringList.create;



   if findFirst(rep+'*.pas', faAnyFile, sr)=0

  then

      repeat



      if (sr.name='IniLang2.pas')

        then findNext(sr);



      Archivo.Clear ;

      Archivo.LoadFromFile( sr.Name );



      Actuar := false ;

      Cambios := false ;

      for cc := 0 to Archivo.Count -1 do

      begin

               // It works only after 'implementation'

               // solo actúa después de 'implementation'

        if LowerCase( copy ( trim ( Archivo [ cc ] ), 1, 14 ) ) =  'implementation'

          then Actuar := true ;



        if Actuar

        then

          begin

            line := trim ( Archivo [ cc ] ) ;



              // if the first character is ( '  +  # ), then it add '{}' at the beginning

              // Si empieza por  ( '  +  # ),   entonces le añade '{}' al principio

            if   (pos('''',line)=1)

              or (pos('+',line)=1)

              or (pos('#',line)=1)

            then

              begin

             

                Cambios := true ;



                if copy ( Archivo [ cc ], 1, 2 ) = '  '

                then

                    Archivo [ cc ] := '{}'

{}                    + copy ( Archivo [ cc ], 3, length ( Archivo [ cc ] ) )

                else

                  Archivo [ cc ] := '{}' + Archivo [ cc ] ;



              end ;



          end ;



      end;



      if cambios

      then

        Archivo.SaveToFile( SR.Name );



      fileClose(sr.findHandle);



    until findNext(sr)<>0;



  findClose(sr);



end;







{Translates the form you choose in the language called in ini.

Only created forms are translated with fillProps. Call it in the onShow

event of your main form whith names of all automatically created forms

at the start-up of your application in the TC parameter.

In runtime, call it when you create dynamically a form. For example :

procedure TForm1.Button3Click(Sender: TObject);

begin

   if form2=nil then

      form2:=TForm2.create(application);

   if CL<>nil then fillProps([form2],CL);

   form2.show;

end;}

procedure fillProps(TC:array of TComponent;ini:TMemIniFile);

var

   i,i2,i3,i4,i5,tab:integer;

   comp,fiche:TComponent;

   s,s1,s2,s3,s4,s5:string;

begin

   with ini do

   for tab:=0 to high(TC) do

   begin

      fiche:=TC[tab];

      if fiche=nil then continue;

      s:=readString(fiche.name,fiche.name+'.Caption','');

      if s<>'' then TForm(fiche).caption:=s;

      for i:=0 to fiche.componentCount-1 do

      begin

         comp:=fiche.Components[i];



         s1:=readString(fiche.name,fiche.name+'.'+comp.name+'.Caption','');

         if s1<>'' then setProp(comp,'Caption',s1);



         s2:=readString(fiche.name,fiche.name+'.'+comp.name+'.Hint','');

         if s2<>'' then setProp(comp,'Hint',s2);



         if comp is TCustomMemo then

            for i2:=0 to TCustomMemo(comp).lines.count-1 do

            begin

               s3:=readString(fiche.name,

                  fiche.name+'.'+comp.name+'.lines['+intToStr(i2)+']','fsdef');

               //in TMemo or TRichEdit, you may have to leave some lines empty

               if s3<fsdef>0 then

         repeat

            delete(ligne,pos('''''',ligne),1);

         until pos('''''',ligne)=0;

      strList[x]:=ligne;

      temp:=strList.values[strList.names[x]];

      if pos('''+',temp)=0 then

         ini.writeString('Misc',strList.names[x],temp)

      else

      begin

         repeat

            y:=pos('''+',temp);

               repeat

                  delete(temp,y,1);

               until temp[y]='''';

            temp:=copy(temp,1,y-1)+sep+copy(temp,y+1,length(temp));

         until pos('''+',temp)=0;

         ini.writeString('Misc',strList.names[x],temp);

      end;

   end;



   strList.free;

end;



//Backs up the prop property value of the comp component

function getProp(comp:TComponent;prop:string):string;

var

   ppi:PPropInfo;

begin

   ppi:=getPropInfo(comp.classInfo,prop);

   if ppi<>nil then

      result:=getStrProp(comp,ppi)

   else

      result:='';

end;



//Assign the value value to prop property of comp component

procedure setProp(comp:TComponent;{const }prop,value:string);

var

   ppi:PPropInfo;

begin

   if value<>'' then

   begin

      ppi:=getPropInfo(comp.classInfo,prop);

      if ppi<>nil then setStrProp(comp,ppi,value);

   end;

end;



//True if prop property exists for comp component

function HasProperty(comp:TComponent;prop:string):boolean;

begin

   result:=(getPropInfo(comp.classInfo,prop)<>nil) and (comp.name<>'');

end;



//Converts a const string language name into a const integer language name

function str2IntID(s:string):integer;

begin

   result:=-1;

   if s=FR then result:=FRENCH       //2

   else if s=EN then result:=ENGLISH //0

   else if s=SP then result:=SPANISH //1

   else if s=CU then result:=CUSTOM; //3;

end;



//Converts a const integer language name into a const string language name

function intID2Str(ID:integer):string;

begin

   result:='';

   if ID=2 then result:=FR

   else if ID=0 then result:=EN

   else if ID=1 then result:=SP

   else if ID=3 then result:=CU;

end;



end.

Saludos,

Da error en esta línea:

Código Delphi [-]  if s30 then

No se si puede haber sido un problema con las etiquetas al poner el mensaje.
Tal vez sea mejor que subas el PAS como archivo adjunto.

AÑADO: Hay algun error más, como si faltase parte del código; Por ejemplo, no hay definición para: strList

Hola Neftali,

He subido el fichero .pas pruebalo ahora, deberia funcionar.

Saludos.

Perdon, perdon..... Ahora si esta subido el archivo. Es un archivo .zip pero realmente es un .rar (no me dejaba subirlo)

Saludos,

Ok. Gracias.
Ahora compila y funciona perfectamente.

Hola.

Bueno, me he llevado una alegría porque estoy preparando una actualización para IniLang2 que aparecerá en breve.

Por mi parte, una mejora es que leerá las líneas de los ListBox, pero hay algún detalle más... del que por ahora no quiero hablar.

Y...¡sorpresa!, alguien más ha trabajado en la misma dirección (y de forma complementaria), pues ¡genial!.

Bueno, aprovecho para pedir cosas...

Toni ¿Me autorizas a incluir tus modificaciones en la nueva versión?. Si quieres ser citado como colaborador, por favor, dime también los datos tuyos que quieres que aparezcan.

Neftali ¿Me autorizas a incluir la traducción que hiciste al catalán en el ejemplo que incluí aquí hace meses?. Si quieres ser citado como colaborador, por favor, dime también los datos tuyos que quieres que aparezcan.

Salu2.

Hola Rrf,

Por mi parte puedes darle el uso que quieras. Para eso lo he subido al foro. Las modificaciones que yo le he realizado son minimas pero creo que necesarias porque sino estaba muy limitado en los controles que traducia.

Tengo pendiente otro pequeño cambio interesante, pero siempre siguiendo la linea del 'proyecto' inicial. Que creo que es muy simple pero a la vez practico y util.

saludos.

Nota: Creo que si seria interesante ponerle un numero de subversion para no liarnos, si vamos añadiendo cosas.

Cita:

Empezado por Toni (Mensaje 378009)

Por mi parte puedes darle el uso que quieras.

Gracias. ¿Quieres aparecer como colaborador?. ¿Basta con Toni o quieres añadir algún dato tuyo más (nombre completo, correo electrónico, etc.)? Pondré lo que me facilites.

Cita:

Empezado por Toni (Mensaje 378009)

Las modificaciones que yo le he realizado son minimas

También lo son las mías, pero muchos pequeños cambios ocasionan a veces grandes mejoras...

Cita:

Empezado por Toni (Mensaje 378009)

Tengo pendiente otro pequeño cambio interesante, pero siempre siguiendo la linea del 'proyecto' inicial. Que creo que es muy simple pero a la vez practico y util.

Espero que lo hagas rápido.

Cita:

Empezado por Toni (Mensaje 378009)

Nota: Creo que si seria interesante ponerle un numero de subversion para no liarnos, si vamos añadiendo cosas.

Ya lo he hecho, estoy trabajando con la versión 0.9.02 (supongo que te refieres a eso ¿no?). Pero como pensaba que era el único que trabajaba en ello, pues no pensé que fuera importante...

Salu2.

Hola rrf, no, no hace falta que me pongas como colaborador. Pero si que me gustaria que cuando la tengas nos digas que novedades incluye.

Nota: si, me refereia a eso mismo lo de la version.

Hola de nuevo.

Por fin llegó la nueva versión de IniLang2. Será la 0.9.03 .

Incluye algunos cambios menores que no vale la pena mencionar y, como cambios interesantes está el que ahora también lee los textos de los DBGrid, los PageControl y los ListBox. Bueno, también se incluye un nuevo ejemplo con las versiones antes y después de aplicar IniLang2, y un par de textos con explicaciones de uso.

Pero ninguna de esas es la mejora más importante de esta versión (al menos desde mi punto de vista).

La mejora más importante es que se acompaña de Utili_IniLang2, que es una utilidad que facilita (mucho) la adaptación de una aplicación para que utilice IniLang2.

Casi todo lo que hay que hacer para usar IniLang2 lo hace Utili_IniLang2 y a base de unos pocos clic.

Ahora, en la mayoría de los casos, lo más complicado para adaptar una aplicación es asegurarse de que las constantes están bien declaradas con relación a como las interpreta IniLang2.

El resto se hace en unos pocos minutos (dependiendo del tamaño de la aplicación) y con bastante poco esfuerzo.

Aclaro que la versión no es definitiva en cuanto a la presentación. Por ej. hay textos que no están completamente traducidos, hay varios detalles que habría que modificar, etc.

Pero está completa en cuanto a lo que se espera que sea la versión pública, al menos en lo importante.

Lo he puesto a descargar en un lugar externo al foro para no reducir mucho la capacidad de subir archivos al foro por mi parte. ESTÁ EN ESTE ENLACE. Me da problemas para acceder a esa descarga.

Pongo aquí el enlace directamente, porque en la redacción del mensaje me daba problemas para acceder a la descarga:

www.inilang2.000a.biz/inilang2.zip

(Basta con copiar el enlace y pegarlo en un navegador de internet y se puede descargar sin problemas. Lo probé en Firefox)

Cualquier aportación, opinión, sugerencia, crítica, etc. será bienvenida.

Saludos.

Hola otra vez.

Les informo que ya está disponible la versión 0.9.04 de IniLang2.

Sobre la anterior versión, incluye el trabajar con más componentes y con las propiedades text de diferentes componentes.

También incluye mejoras y corrección de errores de la anterior versión.

Ahora se automatiza casi totalmente la adaptación de una aplicación a usar IniLang2, utilizando la utilidad Utili_IniLang2.

Además, se mejoraron los textos explicando su uso.

Por último, incluye un editor sencillo que facilita la edición de los archivos *.ini con los textos traducidos.

Todo ello está descargable desde LA PÁGINA DE INILANG2.

Creo que la facilidad que ofrece ahora, para hacer una aplicación multiidiomas, es muy grande. Aunque, como se suele decir, "el ojo del amo engorda el caballo...".

Saludos.

Hola Ramón.
Buen trabajo con este componente.

Si me permites algunos comentarios acerca de él, espero que los aceptes de buen grado.
El primer vistazo que le he echado a la aplicación da una buena impresión, pero al intentar extraer constantes de un proyecto me he devuelto que no encontraba nada. :(
Revisando un poco he visto que es porque:

* Las constantes de IMPLEMENTACIÓN no las acepta (esto le he visto luego en la documentación).
* Las constantes definidas con un espacio a los lados del = tampoco. Esta tal vez es un poco más grave ya que en mi caso siempre las coloco así (tal vez otras personas también). No he revisado a fondo la documentación, pero seguro que debe estar también.

Tal vez intentaría mejorar este reconocimiento.

En cuanto a la utilidad he detectado algunos pequeños detalles que se pueden corregir.
* En el editor de la última pestaña si se pudieran añadir columnas para editar más idiomas sería muy bueno.
* Al grabar con F5 no graba utilizando la extensión del cuadro de diálogo.
* En algun momento me crea un fichero CUSTOM.INI de idioma que no comprendo de dónde sale, aunque el código insertado en el formulario parece correcto:

Código Delphi [-]  // IniLang2 (deje aquí este comentario ) / (keep this comentary here)
  CL:=loadIni( 'Lang1.ini' );
  if CL<>nil then fillProps([Form1],CL);

.

Otra cosa a mejorar, es que si no se copian los ficheros INI junto con el EXE (por ejemplo, los que acompañan a la utilidad Utili_IniLang2.exe) en pantalla aparacen las constantes completas. Tal vez habría que retocarlo para que aparecieran sólo las originales (en caso de que falten los ficheros).

Otra mejora creo que sería la posibilidad de que los ficheros estuvieran en un directorio (no se si ahora se puede configurar fácil).

Tengo un par de proyectos pendientes; A medida que lo vaya utiliznado ya te iré comentando.

Gracias de nuevo y enhorabuena por el trabajo realizado.

Un saludo.

Hola Neftali.

Gracias por tus opiniones y sugerencias. Te contesto algunos detalles.

Cita:

Empezado por Neftali (Mensaje 379247)

* Las constantes de IMPLEMENTACIÓN no las acepta (esto le he visto luego en la documentación).
* Las constantes definidas con un espacio a los lados del = tampoco. Esta tal vez es un poco más grave ya que en mi caso siempre las coloco así (tal vez otras personas también). No he revisado a fondo la documentación, pero seguro que debe estar también.

Lo más trabajoso con IniLang2 es declarar las constantes de forma que IniLang2 las pueda leer bien. Si se hace correctamente, vale la pena el esfuerzo, pues después se puede adaptar una aplicación en unos pocos minutos usando la aplicación Utili_IniLang2.

Cita:

Empezado por Neftali (Mensaje 379247)

Otra cosa a mejorar, es que si no se copian los ficheros INI junto con el EXE (por ejemplo, los que acompañan a la utilidad Utili_IniLang2.exe) en pantalla aparacen las constantes completas. Tal vez habría que retocarlo para que aparecieran sólo las originales (en caso de que falten los ficheros).

Es necesario que los ficheros INI acompañen a la aplicación. Y eso ocurrirá también con nuestra aplicación si utiliza IniLang2. Bueno, se podría hacer de otra forma (y no lo veo difícil), pero aquí y ahora, las cosas están así.

Cuando no se incluyen los ficheros INI, la aplicación presenta el contenido de los caption, hint, etc. que tiene.

Cita:

* En algun momento me crea un fichero CUSTOM.INI de idioma que no comprendo de dónde sale, aunque el código insertado en el formulario parece correcto:

Ese fichero lo crea IniLang2 cuando lee, en la aplicación, las constantes, los caption, los hint, etc. y es el fichero desde el que se parte para hacer las traducciones. Se crea cuando se llama al procedimiento "fillCustomIni". En la aplicación Utili_IniLang2, el botón que permite ejecutar ese procedimiento está invisible, aunque está. Hay 2 posibilidades, que lo hicieras visible y lo ejecutaras o que yo me despistara y dejara en la carpeta de esa aplicación el fichero Custom.ini .

Cita:

* En el editor de la última pestaña si se pudieran añadir columnas para editar más idiomas sería muy bueno.

Me quedo con la idea, aunque la verdad es que no le veo la ventaja a primera vista. ¿Qué mejora tiene el que se vean 3 ó más idiomas simultaneamente?.

Cita:

* Al grabar con F5 no graba utilizando la extensión del cuadro de diálogo.

Lo probé y no entendí cual era el error que me comentas. De todos modos, ya tengo una nueva versión del editor que corrige un par de errores (aunque ninguno en esa opción) y añade la posibilidad de leer, desde el disco duro, el archivo INI de la columna derecha. Antes solo permitía leer el de la columna izquierda y rellenar el de la derecha y guardarlo; lo que hacía imposible dejar el trabajo de traducción a medias. Y ahora las teclas de función son otras (aunque no han cambiado mucho).

Cita:

Otra mejora creo que sería la posibilidad de que los ficheros estuvieran en un directorio (no se si ahora se puede configurar fácil).

No entiendo lo que me comentas aquí.

Cita:

Tengo un par de proyectos pendientes; A medida que lo vaya utiliznado ya te iré comentando.

Si lo vas a usar, solo comentarte que, en mi opinión, lo más importante es declarar las constantes de texto como las lee IniLang2. Si lo haces así, luego todo sale de maravilla.

Y también sugerirte que dediques un rato a leer los textos con las explicaciones y comentarios, no solo los de IniLang2, sino también los del autor original de IniLang. Es poco texto y creo que sería un esfuerzo bien invertido.

Neftali, gracias por tus aportaciones.

Saludos.

Cita:

Empezado por rrf (Mensaje 379297)

Esta sugerencia era debida a que para una aplicación que ya está hecha y que puede tener bastantes constantes definidas, sería cómodo que las reconociera con esos leves detalles al definirlas (mejorando el "parser").

Cita:

Empezado por rrf (Mensaje 379297)

Cuando no se incluyen los ficheros INI, la aplicación presenta el contenido de los caption, hint, etc. que tiene.

Una solución sencilla es que si el fichero INI correspondiente no se encuentra (por lo que sea) se realiza el mismo proceso, pero quedándose siempre con la primera cadena (original).

Cita:

Empezado por rrf (Mensaje 379297)

Hay 2 posibilidades, que lo hicieras visible y lo ejecutaras o que yo me despistara y dejara en la carpeta de esa aplicación el fichero Custom.ini .

Esto posíblemente ha sido un error mío trastendo, no hagas caso.

Cita:

Empezado por rrf (Mensaje 379297)

Me quedo con la idea, aunque la verdad es que no le veo la ventaja a primera vista. ¿Qué mejora tiene el que se vean 3 ó más idiomas simultaneamente?.

Facilidad a la hora de traducirlos todos a la vez; Facilidad de corrección,...
Simple comodidad, nada importante.

Un saludo.

Hola otra vez.

Con relación a lo comentado en el hilo por Neftali:

Cita:

estuve pensando como resolverlo y, la mejor opción que se me ocurrió fue el incorporar la posibilidad de hacer búsquedas y sustituciones de texto en el código del programa (nada nuevo, si se usa por ejemplo CNPack), pero con un añadido interesante.

Permite hacer búsquedas y sustituciones de texto solo en la parte del texto donde se declaran las constantes (antes y/o después de "implementation") y lo hace en todos los Unit de la aplicación; lo que creo que simplifica bastante el adaptar las constantes.

También incluye la posibilidad de hacer búsquedas y sustitución en todo el código de la aplicación.

Estas mejoras ya se pueden descargar desde http://www.inilang2.000a.biz/

Saludos.

Hola otra vez.

Les informo de que ya está disponible una nueva versión de IniLang2 en la página web de descarga.

Es la 0.9.08 y la Unit IniLang2 tiene solo 1 mejora.

Sin embargo, los programas que le acompañan (Utili_IniLang2 y Edit_ini) si que tienen muchas mejoras.

Utili_IniLang2 ahora diferencia, en los archivos *.pas, los que pertenecen a un Form a un Datamodule o son un Unit, se ha reestructurado la presentación de las opciones del programa para que sigan el proceso de traducir una aplicación, se ha incluido la opción de reemplazar texto en el código de una aplicación eligiendo en qué partes de la aplicación se actúa, se ha mejorado la "automatización" del proceso de insertar IniLang2 en una aplicación y más mejoras que no me vienen ahora a la mente.

Edit_ini ofrece bastantes mejoras con respecto a la anterior versión pública. Pero la más interesante (al menos para mí) es la de permitir hacer automaticamente la traducción de los textos de una aplicación (guardados a un fichero INI con IniLang2) usando Google Traslator. Se pudo hacer GRACIAS AL EJEMPLO OFRECIDO EN ESTE HILO.

Ahora es bastante más fácil y rápido adaptar una aplicación para que pueda utilizarse en diferentes idiomas.

Si lo pruebas, es muy recomendable que leas (aunque sea superficialmente) la documentación. Hay una guía que explica, paso por paso, lo que hay que ir haciendo y está adaptada al programa Utili_IniLang2. La documentación está en español y en inglés.

Todo lleva el código fuente incluido y se permite utilizarlo libremente, incluso para desarrollar programas comerciales.

Si usas Delphi 2006, 2007, 2009 ó XE y lo pruebas, te agradecería que me comentaras si te ha funcionado bien. Pues así podré informar si funciona correctamente en esas versiones de Delphi.

LA PÁGINA WEB DE DESCARGA ES ESTA.

Cualquier aportación, comentario y/o crítica será bienvenida.

Saludos.

Buena noticia.
Sólo comentarte que actualmente la página "está en OFF" y no es posible descargar el componente.

Un saludo.

Bueno, ya la página funciona y permite la descarga.

Aprovecho (ayer lo olvidé) para añadir que, siguiendo la sugerencia de Neftali, ahora IniLang2 es menos exigente al leer las constantes de texto en la aplicación.

Saludos.