Bitmap o imagen en message de window - Solucionado

[rolando]

Buenas noches,

Lo que me interesaría es colocar un par de bitmap, según un estado lógico, en el set message de la window principal.

Actualmente uso:

Code: Select all  Expand view

set message of oWnd TO ('Sistema de Gestión de ' + cCompania);
                        font oMsgfont CLOCK DATE KEYBOARD 2007

Pero me interesaría agregar, como dije, un par de bitmaps en esta línea de message.

Gracias.

Rolando

[rolando]

Hola,

¿Alguna idea al respecto?. ¿Se puede hacer?

Gracias.

Rolando

[Patricio Avalos Aguirre]

Hola Rolando

prueba asi

SET MESSAGE OF oWnd TO "Sistema Administrativo Comercial, © 2012, por Patricio Avalos Aguirre";// 2007;
COLOR CLR_BLACK, CLR_NBLUE

oWnd:oMsgBar:AddItem( TMsgItem():New( oWnd:oMsgBar, "PATRICIO", 150, , , , , { || msgInfo("action")}, ;
"AYUDA" ) )

/*METHOD New( oMsgBar, cMsg, nWidth, oFont, nClrText, nClrBack, lAdd, bAction,;
cBmp1, cBmp2, cToolTip ) CLASS TMsgItem*/

[rolando]

Patricio,

Muchas gracias. Funciona perfecto.

Rolando

[Patricio Avalos Aguirre]

rolando

entonces edita el primer mensaje y en asunto ponle al final SOLUCIONADO