home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SAMPLES / TUTOR04.PRG < prev    next >
Text File  |  1994-06-08  |  3KB  |  85 lines
  1. //----------------------------------------------------------------------------//
  2. //  FiveWin 1.5 - Tutorial
  3. //  (c) A.Linares, F.Pulpón 1993-4
  4. //
  5. //  Contruir con BUILD Tutor04
  6. //  To Build:    BUILD Tutor04
  7. //----------------------------------------------------------------------------//
  8.  
  9. // Vamos a construir ahora un menú de persiana y se lo vamos a asignar
  10. // a nuestra ventana principal.
  11.  
  12. // Este ejemplo es la forma típica de empezar a construir un programa
  13. // con FiveWin en Windows
  14.  
  15. // We are going to build a PullDown menu and we are going to assign it
  16. // to our main Window
  17.  
  18. // This example is the typical way of start building a FiveWin program
  19.  
  20. #include "FiveWin.ch"
  21.  
  22. static oWnd
  23.  
  24. //----------------------------------------------------------------------------//
  25.  
  26. function Main()
  27.  
  28.    local oIco
  29.  
  30.    DEFINE ICON oIco FILE "..\icons\fax.ico"
  31.  
  32.    DEFINE WINDOW oWnd FROM 1, 1 TO 22, 75 ;
  33.       TITLE OemToAnsi( "Ejemplo de construcción del Menú Principal" ) ;
  34.       MENU  BuildMenu() ;
  35.       COLOR "W+/RB" ;
  36.       ICON oIco
  37.  
  38.    SET MESSAGE OF oWnd ;
  39.       TO OemToAnsi( "FiveWin 1.5, (c) A.Linares & F.Pulpón, 1993-4" ) ;
  40.       CENTERED
  41.  
  42.    ACTIVATE WINDOW oWnd
  43.  
  44. return nil
  45.  
  46. //----------------------------------------------------------------------------//
  47.  
  48. function BuildMenu()
  49.  
  50.    local oMenu
  51.  
  52.    MENU oMenu
  53.       MENUITEM OemToAnsi( "&Información" )
  54.       MENU
  55.          MENUITEM "&Acerca de..." ;
  56.             ACTION ( MsgInfo( OemToAnsi( "Mi primer programa" + Chr( 13 ) + ;
  57.                             "Puedes poner varias líneas" ) ),;
  58.                      oWnd:Say( 2, 2, "My first program..." ) )
  59.          SEPARATOR
  60.          MENUITEM "&Terminar..."  ;
  61.             ACTION If( MsgYesNo( OemToAnsi( "¿ Desea terminar ?" ) ),;
  62.                        oWnd:End(),)
  63.       ENDMENU
  64.  
  65.       MENUITEM "&Clientes"
  66.       MENU
  67.          MENUITEM "&Altas..."           ;
  68.             ACTION ( MsgStop( "Nuevos Clientes" ),;
  69.                      oWnd:Say( 5, 5, "New Clients...", "GR+/G" ) )
  70.  
  71.          MENUITEM "&Modificaciones..."  ACTION MsgInfo( "Modif. Clientes" )
  72.          MENUITEM "&Bajas..."           ACTION MsgAlert( "Bajas Clientes" )
  73.       ENDMENU
  74.  
  75.       MENUITEM "&Utilidades"
  76.       MENU
  77.          MENUITEM "&Calculadora..." ACTION WinExec( "Calc" )
  78.          MENUITEM "C&alendario..."  ACTION WinExec( "Calendar" )
  79.       ENDMENU
  80.    ENDMENU
  81.  
  82. return oMenu
  83.  
  84. //----------------------------------------------------------------------------//
  85.