Hay alguna forma de que la barra de menu se haga menos ancha?
George[/url]
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Barra de menu muy ancha
DEFINE BUTTONBAR oBARppal _3D SIZE 50, 50 CURSOR OF oWppal
si es lo que quieres, puedes poner la barra de otro tamaño pero deberas poner los iconos mas pequeños.
Dios no está muerto...
Gracias a mi Dios ante todo!
Gracias a mi Dios ante todo!
Gracias Jose Luis por responder, pero yo me refiero a las barritas de opciones en el menu "pull down".
Estas barras son muy largas. Por ejemplo [ File ]
cuando debiera ser [ File ]
Saludos,
George
George,
Usas el estilo 2007 ?
MENU oMenu 2007
Antonio,
Estoy usando Menu oMenu 2007.
Esto es lo que me refiero.
Georgeor
Estoy usando Menu oMenu 2007.
Esto es lo que me refiero.
Georgeor
George,
Puedes modificar el ancho usado cambiando estas líneas en el método MeasureItem() de la clase TWindow:
El ancho viene determinado por el valor que devuelve GetTextWidth(). Prueba a usar un valor inferior a 0.9.
Puedes modificar el ancho usado cambiando estas líneas en el método MeasureItem() de la clase TWindow:
MenuMeasureItem( pMitStruct,;
0.9 * GetTextWidth( 0, If( ! Empty( oItem:cPrompt ),;
StrTran( oItem:cPrompt, "&", "" ), "" ) ) + ;
If( oItem:oMenu:hMenu != If( ::oMenu != nil, ::oMenu:hMenu, 0 ), 100, 0 ),;
Empty( oItem:cPrompt ) )El ancho viene determinado por el valor que devuelve GetTextWidth(). Prueba a usar un valor inferior a 0.9.
Antonio,
Con el cambio por ti sugerido se acorta el menu en la barra superior; pero el pulldown menu sigue igual de ancho como puedes ver en la proxima figura anexa. Esto ocurre con FWH 8.05 + Xbuilder Beta May08
En la otra figura, con la aplicacion compilada con FWH 8.03 + xBuilder Nov 07, el tamaño de las barras estan OK.
Saludos,
George
Con el cambio por ti sugerido se acorta el menu en la barra superior; pero el pulldown menu sigue igual de ancho como puedes ver en la proxima figura anexa. Esto ocurre con FWH 8.05 + Xbuilder Beta May08
En la otra figura, con la aplicacion compilada con FWH 8.03 + xBuilder Nov 07, el tamaño de las barras estan OK.
Saludos,
George
George,
En esa misma sección de código que te he indicado, prueba a variar el valor 100:
If( oItem:hMenu != If( ::oMenu != nil, ::hMenu, 0 ), 100, 0 )
En esa misma sección de código que te he indicado, prueba a variar el valor 100:
If( oItem:hMenu != If( ::oMenu != nil, ::hMenu, 0 ), 100, 0 )
Perfecto!
Antonio le puse un valor de 40 y ahora tiene el ancho correcto.
Gracias
George