FiveTech Support Forums

     MENUITEM "Guardar" ACTION guardar();
            ACCELERATOR 0, VK_F2 ;
            MESSAGE "Guarda los cambios"

     MENUITEM oMenu prompt "Guardar" ACTION guardar();
            ACCELERATOR 0, VK_F2 ;
            MESSAGE "Guarda los cambios"

#Include "FiveWin.Ch"

STATIC oWnd

FUNCTION Main()

   DEFINE WINDOW oWnd TITLE "Testing PullDown Menus"                        ;
          MDI MENUINFO 2

   oWnd:oMenu:End()

   BuildMenu()

   oWnd:Resize()

   ACTIVATE WINDOW oWnd

RETURN NIL

FUNCTION BuildMenu()

   LOCAL oMenu, oMenu1, oMenu2, oMenu3

   MENU oMenu

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

      MENUITEM Omenu2 PROMPT "&Clientes - <F5> "

      MENU
         MENUITEM oMenu2 PROMPT "&Clientes - <F5> " ;
             ACTION Clientes()                      ;
             ACCELERATOR 0, VK_F5                   ;
             MESSAGE "Guardar Clientes"

      ENDMENU

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

   ENDMENU

   oWnd:SetMenu( oMenu )

RETURN nil

FUNCTION guardar()

   ? [GUARDAR]

RETURN NIL

Function Clientes()

   ? [Clientes]

Return nil

// END OF PROGRAM

+----------------------------------------------------------------------------+
¦ FiveWin for xHarbour 2.7 - November 2005        xHarbour development power ¦_
¦ (c) FiveTech, 1993-2005      for Microsoft Windows 95/98/NT/2000/ME and XP ¦¦
+----------------------------------------------------------------------------+¦
  ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
Compiling...
xHarbour Compiler build 0.99.61 (SimpLex)
Copyright 1999-2006, http://www.xharbour.org <!-- m --><a class="postlink" href="http://www.harbour-project.org/">http://www.harbour-project.org/</a><!-- m -->
Compiling 'teste3.prg' and generating preprocessed output to 'teste3.ppo'...
Lines 65, Functions/Procedures 4
Generating C source output to 'teste3.c'...
Done.
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
teste3.c:
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Não foi possível encontrar C:\FWH27\SAMPLES\teste3.il?
* Application successfully built
C:\FWH27\SAMPLES>