Sobre TSButton

[AngelSalom]

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.

[AngelSalom]

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.

[mmercado]

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

[AngelSalom]

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