FiveTech Support Forums

    MENU oMnu COLORS

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

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)

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

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