home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SAMPLES / TUTOR05.PRG < prev    next >
Text File  |  1994-06-08  |  3KB  |  91 lines
  1. //----------------------------------------------------------------------------//
  2. //  FiveWin 1.5 - Tutorial
  3. //  (c) A.Linares, F.Pulpón 1993-4
  4. //
  5. //  Contruir con BUILD Tutor05
  6. //  Build with:  BUILD Tutor05
  7. //----------------------------------------------------------------------------//
  8.  
  9. // Este es el mismo ejercicio que hemos realizado en Tutor04, pero ahora
  10. // vamos a añadir líneas de mensaje a las opciones del Menú y vamos a
  11. // comenzar la ejecución del programa con la ventana 'maximizada'.
  12.  
  13. // This is the same exercise we have done at Tutor04, but now
  14. // we are going to add it messages to Menu options and we are going
  15. // to start program execution with the Window maximized.
  16.  
  17. #include "FiveWin.ch"
  18.  
  19. static oWnd
  20.  
  21. //----------------------------------------------------------------------------//
  22.  
  23. function Main()
  24.  
  25.    DEFINE WINDOW oWnd FROM 1, 1 TO 22, 75 ;
  26.       TITLE OemToAnsi( "Ejemplo de construcción del Menú Principal" ) ;
  27.       MENU  BuildMenu()
  28.  
  29.    SET MESSAGE OF oWnd ;
  30.       TO OemToAnsi( "FiveWin 1.5, (c) A.Linares & F.Pulpón, 1993-4" ) ;
  31.       CENTERED
  32.  
  33.    ACTIVATE WINDOW oWnd MAXIMIZED
  34.  
  35. return nil
  36.  
  37. //----------------------------------------------------------------------------//
  38.  
  39. function BuildMenu()
  40.  
  41.    local oMenu
  42.  
  43.    MENU oMenu
  44.       MENUITEM OemToAnsi( "&Información" )
  45.       MENU
  46.          MENUITEM "&Acerca de..." ;
  47.             ACTION MsgInfo( OemToAnsi( "Mi primer programa" + Chr( 13 ) + ;
  48.                             "Puedes poner varias líneas" ) ) ;
  49.             MESSAGE OemToAnsi( "Información acerca de este programa" )
  50.          SEPARATOR
  51.          MENUITEM "&Terminar..."  ;
  52.             ACTION If( MsgYesNo( OemToAnsi( "¿ Desea terminar ?" ) ),;
  53.                        oWnd:End(),) ;
  54.             MESSAGE OemToAnsi( "Terminar la ejecución de este programa" )
  55.       ENDMENU
  56.  
  57.       MENUITEM "&Clientes"
  58.       MENU
  59.          MENUITEM "&Altas..."           ;
  60.             ACTION MsgStop( "Nuevos Clientes" ) ;
  61.             MESSAGE OemToAnsi( "Añadir nuevos Clientes" )
  62.  
  63.          MENUITEM "&Modificaciones..."  ;
  64.             ACTION MsgInfo( "Modif. Clientes" ) ;
  65.             MESSAGE "Modificar los datos de un Cliente"
  66.  
  67.          MENUITEM "&Bajas..." ;
  68.             ACTION MsgAlert( "Bajas Clientes" ) ;
  69.             MESSAGE OemToAnsi( "Borrar la información de un Cliente" )
  70.       ENDMENU
  71.  
  72.       MENUITEM "&Utilidades"
  73.       MENU
  74.          MENUITEM "&Calculadora..." ;
  75.             ACTION WinExec( "Calc" ) ;
  76.             MESSAGE "Llamar a la calculadora de Windows"
  77.  
  78.          MENUITEM "C&alendario..." ;
  79.             ACTION WinExec( "Calendar" ) ;
  80.             MESSAGE "Llamar al calendario de Windows"
  81.  
  82.          MENUITEM "Escribir..." ;
  83.             ACTION WinExec( "Write" ) ;
  84.             MESSAGE "Llamar a Write de Windows"
  85.       ENDMENU
  86.    ENDMENU
  87.  
  88. return oMenu
  89.  
  90. //----------------------------------------------------------------------------//
  91.