BUTTONBMP el bmp sale encima del texto

[fleal]

Hola foro,
compile el TextBuBm.prg pero solo viene el bitmap con el botón. Bien,,, pues ya tiene texto.
He logrado hacer lo siguiente
REDEFINE BUTTONBMP oBtn ID 702 OF oDlg ;
BITMAP "Acerca.BMP" ;

Pero el Bitmap aparece encima del texto... ¿Cómo le hago para que el bitmap apareca a la izquierda??

Saludos

[Antonio Linares]

En el método Paint() de la Clase TButtonBmp hay este código:

if ! Empty( ::hBitmap )
nTop = ( ::nHeight() / 2 ) - ( nBmpHeight( ::hBitmap ) / 2 )
nLeft = ( ::nWidth() / 2 ) - ( nBmpWidth( ::hBitmap ) / 2 )
if ::lActive
DrawMasked( ::hDC, ::hBitmap, nTop + If( lPressed, 1, 0 ),;
nLeft + If( lPressed, 1, 0 ) )
else
DrawGray( ::hDC, ::hBitmap, nTop + If( lPressed, 1, 0 ),;
nLeft + If( lPressed, 1, 0 ) )
endif
endif

Sólo tienes que modificar nLeft para que se situe más a la izquierda.

[fleal]

Gracias Antonio