atajo no me anda.

[goosfancito]

Hola.
Que hago mal?

Code: Select all  Expand view

     MenuItem ::aMenues[8] PROMPT "Sumar medidas" + Chr(9) + "(F7)";
                  action ::sumarMedidas();
                  ACCELERATOR 0, VK_F7

y probe tambien:

Code: Select all  Expand view

     MenuItem ::aMenues[8] PROMPT "Sumar medidas" + Chr(9) + "(F7)";
                  action ::sumarMedidas();
                  ACCELERATOR ACC_NORMAL, VK_F7

no me funciona ninguno de los dos.
gracias.

[karinha]

Mira, \samples

TESTMENU.PRG
TESTMNU2.PRG

salu2

[Carlos Mora]

Goos,
¿Que es lo que no te anda? Es muy genérico decir que algo "no anda". ¿Casca con algún error? ¿No hace nada si entrás por esa opción del menú?

Veo un problema potencial: estás usando Self, lo que es ambíguo dependiendo del contexto. Algunos comandos de FW usan el símbolo 'self' como parámetro de algunos codeblocks, lo que entra en conflicto si el comando se usa dentro de un método de una clase.

Por ejemplo:

Code: Select all  Expand view

CLASS MyClass
CONSTRUCTOR New()
END CLASS

METHOD New() CLASS MyClass
   LOCAL oDLg, cTemp:= SPACE(10)

   REDEFINE DIALOG oDlg
        REDEFINE GET cTemp ID 101 OF oDlg ON CHANGE MsgInfo( ::ClassName() )
   ACTIVATE DIALOG oDlg
RETURN Self
 

Sería de esperar que el msgInfo imprimiese 'MyClass', pero imprime 'TGet', porque en el comando REDEFINE GET se usa Self como nombre de parámetro en el codeblock de ON CHANGE. Eso sucede en muchas clases.

Si estás definiendo el menu dentro de un método, es dificil ver cual es el problema sin ver el contexto, la clase , el método, y como queda cuando lo ejecutas.

Un saludo

[goosfancito]

Hola!

si voy con el mouse o teclado y presiono sobre la opcion del menú funciona. pero si presiono F7 (que es la que defini como atajo) no ejecuta la opcion, en esa opcion me debería de abrir un díalogo.

El self lo uso como vos me decis en el new() (me lo enseño worman hace unos años) y luego si necesito referenciar hago asi: (tambien por worman)
This:= ...:self.

y luego uso "this"

gracias.