FiveTech Support Forums

#include "Fivewin.ch"

//----------------------------------------------------------------------------//
// Test inicial: Menu standard non style
//
//----------------------------------------------------------------------------//

Static oWnd
Static oFont
Static nHFont
Static cFont
Static nWFont

Function Main()

   // MsgInfo( BorlandVersion() )

   ? HB_Compiler(),OS(),HB_BuildInfo(7)

   cFont    := "Verdana"
   nHFont   := 14

   DEFINE FONT oFont NAME cFont SIZE 0, -nHFont

   DEFINE WINDOW oWnd ;
      TITLE "Test Menu" + " - Ver.: " + FWVERSION + if( IsExe64(), ;
            "  ( 64", "  ( 32" ) + " bits ) - " + FWString( "User" ) + ;
            ": " + WNetGetUser() + " - " + hb_Compiler() ;
      MENU MenuSal() ;
      COLOR CLR_WHITE, METRO_STEEL
     
     
   ACTIVATE WINDOW oWnd MAXIMIZED
   RELEASE FONT oFont

Return nil

//----------------------------------------------------------------------------//

Function MenuSal()

local oMnu

   MENU oMnu FONT oFont 2013 ADJUST ;
      NOBORDER ; //UPPERMNU ;
      COLORSEPARATOR CLR_RED ;
      COLORMENU CLR_HGRAY, CLR_BLUE ;
      COLORSELECT METRO_STEEL, METRO_STEEL, RGB( 0, 0, 1 ) ;
      COLORLEFT CLR_WHITE ;
      COLORRIGHT CLR_HGRAY ;  //      NOINHERIT ;   //      FACTOR 4 ;
      ROUND 1 ;  //5   //      RIGHTSPACE 10 ;
      HEIGHT 1.0 * 2
      MENUITEM "Datos   "
         MENU
            MENUITEM "Proveedores"  ACTION MsgInfo( "Proveedores" )
            MENUITEM "Clientes" ACTION MsgInfo( "Clientes" )
            SEPARATOR
            MENUITEM "Articulos" ACTION MsgInfo( "Articulos" )
            SEPARATOR
            MENUITEM "Fichero de Zonas" ACTION MsgInfo( "Fichero de Zonas" )
            MENUITEM "Ficheros Auxiliares"
            MENU
               MENUITEM "Agentes"
               SEPARATOR
               MENUITEM "Formas de Pago"
               MENUITEM "Entidades Bancarias"
            ENDMENU
            MENUITEM "Tools"
            MENU
               MENUITEM "Copia de Seguridad"
               MENUITEM "Herramientas"
               SEPARATOR
               MENUITEM "Otros"
               MENU 
                  MENUITEM "Item 1"  ACTION MsgInfo( "Item_1" )
                  SEPARATOR
                  MENUITEM "Item 2" ACTION MsgInfo( "Item_2" )
               ENDMENU
            ENDMENU
         ENDMENU
      MENUITEM "Otros Items" ACTION oWnd:End ()            
         MENU 
            MENUITEM "Item 1"  ACTION MsgInfo( "Item_1" )
            MENUITEM "Item 2" ACTION MsgInfo( "Item_2" )
            MENUITEM "Item 3" ACTION MsgInfo( "Item_3" )
            MENUITEM "Item 4" ACTION MsgInfo( "Item_4" )
            SEPARATOR
            MENUITEM "Item 5" ACTION MsgInfo( "Item_5" )
            MENU
               MENUITEM "Item 51" ACTION MsgInfo( "Item_51" )
               MENUITEM "Item 52" ACTION MsgInfo( "Item_52" )
               SEPARATOR
               MENUITEM "Item 53" ACTION MsgInfo( "Item_53" )
               MENUITEM "Item 54" ACTION MsgInfo( "Item_54" )
               MENUITEM "Item 55" ACTION MsgInfo( "Item_55" )
            ENDMENU
            MENUITEM "Item 6" ACTION MsgInfo( "Item_6" )
            MENUITEM "Item 7" ACTION MsgInfo( "Item_7" )
         ENDMENU
      MENUITEM "Salir"
         MENU
            MENUITEM "Abandonar Test" ACTION oWnd:End()
            SEPARATOR
            MENUITEM "Historico"
            MENUITEM "Simbolo Sistema"
         ENDMENU
   ENDMENU
                                                           
Return oMnu

Borland/Embarcadero C++ 7.3 (32-bit) Windows 8 6.2.9200 Borland/Embarcadero C++ 7.3 (32-bit)