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.

http://listingambas.blogspot.com/p/blog-francais.html

http://listingambas.blogspot.com/p/blog-francais.html

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