Page 1 of 1

Menu in a Dialog

Posted: Sat Feb 27, 2010 7:41 pm
by lailton.webmaster
How add a menu for a dialog ?

Someone can help me Thanks

Re: Menu in a Dialog

Posted: Sat Feb 27, 2010 7:57 pm
by Daniel Garcia-Gil
Hello Lailton

from ON INIT

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

Re: Menu in a Dialog

Posted: Sat Feb 27, 2010 8:19 pm
by lailton.webmaster
Thanks

Re: Menu in a Dialog

Posted: Sat Sep 19, 2020 2:18 pm
by goosfancito
please help with this, i can´t make that this code run:

Code: Select all

 MenuItem "&Nacimiento" action ::nacimiento( 0 ) ACCELERATOR 0, VK_F5
not work accelerator.

Re: Menu in a Dialog

Posted: Sat Sep 19, 2020 2:32 pm
by Enrico Maria Giordano
Try with

Code: Select all

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

Re: Menu in a Dialog

Posted: Sat Sep 19, 2020 2:48 pm
by goosfancito
no work. i try it

Re: Menu in a Dialog

Posted: Sat Sep 19, 2020 3:30 pm
by karinha

Code: Select all

          ACCELERATOR ACC_ALT, VK_F5
 

Re: Menu in a Dialog

Posted: Sat Sep 19, 2020 3:35 pm
by Enrico Maria Giordano
Can I see a little sample showing the problem? Works fine here.

EMG

Re: Menu in a Dialog

Posted: Sat Sep 19, 2020 3:55 pm
by karinha
Mira, funciona bien...

Code: Select all

#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.

Re: Menu in a Dialog

Posted: Mon Sep 21, 2020 1:00 am
by goosfancito
Hola. En windows si funciona, el problema es con dialogos.

Re: Menu in a Dialog

Posted: Mon Sep 21, 2020 2:30 am
by karinha
Mira se ayuda, ó ponga un ejemplo, porfa.

http://forums.fivetechsupport.com/viewt ... 87&start=0

Saludos.

Re: Menu in a Dialog

Posted: Mon Sep 21, 2020 6:35 pm
by 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?

Re: Menu in a Dialog

Posted: Wed Sep 23, 2020 9:02 pm
by goosfancito
7.2 muy vieja.

Antonio, te envíe un email. gracias.