Tamaño de los botones en una toolbar

[Carlos Mora]

Hola Antonio,

Cuando uso las toolbars todos los botones asumen automáticamente el ancho del botón más ancho. ¿Es posible hacer que cada uno tenga el tamaño según su texto? Es decir, un botón con el texto Salir debería ser bastante más fino que uno con el texto 'Listado de Facturas'.
Probablemente (como sospecho) es el comportamiento normal de windows, al menos mirando el MSDN no he encontrado aún como hacerlo, a ver si este finde encuentro algo.

Un saludo,

Carlos.

[Antonio Linares]

Carlos,

Por lo visto todos tienen que tener las mismas dimensiones.

[horacio]

Aqui te mando la función que hace lo que necesitas. En tu código lo manejas así.

AEval( oToolBar : aButtons, { | aBtn, nBtn| CAMBIA_EL_SIZE_DEL_BOTON( oToolBar : hWnd, nBtn, nOr( 0x0010 ) ) } )


#pragma BEGINDUMP
#include <windows.h>
#include <commctrl.h>
#include "hbapi.h"

/*-----------------------------------------------------------------------------------------------*/
HB_FUNC( CAMBIA_EL_SIZE_DEL_BOTON ){
TBBUTTONINFO tbutton;
tbutton.cbSize = sizeof( tbutton );
tbutton.dwMask = TBIF_STYLE;
SendMessage( ( HWND ) hb_parnl( 1 ), TB_GETBUTTONINFO, ( WPARAM ) hb_parni( 2 ), (LPARAM) &tbutton );
tbutton.fsStyle = hb_parni( 3 );
SendMessage( ( HWND ) hb_parnl( 1 ), TB_SETBUTTONINFO, ( WPARAM ) hb_parni( 2 ), (LPARAM) &tbutton );
}

#pragma ENDDUMP

[Carlos Mora]

Gracias horacio, lo pruebo y te cuento como me fue.

Un saludo,

Carlos.

[Carlos Mora]

Grande Horacio!

funcionó perfecto. No usé la rutina exactamente como la pasaste, pero pude hacer la que necesitaba.
Muchas gracias,

Carlos.