Enrico, Michel
I tried to adjust the dimensions of the menuitems with a similar width to which they were before if not defined font
In order to better adjust its dimensions have added the clauses NFACTOR and RIGHTSP of the MENU command and its corresponding DATA
I believe that with these adjustments we can control perfectly dimensions
#xcommand MENU [ <oObjMenu> ] ;
[ <of: OF, WINDOW, DIALOG, CONTROL> <oCtrl> ] ;
[ <popup: POPUP> ] ;
[ <l2007: 2007, _2007> ] ;
[ <l2010: 2010, _2010> ] ;
[ COLORMENU <nClrMenu> ,<nClrMenutxt> ] ;
[ COLORSELECT <nClrHiLi> ,<nClrHiLf> ,<nClrHitx> ] ;
[ <left: COLORBMP, COLORLEFT> <nClrToBa> ,<nClrBkBa> ] ;
[ <right: COLORPNEL, COLORRIGHT> <nClrToBr> ,<nClrBkBr> ] ;
[ COLORSEPARATOR <nClrHiBr> ] ;
[ <lMenuBar: MENUBAR> ] ;
[ FONT <oFont> ] ;
[ <lColors: COLORS> ] ;
[ <lVert: LINESVERT> ] ;
[ <l2013: 2013, _2013> ] ;
[ <l2015: 2015, _2015> ] ;
[ <lNoBorder: NOBORDER> ] ;
[ RIGHTSPACE <nRightSp> ] ;
[ FACTOR <nFactor> ] ;
=> ;
[ <oObjMenu> := ] MenuBegin( <.popup.>,, <oCtrl>, <.l2007.>, <.l2010.>,,; //<.lUnicode.>
<nClrMenu>, <nClrMenutxt>, ;
<nClrToBa>, <nClrBkBa>, <nClrHiLi> ,<nClrHiLf>, ;
<nClrHitx>, <nClrHiBr>, <.lMenuBar.>, <oFont>, ;
<.lColors.>, <.lVert.>, <.l2013.>, <.l2015.>, ;
[!<.lNoBorder.>], <nClrToBr> ,<nClrBkBr>, <nRightSp>,;
<nFactor> )
