Ancho de Menu

[Garbi]

Hola a todos,
Os comento desde windows 7 si ejecuto el programa la barra de menú me sale correctamente:
0.- Salir 1.- Modelo ......

Pero en un windows xp el menu se hace muy ancho y acaba en tres lineas
0. Salir -------------------------------------------- 1.- Modelo ---------------------------------------------------------- 2.- Articulo
Los guiones son espacios es que si pongo espacio el topic los quita y lo junta

¿Alguna sugerencia?

Gracias

Fivewin 15.09

[cnavarro]

Puedes añadir la clausula COLORS, y comentarme el resultado? ( En XP )

Code: Select all  Expand view

    MENU oMnu COLORS
 

viewtopic.php?f=16&t=31378&start=45#p183265

[Garbi]

He puesto COLORS y en XP sigue saliendo separado.

Solo tengo dos puestos con windows xp, pero el cliente claro no le gusta que salga asi.

Por favor alguna sugerencia.
Dejo el codigo :

Code: Select all  Expand view

DEFINE WINDOW oApp:oWndMain;
       MDI ;   // Ambiente MDI Documentos de Interfase Multiple
       FROM 5,10 to 20,60  ;   // Tama¤o de la ventana
       menu buildmenu() ;      // Menu
       BRUSH oApp:oBrush;
       ICON  oApp:oIcon              // Icono

Codigo del menu :

Code: Select all  Expand view

FUNCTION buildmenu()
         LOCAL oMenu
         LOCAL cArch
         MENU oMenu
              MENUITEM "&0.- Salir" action oApp:oWndMain:end()
              MENUITEM "&1.- Modelo" action fmodelo()
              MENUITEM "&2.- Articulo" action farticulo()
              MENUITEM "&3.- Programacion" action fpedido()
              MENUITEM "&4.- Peticion" action fpeticion(0)
              MENUITEM "&5.- Central" action fcentral()
              MENUITEM "&6.- Cliente" action fcliente()
              MENUITEM "&7.- Entregas" action fentrega()
/*
              MENUITEM "&5.- Densidad" action fdensidad()
              MENUITEM "&6.- Calidad" action fcalidad()
              MENUITEM "&6.- Altura" action faltura()
              MENUITEM "&7.- Longitud"  action flongitud()
              MENUITEM "&8.- Color" action fcolor()
              MENUITEM "&9.- Nave" action fnave()
              MENUITEM "&A.- Cliente" action fcliente()
              MENUITEM "&B.- Informes" action finforme()

              MENUITEM "&5.- Albaran" action falbaran()
              MENUITEM "&6.- Pedido" action fpedido()
              MENUITEM "&7.- Facturas" action ffacturas()
              MENUITEM "&8.- Partes" action fpartes()
              MENUITEM "&9.- Abonos" action fabono()
              MENUITEM "&P.- Productos" action ftarifas(0)
              MENUITEM "&A.- Almacen" action falmacen()
*/
              MENUITEM "&U.- Utilerias"
              MENU
                  MENUITEM "Calculadora" ACTION AppRun("CALC.EXE") RESOURCE "CALC"
                  MENUITEM "I&mpresora"  ACTION PrinterSetUP()     RESOURCE "PRINTER"
                  MENUITEM "Catálogo de Usuarios" ACTION ( Usuarios() )  WHEN ( oApp:aUsuarios[2] == 1 )
                  MENUITEM "Modulos del Sistema"  ACTION ( CatMod() )    WHEN ( oApp:aUsuarios[2] == 1 )
                  MENUITEM "I&ndices"    ACTION Genera(oApp:oWndMain)   RESOURCE "INDEX"
                  SEPARATOR
                  MENUITEM "&Colores"    ACTION  ( Colores() ) // Funcion en Fivelib
                  MENUITEM "&Letra"      ACTION  ( Letra() )   // Funcion en Fivelib
                  MENUITEM "&Abrir" ACTION  ( cArch := cGetFile("*.*","Seleccione una archivo...",,,,.T.),;
                                               IIF( !empty(cArch),ShellExecute(oApp:oWndMain,Nil,cArch,"","",WM_SETFOCUS ) , Nil ) )
                  MENUITEM "&Usuarios" ACTION ( CambioUS() )   // Funcion en Fivelib
                  SEPARATOR
                  MENUITEM "Actualizar Ubicacion Peticion" ACTION fpeticionubicacion()
                  ENDMENU
              // Manejo de Ventanas
