FiveTech Support Forums

Hola amigos, hace tiempo que no aparecía por aquí. Mucho trabajo...

Vereis estoy probando la fabulosa clase de Manuel Mercado, TsButton y sólo me surge un pequeño problema.

Uso los botones y les asigno un bitmap de fondo mediante oBtn:LoadBitmaps ({},{"c:\fichero.bmp"}.

El problema es que la imagen es mayor que el tamaño del botón, tengo puesto oBtn:lAdjust a .T., y hace el ajuste de ancho de botón, pero se sale por abajo, es decir, escala únicamente en el factor horizontal.

¿Podeis ayudarme?

Gracias.

Solucionado.

oBtn:bBitmapHeight := {|| DameAlto()}
oBtn:bBitmapWidth := {|| DameAncho()}

Donde DameAlto y DameAncho devolverán el tamaño deseado del bitmap, de este modo no se "sale" del botón.

AngelSalom wrote:El problema es que la imagen es mayor que el tamaño del botón, tengo puesto oBtn:lAdjust a .T., y hace el ajuste de ancho de botón, pero se sale por abajo, es decir, escala únicamente en el factor horizontal.

Hola Angel:

Me da gusto saludarte, podrías mostrarnos una imagen para hacer algunas pruebas y tratar de resolverlo?

Un abrazo.

Manuel Mercado

Funcionó perfectamente su clases para los botones, maestro Manuel. Aquí dejo una captura de la pantalla donde realizo un buen uso de los mismos.