FiveTech Software tech support forums

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

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.

Gracias Antonio