*              MENUITEM "&Ventana" WHEN LEN(oApp:oWndMain:oWndClient:aWnd) > 0
              MENUITEM "&V.- Ventana"
              MENU
                  MENUITEM "&Anterior" ACTION oApp:oWndMain:oWndActive:Prev();
                  MESSAGE "Ventana Anterior";
                  RESOURCE "PREV";
                  WHEN LEN(oApp:oWndMain:oWndClient:aWnd) > 1

                  MENUITEM "&Siguiente" ACTION oApp:oWndMain:NextWindow();
                  MESSAGE "Siguiente Ventana";
                  RESOURCE "NEXT";
                  WHEN LEN(oApp:oWndMain:oWndClient:aWnd) > 1

                  MENUITEM "&Cerrar" ACTION oApp:oWndMain:oWndActive:End();
                  RESOURCE "CERRAR";
                  MESSAGE "Cierra Ventana Actual";
                  WHEN LEN(oApp:oWndMain:oWndClient:aWnd) > 1

                  SEPARATOR
                  MENUITEM "&Cascada" ACTION oApp:oWndMain:Cascade();
                  MESSAGE "Organizar Ventanas en Cascada" ;
                  RESOURCE "CASCADA"

                  MENUITEM "Mosaico &Horizontal" ACTION oApp:oWndMain:Tile(.T.);
                  RESOURCE "M_HORIZONTAL" ;
                  WHEN LEN(oApp:oWndMain:oWndClient:aWnd) > 1 ;
                  MESSAGE "Organiza ventanas en Mosaico Horizontal"

                  MENUITEM "Mosaico &Vertical" ACTION oApp:oWndMain:Tile(.F.);
                  MESSAGE "Organiza ventanas en Mosaico Vertical";
                  RESOURCE "M_VERTICAL" ;
                  WHEN LEN(oApp:oWndMain:oWndClient:aWnd) > 1

                  MENUITEM "&Minimizar todo" ACTION oApp:oWndMain:IconizeAll();
                  RESOURCE "MINIMIZAR" ;
                  MESSAGE "Minimiza todas las ventanas"

                  MENUITEM "&Organizar iconos" ACTION oApp:oWndMain:ArrangeIcons();
                  RESOURCE "ORDENAR" ;
                  MESSAGE "Organiza iconos"

                  MENUITEM "&Restaurar todo" ACTION AEVAL(oApp:oWndMain:oWndClient:aWnd,;
                                                      { |oWnd, nPos| oWnd:Restore() });
                  MESSAGE "Restaura todas las Ventanas" ;
                  RESOURCE "MAXIMIZAR"

                  MENUITEM "C&errar todo"  ACTION oApp:oWndMain:CloseAll();
                  MESSAGE "Cierra todas las ventanas";
                  RESOURCE "CERRAR_TODO" ;
                  WHEN LEN(oApp:oWndMain:oWndClient:aWnd) > 1

              ENDMENU
         ENDMENU
RETURN(oMenu)

[cnavarro]

Por favor, pon aqui las lineas 1592-1596 de Windows.prg de la version que estas usando

[Garbi]

La version de fivewin es la 15.09

No tengo ningún fichero que se llame windows.prg
¿Donde deberia estar?

[acuellar]

Garbi

Se debe referir al window.prg que viene en la carpeta classes\source

Saludos,

Adhemar

[cnavarro]

Garbi

Se debe referir al window.prg que viene en la carpeta classes\source

Saludos,

Adhemar

Efectivamente, gracias
Adhemar

[Garbi]

Si, lo siento aquí esta el código
Y muchísimas gracias por vuestra ayuda.

Code: Select all  Expand view

            if Empty( hMFont )
               //if IsUTF8( oItem:cPrompt )
                  DEFAULT hSysMenuFont := GetFontMenu()
                  hMFont   := hSysMenuFont    //GetFontMenu()
                  nHItem  := GetFontHeight( hMFont ) * ( oItem:nLines )
               //endif
            endif
 

[cnavarro]

Sustituye por estas lineas

Code: Select all  Expand view

            if Empty( hMFont ) .and. cWinVersion() <> "XP"
               DEFAULT hSysMenuFont := GetFontMenu()
               hMFont   := hSysMenuFont
               nHItem  := GetFontHeight( hMFont ) * ( oItem:nLines )
            endif


 

Sustituye igual en las lineas: 1654 - 1658

[Garbi]

He realizo el cambio en el fichero window.prg y lo he compilado con mi aplicación y ¡¡¡¡¡¡¡¡¡¡ PERFECTO !!!!!!!!!!

Muchas Gracias,

[cnavarro]

Garbi
Esa modificacion está realizada en la version 15.09 Build 5

[Garbi]

Yo tengo la build 3.

Me quede en el camino.
Pero siempre hay gente dispuesta ayudar como vosotros.
Muchas Gracias.