domingo, 4 de septiembre de 2011

Traducción del listin al francés e inglés.

 Traducción del listin 
a varios idiomas
Inglés y Frances,
gracias a Jacky Bamière
Gracias a Jacky Bamière, que ha realizado la traducción tanto del código como de los comentarios del programa Listin, lo tenemos disponible en inglés y francés. Además también ha realizado un trabajo de mejora del código fuente.







Esto es una muestra más de la importancia del softwarelibre, y el beneficio que trae esta forma de entender la informática. Distintas personas de diferentes paises se ven beneficiados por las 4 libertades que definen el softwarelibre:


Libertad Descripción
0 la libertad de usar el programa, con cualquier propósito.
1 la libertad de estudiar cómo funciona el programa y modificarlo, adaptándolo a tus necesidades.
2 la libertad de distribuir copias del programa, con lo cual puedes ayudar a tu prójimo.
3 la libertad de mejorar el programa y hacer públicas esas mejoras a los demás, de modo que toda la comunidad se beneficie.
Las libertades 1 y 3 requieren acceso al código fuente porque estudiar y modificar software sin su código fuente es muy poco viable.


Nota:
Estas son las mejoras y correpción de bugs que ha introducido Jacky Bamière

 
Modificacion al codigo fuente:
[BUGS]
Fmain : moviendonos por el formulario
---------------------------------------------------
no necessita manejar Key.code = Key.Tab
filtro : Le falta una estrella, la selection .png no funcionaba
---------------------------------------------------
Dialog.Filter = ["*.jpg", "JPG", "*.png", "PNG", "*.bmp", "BMP"]
[MEJORIA]Fecha "wysiwyg" ... ---------------------------------------------------
para ver en el "datechooser" lo que sera en la ficha
PUBLIC SUB DateChooserfecha_Change()
  ME.Caption =
Format(Ffechadia.DateChooserfecha.Value, "yyyy/mm/dd")
END
PUBLIC SUB Form_Open()
  ME.Caption = Format(Ffechadia.DateChooserfecha.Value, "yyyy/mm/dd")
END
 ...
PUBLIC SUB ButtonAceptar_Click()
  FMain.TextBoxFecha.text = Format(Ffechadia.DateChooserfecha.Value, "yyyy/mm/dd")
  ME.Close
END
Salir sin salvar
---------------------------------------------------
1) Me parece mejor que la repuesta por defecto sea NO, para evitar de perder datos
...
IF var.cambio = "si" THEN
 res = Message.Question("¿Desea salir sin salvar?", "no", "si")
      IF res = 2 THEN

2) si la repuesta es no, tenemos de salvar
PUBLIC SUB Form_Close()
  ....
      IF res = 1 THEN
        ME.CLOSE
      ELSE
        STOP EVENT   'paramos este evento y no salgo del programa
        archivo.salva()
      ENDIF