¿Cuál es la correcta definición para MENUITEM?

[goosfancito]

Hola.
Tengo un oWnd con un oMenu, si defino asi:

Code: Select all  Expand view

    MENUITEM "Guardar" ACTION guardar();
            ACCELERATOR 0, VK_F2 ;
            MESSAGE "Guarda los cambios"
 

funciona de 10.

Pero...
Si le agrego una variable a ese menuitem oMenu y la declaro asi:

Code: Select all  Expand view

    MENUITEM oMenu prompt "Guardar" ACTION guardar();
            ACCELERATOR 0, VK_F2 ;
            MESSAGE "Guarda los cambios"
 

la tecla aceleradora F2 deja de funcionar.

Por qué pasa eso?. Necesito que tenga una variable para luego podes deshabilitarlo (a no ser que exista otra forma.


Gracias.

[karinha]

Code: Select all  Expand view

#Include "FiveWin.Ch"

STATIC oWnd

FUNCTION Main()

   DEFINE WINDOW oWnd TITLE "Testing PullDown Menus"                        ;
          MDI MENUINFO 2

   oWnd:oMenu:End()

   BuildMenu()

   oWnd:Resize()

   ACTIVATE WINDOW oWnd

RETURN NIL

FUNCTION BuildMenu()

   LOCAL oMenu, oMenu1, oMenu2, oMenu3

   MENU oMenu

      MENUITEM oMenu1 PROMPT "&Guardar - <F2> "     ;
          ACTION guardar()                          ;
          ACCELERATOR 0, VK_F2                      ;
          MESSAGE "Guarda los cambios"

      MENUITEM Omenu2 PROMPT "&Clientes - <F5> "

      MENU
         MENUITEM oMenu2 PROMPT "&Clientes - <F5> " ;
             ACTION Clientes()                      ;
             ACCELERATOR 0, VK_F5                   ;
             MESSAGE "Guardar Clientes"

      ENDMENU

      MENUITEM oMenu3 PROMPT "&Salida <Alt+S> "     ;
          ACTION( oWnd:End() )                      ;
          MESSAGE "Salida"

   ENDMENU

   oWnd:SetMenu( oMenu )

RETURN nil

FUNCTION guardar()

   ? [GUARDAR]

RETURN NIL

Function Clientes()

   ? [Clientes]

Return nil

// END OF PROGRAM
 



[goosfancito]

Karina,
Es el mismo codigo que pruebo, y en mi versión no funciona.

gracias.

[Antonio Linares]

Gustavo,

Aqui funciona bien con FWH 14.08

que versión de FWH usas ?

[goosfancito]

Gustavo,

Aqui funciona bien con FWH 14.08

que versión de FWH usas ?

7.1 media vieja es.

[karinha]

Funciona perfecto con FWH2.7 - November 2005

Code: Select all  Expand view

+----------------------------------------------------------------------------+
¦ FiveWin for xHarbour 2.7 - November 2005        xHarbour development power ¦_
¦ (c) FiveTech, 1993-2005      for Microsoft Windows 95/98/NT/2000/ME and XP ¦¦
+----------------------------------------------------------------------------+¦
  ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
Compiling...
xHarbour Compiler build 0.99.61 (SimpLex)
Copyright 1999-2006, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'teste3.prg' and generating preprocessed output to 'teste3.ppo'...
Lines 65, Functions/Procedures 4
Generating C source output to 'teste3.c'...
Done.
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
teste3.c:
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Não foi possível encontrar C:\FWH27\SAMPLES\teste3.il?
* Application successfully built
C:\FWH27\SAMPLES>
 

Saludos.

Usas Pantallas MDI?

[goosfancito]

No.
Nada, es mas lo unico que hice fue poner un window y un menu para probar.

[goosfancito]

verifique y cuando pongo
menu ::omenu 2007
esa es la diferencia, si pongo eso no funciona.

[karinha]

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=28745&p=161305&hilit=ACCELERATOR+no+funciona#p161305

tu versión de FWH és antigua

Actualize su versión de FWH para una más reciente.

Salu2.