topic-5342

Posts: 139

Joined: Fri Apr 07, 2006 09:16 PM

Ayuda con menus

Posted: Sat Dec 16, 2006 06:06 PM

alguno de vosotros puede enviarme un ejemplo de como crear un menu de la siguiente forma por favor
* En la parte inferior por ejemplo
opcion 1
opcion 2
opcion 3
* De cada una de las opciones (1-2-3) al realizar un click que me abra otro menu por ejemplo
opcion 1
opcion 1a
opcion 2b
opcion 2
opcion 3

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Ayuda con menus

Posted: Sat Dec 16, 2006 11:13 PM

Revisa este post para entender como se definen los menus:

http://fivetechsoft.com/forums/viewtopic.php?t=4857

regards, saludos

Antonio Linares
www.fivetechsoft.com

mjcc

Posts: 139

Joined: Fri Apr 07, 2006 09:16 PM

Menus

Posted: Sun Dec 17, 2006 10:24 AM

Este no me sirve, necesitaba un ejemplo de un menu como en de una aplicacion de PC. Por ejemplo maestros y que me abra otro menu (clientes,proveedores, articulos), dentro de articulos por ejemplo que me abra (añadir, modificar, eliminar, etc)

gracias.

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Ayuda con menus

Posted: Sun Dec 17, 2006 12:47 PM

Aqui tienes el ejemplo que comentas, hecho

testmnu2.prg:

Code: Select all Collapse

#include "FWCE.ch"

function Main()

   local oWnd

   DEFINE WINDOW oWnd TITLE "TestMenu" ;
      MENU BuildMenu()

   ACTIVATE WINDOW oWnd ;
      ON CLICK MsgInfo( "Click!" )
      
return nil

function BuildMenu()

   local oMenu
   
   DEFINE MENU oMenu RESOURCE 102

   REDEFINE MENUITEM ID 110 OF oMenu ACTION MsgInfo( "Clientes" )

   REDEFINE MENUITEM ID 120 OF oMenu ACTION MsgInfo( "Proveedores" )
   
   REDEFINE MENUITEM ID 1310 OF oMenu ACTION MsgInfo( "Añadir" )

   REDEFINE MENUITEM ID 1320 OF oMenu ACTION MsgInfo( "Modificar" )

   REDEFINE MENUITEM ID 210 OF oMenu ACTION MsgInfo( "Albaranes" )

   REDEFINE MENUITEM ID 310 OF oMenu ACTION MsgInfo( "Manual" )

return oMenu

TestMnu2.rc:

Code: Select all Collapse

#ifdef _CE
   #include "c:\vce\include\arm\windows.h"
   #include "c:\vce\include\arm\commctrl.h"
#endif

#define I_IMAGENONE		(-2)

#ifdef _CE
102 RCDATA
BEGIN
  102, 3,
  I_IMAGENONE, 100, TBSTATE_ENABLED, TBSTYLE_DROPDOWN | TBSTYLE_AUTOSIZE, 100, 0, 0,  
  I_IMAGENONE, 200, TBSTATE_ENABLED, TBSTYLE_DROPDOWN | TBSTYLE_AUTOSIZE, 200, 0, 1,  
  I_IMAGENONE, 300, TBSTATE_ENABLED, TBSTYLE_DROPDOWN | TBSTYLE_AUTOSIZE, 300, 0, 2  
END
#endif

STRINGTABLE DISCARDABLE 
BEGIN
   100 "Maestros"
   200 "Varios"
   300 "Ayuda"
END

102 MENU DISCARDABLE 
BEGIN
    POPUP ""
    BEGIN
        MENUITEM "Clientes",    110
        MENUITEM "Proveedores", 120
        POPUP "Artículos"
        BEGIN
           MENUITEM "Añadir",    1310
           MENUITEM "Modificar", 1320
           MENUITEM "Eliminar",  1330
        END
    END

    POPUP ""
    BEGIN
        MENUITEM "Albaranes", 210
        MENUITEM "Facturas", 220
    END

    POPUP ""
    BEGIN
        MENUITEM "Manual", 310
        MENUITEM SEPARATOR
        MENUITEM "Acerca de...", 320
    END
END

Así queda: