propiedad intelectual de programas de ordenador

En la web de Ministerio de Cultura se puede consultar información sobre la propiedad intelectual, incluida la de programas de ordenador.

La propiedad intelectual en España protege obras completas, de ahi la diferencia con el concepto de patente. Son dos cosas distintas. En el caso de los programas de ordenador se protege el tipo de información que el programa almacena y la manera en que el programa interactua con el usuario para manejar esta información. Para registrar un programa tienes que presentar una memoria explicativa de la funcionalidad del programa, el código fuente y los pantallazos del programa.

Todos mis programas están registrados como propiedad intelectual mía en el registro de la Consellería de Cultura de Alicante, que es el organismo delegado del Ministerio de Cultura en Alicante para hacer dichos registros.

Colossus ha sido clonado

Esta semana un señor de Chile al que no tengo el gusto de conocer publicó un post en los foros de FWH sobre un programa de contraseñas que había hecho. Cuando leo algo así y el autor del post/programa es de primera división lo bajo enseguida, pero esta vez no lo hice. Jaime me alertó del parecido del programa de este señor con mi Colossus. Pero una cosa es que un programa se parezca a otro y otra cosa es tener el rostro y la caradura de este señor.

Estas son algunas imágenes del formulario de edición de contraseñas de Colossus:

y estas del clon del programa:

Las semejanzas son evidentes. Los campos son casi los mismos, y con los mismos nombres y con la misma disposición en pestañas que se llaman de la misma manera. Casualidad además que lo ha hecho alguien en FWH, la misma GUI que yo uso. Si alguien que programa con VisualBasic o Delphi lo hubiera hecho pues nunca me hubiera enterado.

Colossus – antes llamado Guardian – ha aparecido en numerosas revistas de informática, llegando a recibir la calificación de ‘Programa recomendado’ por la revista española PcActual en marzo de 2002.

Todo buen programador coge ideas de otros programas e intenta incorporar a los suyos aquello que le gusta. Pero programar no es sólo copiar. Luego tienes que aportar tu algo a aquello que haces, y ahi es donde eres tu mismo. O lo haces bien o metes la pata hasta el fondo.

Lo que me fastidia de que me copien un programa no es el hecho en si de la copia, sino que lo haga alguien que hace programas como Big Macs. Si el programa fuera mejor que Colossus me quitaría el sombrero, pero asi no puedo sentirme como Francisco Torreblanca si algún gracioso pusiera nata de bote en uno de sus pasteles.

iconexperience

Hace unas semanas María me mandó un e-mail con la dirección de un sitio de iconos que desconocía: iconexperience. Los iconos están muy bien y me chocó la cantidad de iconos disponibles, más de 1100, y su precio de 379$ que al cambio son sobre 280€. Vamos que el icono sale a 0,25€. La verdad es que hay muchos iconos repetidos con distintos emblemas, pero la colección es impresionante. Por poner un ejemplo, los iconos del nuevo antispyware de Microsoft son los de esta colección.

colossus preview 1

La nueva versión de Colossus será gratuita para uso personal, y he querido hacer un programa completamente a mi gusto. La interfaz no tiene barra de botones ni barra de estado, unicamente un taskbox desde el que se eligen las acciones. La ordenación de la rejilla de datos no es mediante pestañas sino haciendo doble click sobre la cabecera y una flecha amarilla muestra que esa columna es la que ordena los datos.

Como se puede ver, debajo del taskbox aparece la imagen corporativa de alanit. Para que al redimensionar la ventana no parpadee el dichoso bitmap hay que usar un truco xDo it que consiste en ponerle un BRUSH NULL al bitmap. Primero, en el método new de la clase aplicación se define el brush:

::oBrush := TBrush():New(«NULL»,,,)

y luego en el main() de la aplicación pongo el BMP, lo hago trasparente con el mismo fondo que he definido la ventana y por último le asigno el brush:

@ 480, 15 BITMAP oApp:oBmp RESOURCE «ALANIT» NOBORDER PIXEL OF oApp:oWndMain
oApp:oBmp:nClrPane := GetSysColor(3)
oApp:oBmp:lTransparent := .t.
oApp:oBmp:oBrush := oApp:oBrush

Gracias Paco.