Barra de menu muy ancha

[George]

Hay alguna forma de que la barra de menu se haga menos ancha?

George[/url]

[joseluisysturiz]

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.

[George]

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

[Antonio Linares]

George,

Usas el estilo 2007 ?

MENU oMenu 2007

[George]

Antonio,
Estoy usando Menu oMenu 2007.


Esto es lo que me refiero.

Georgeor

[Antonio Linares]

George,

Puedes modificar el ancho usado cambiando estas líneas en el método MeasureItem() de la clase TWindow:

Code: Select all  Expand view  RUN

         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.

[George]

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

[Antonio Linares]

George,

En esa misma sección de código que te he indicado, prueba a variar el valor 100:

If( oItem:oMenu:hMenu != If( ::oMenu != nil, ::oMenu:hMenu, 0 ), 100, 0 )

[George]

Perfecto!

Antonio le puse un valor de 40 y ahora tiene el ancho correcto.

Gracias

George