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.

20050203.jpg

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.

Anuncios

2 comentarios en “colossus preview 1

  1. Jose Luis, me alegro mucho de que tengas ilusiones renovadas en seguir haciendo software.

    Necesitamos gente como tú, cuyos programas son un alarde de buen gusto y conicimiento del usuario.

    Un abrazo y que tengamos progrmas de Alanit por muchos años.

Los comentarios están cerrados.