FiveTech Support Forums

#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

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

#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