En mis programas tengo los mensajes del sistema personalizados. De esta manera controlo que mis programas siempre muestren los típicos mensajes de confirmación, información, alerta y parada de la misma manera en todas las versiones de Windows. También uso mis propios iconos para los mensajes, sacados de las colecciones de iconexperience que uso también en mis programas. De esta manera consigo uniformidad en los programas.
En Windows Vista los mensajes del sistema presentan un aspecto distinto a las anteriores versiones de Windows. Además de los iconos característicos de la nueva versión de Windows, el formulario está visualmente dividido en dos zonas, la de arriba es blanca y contiene el icono y el texto del mensaje, mientras que la parte de abajo es del color habitual del formulario y contiene el botón o botones del mismo.Con FWH es fácil hacer un formulario de estas características usando el control Pages. No hay más que definir el formulario con un control pages donde va la zona blanca y luego crear otro formulario que se solapará encima del anterior. La definición del formulario principal en el fichero RC es de la siguiente manera:
1 | UT_INFO DIALOG DISCARDABLE 29, 34, 206, 88 |
2 | STYLE WS_POPUP|DS_MODALFRAME|WS_CAPTION|WS_SYSMENU |
3 | CAPTION "Cuaderno de Bitácora" |
6 | CONTROL "&Aceptar", IDOK, "Button", BS_DEFPUSHBUTTON|WS_TABSTOP, 144, 66, 50, 16 |
7 | CONTROL "", 110, "Static", SS_WHITERECT, 0, 0, 206, 60 |
El control que va a contener el control page es el identificado con 110. La definición del formulario que va dentro del control Page del formulario principal es como sigue:
1 | UT_INFO_PAGE DIALOG DISCARDABLE 77, 112, 203, 60 |
2 | STYLE WS_CHILD|WS_CLIPCHILDREN |
5 | CONTROL "", 10, "Static", WS_GROUP, 48, 8, 142, 44 |
6 | CONTROL "", 111, "TBitmap", 0x00000000, 8, 4, 36, 36 |
El código de la función que muestra el formulario es el siguiente:
1 | FUNCTION msginfo(cText, cCaption) |
5 | DEFAULT cCaption := oApp():cAppName+oApp():cVersion |
7 | DEFINE DIALOG oDlgInfo RESOURCE "UT_INFO" TITLE cCaption |
8 | oDlgInfo:oFont := oApp():oFont |
10 | REDEFINE PAGES oPage ID 110 OF oDlgInfo ; |
11 | DIALOGS "UT_INFO_PAGE" |
12 | oPage:oFont := oApp():oFont |
14 | REDEFINE SAY PROMPT cText ID 10 OF oPage:aDialogs[1] |
15 | REDEFINE BITMAP oBmp ID 111 OF oPage:aDialogs[1] RESOURCE "xpinfo" TRANSPARENT |
17 | REDEFINE BUTTON ID IDOK OF oDlgInfo ; |
20 | ACTIVATE DIALOG oDlgInfo ; |
21 | ON INIT oDlgInfo:Center( oApp():oWndMain ) |
con lo que conseguimos un formulario como el siguiente:
Una solución sencilla y elegante. ¿Los botones son los nativos?
Si, son los de Windows Vista.Saludos,