Page 1 of 1
Ayuda con menus
Posted: Sat Dec 16, 2006 6:06 pm
by mjcc
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
Posted: Sat Dec 16, 2006 11:13 pm
by Antonio Linares
Revisa este post para entender como se definen los menus:
http://fivetechsoft.com/forums/viewtopic.php?t=4857
Menus
Posted: Sun Dec 17, 2006 10:24 am
by mjcc
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.
Posted: Sun Dec 17, 2006 12:47 pm
by Antonio Linares
Aqui tienes el ejemplo que comentas, hecho
testmnu2.prg:
Code: Select all
#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
#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:
GRACIAS
Posted: Sun Dec 17, 2006 2:10 pm
by mjcc
GRACIAS.