problema con BUTTONBMP

[MOISES]

Hola Antonio:

BUTTONBMP no muestra el MESSAGE. Es decir

samples\testbubm.prg

REDEFINE BUTTONBMP ID 10 OF oDlg ;
ACTION MsgInfo( "XP themes aware Button Bitmaps" ) ;
BITMAP "..\bitmaps\16x16\garrow.bmp" MESSAGE "TEST..."


En cambio en BTNBMP TOOLTIP si funciona adecuadamente.

Un saludo,

[Antonio Linares]

Moises,

gracias!

Modifica este método en la clase TButtonBmp:

METHOD MouseMove( nRow, nCol, nFlags ) INLINE Super:MouseMove( nRow, nCol, nFlags ), ::oWnd:SetMsg( ::cMsg ), ::Refresh()

[MOISES]

Hola:

¿Lo vas a meter en el build de sept?. Lo digo porque no me gusta añadir módulos de fwh a la aplicación, que luego con las actualizaciones es un lío.

Salu2

[Antonio Linares]

Moises,

Si, ya lo hemos añadido al build de Septiembre

[MOISES]

Antonio,

Pues sigue sin ir. En este código, que es samples\testbubm.prg, pones el cursor encima del botón y NO se muestra el mensaje:


#include "FiveWin.ch"

#define COLOR_BTNFACE 15

//----------------------------------------------------------------------------//

function Main()

local oWnd, oBtnBmp

DEFINE WINDOW oWnd TITLE "FiveWin Xp Theme-aware bitmaped buttons" ;
COLOR 0, GetSysColor( COLOR_BTNFACE )


@ 2, 2 BUTTONBMP oBtnBmp OF oWnd ACTION MsgInfo( "XP themes aware Button Bitmaps" ) ;
BITMAP "..\bitmaps\16x16\garrow.bmp" MESSAGE "Calendario"


@ 6, 2 BUTTON "From Resources" OF oWnd SIZE 90, 25 ACTION nil MESSAGE "Calendario"

ACTIVATE WINDOW oWnd

return nil