FiveTech Software tech support forums

Code: Select all

// Testing a Popup Menu from resources

#include "FiveWin.ch"

static oWnd

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

function Main()

   DEFINE WINDOW oWnd FROM 2, 2 TO 20, 70 ;
      TITLE "Testing a PopUp Menu from resources"

   SET MESSAGE OF oWnd TO "Testing a Popup Menu from resources" CENTERED

   ACTIVATE WINDOW oWnd ;
      ON CLICK ShowPopup( nRow, nCol )

return nil

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

function ShowPopup( nRow, nCol )

   local oMenu

   DEFINE MENU oMenu POPUP RESOURCE "Test"

   REDEFINE MENUITEM ID 1100 OF oMenu ;
      ACTION MsgInfo( "Hello World!" ) ;
      MESSAGE "First Popup First option"

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

   REDEFINE MENUITEM ID 1210 OF oMenu ;
      ACTION MsgInfo( "First option deepest Popup" ) ;
      MESSAGE "First option deepest Popup"

   REDEFINE MENUITEM ID 130 OF oMenu ;
      ACTION MsgInfo( "Third option" ) ;
      MESSAGE "Third option"

   REDEFINE MENUITEM ID 140 OF oMenu ;
      ACTION oWnd:End() ;
      MESSAGE "End application"

   ACTIVATE POPUP oMenu AT nRow, nCol OF oWnd

return nil

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

Code: Select all

#include "..\include\WinApi.ch"

Test MENU
BEGIN
   POPUP "&Another"
   BEGIN
      MENUITEM "&One",   1100

      POPUP "&Two"
      BEGIN
         MENUITEM "&Third one",   1210
         MENUITEM "&Third two",   1220
         MENUITEM SEPARATOR
         MENUITEM "&Third three", 1230
      END

      MENUITEM "T&hree", 1300
   END

   MENUITEM "&Two",   120

   MENUITEM "T&hree", 130

   MENUITEM SEPARATOR

   MENUITEM "&End sample", 140
END