Menus en dialogos

[Carles]

Antonio,

Podeis mirar porque no se ejecutan las acciones en un menu creado desde un dialogo ?

Code: Select all

#include "FWCE.ch"

//----------------------------------------------------------------------------

function Main()

   local oWnd

   DEFINE DIALOG oWnd FROM 0,0 TO 5, 25 TITLE 'Menu en Dialog'

   ACTIVATE DIALOG oWnd  CENTERED ;
            ON INIT oWnd:SetMenu( BuildMenu() )


return nil

//----------------------------------------------------------------------------

function BuildMenu()

   local oMenu

   DEFINE MENU oMenu RESOURCE 102

   REDEFINE MENUITEM ID 110 OF oMenu ACTION MsgInfo( "First" )

   REDEFINE MENUITEM ID 120 OF oMenu ACTION MsgInfo( "Second" )

return oMenu

//----------------------------------------------------------------------------

Fichero *.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)
#define IDS_HELP      104

#ifdef _CE
102 RCDATA
BEGIN
   102, 2,
   I_IMAGENONE, 110, TBSTATE_ENABLED, TBSTYLE_AUTOSIZE, 202, 0, 0,
   I_IMAGENONE, 120, TBSTATE_ENABLED, TBSTYLE_AUTOSIZE, 203, 0, 0,
END
#endif

STRINGTABLE DISCARDABLE
BEGIN
   202 "First"
   203 "Second"
END

102 MENU DISCARDABLE
BEGIN
    MENUITEM "", 110
    MENUITEM "", 120
END

Gracias

[Antonio Linares]

Carles,

Arreglado. Ya hay un nuevo build de FWPPC para descargar.

Gracias!

[Vikthor]

Carles,

Arreglado. Ya hay un nuevo build de FWPPC para descargar.

Gracias!

Antonio :

De momento el uso de menus utiliza recursos, para poder crearlos desde código fuente qué hace falta ?

[Antonio Linares]

Vikthor,

Aún no sabemos cómo crearlos desde código fuente. Parece que no se puede, ó por lo menos, no está documentado.