Menu in a Dialog

[lailton.webmaster]

How add a menu for a dialog ?

Someone can help me Thanks

[Daniel Garcia-Gil]

Hello Lailton

from ON INIT

ON INIT( ::SetMenu( BuildMenu() ) )

[lailton.webmaster]

Thanks

[goosfancito]

please help with this, i can´t make that this code run:

Code: Select all  Expand view

 MenuItem "&Nacimiento" action ::nacimiento( 0 ) ACCELERATOR 0, VK_F5

not work accelerator.

[Enrico Maria Giordano]

Try with

Code: Select all  Expand view

MenuItem "&Nacimiento" action ::nacimiento( 0 ) ACCELERATOR ACC_NORMAL, VK_F5

EMG

[goosfancito]

no work. i try it

[karinha]

Code: Select all  Expand view

          ACCELERATOR ACC_ALT, VK_F5
 

[Enrico Maria Giordano]

Can I see a little sample showing the problem? Works fine here.

EMG

[karinha]

Mira, funciona bien...

Code: Select all  Expand view

#Include "FiveWin.Ch"

STATIC oWnd

FUNCTION Main()

   LOCAL cTitle := "Teste de <F5>"

   DEFINE WINDOW oWnd TITLE cTitle                                           ;
          MENU BuildMenu( ) MENUINFO 3 MDI

   ACTIVATE WINDOW oWnd

RETURN NIL

FUNCTION BuildMenu()

   LOCAL oMenu, oMenu1, oMenu2, oMenu3

   MENU oMenu

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

      MENUITEM Omenu2 PROMPT "&Clientes - <F5> "

      MENU
         MENUITEM oMenu2 PROMPT "&Clientes - <F5> " ;
             ACTION Clientes()                      ;
             ACCELERATOR 0, VK_F5                   ; // funciona bien.
             MESSAGE "Grabar Clientes"

      ENDMENU

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

   ENDMENU

RETURN( oMenu)

FUNCTION Grabar()

   ? [GRABAR]

RETURN NIL

FUNCTION Clientes()

   ? [CLIENTES]

RETURN NIL
 

Regards, saludos.

[goosfancito]

Hola. En windows si funciona, el problema es con dialogos.

[karinha]

Mira se ayuda, ó ponga un ejemplo, porfa.

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=34187&start=0

Saludos.

[cnavarro]

Si, he visto que en los diálogos no reconoce convenientemente las teclas aceleradoras, a mí también me ha pasado
Qué versión de fw estás utilizando?

[goosfancito]

7.2 muy vieja.

Antonio, te envíe un email. gracias.