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.