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:
Nota:
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
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"]
---------------------------------------------------
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
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
---------------------------------------------------
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
....
IF res = 1 THEN
ME.CLOSE
ELSE
STOP EVENT 'paramos este evento y no salgo del programa
archivo.salva()
ENDIF