home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SAMPLES / TESTMGET.PRG < prev    next >
Text File  |  1994-04-11  |  3KB  |  109 lines
  1. //----------------------------------------------------------------------------//
  2. //  FiveWin 1.5 - Ejemplos
  3. //  (c) A.Linares, F.Pulpón 1993
  4. //
  5. //  Construir con BUILD TestMGet
  6. //
  7. //----------------------------------------------------------------------------//
  8.  
  9. // Ejemplos de 'multiples' tipos de controles,
  10. // uso de ficheros INI y gestión de la impresión.
  11.  
  12. #include "FiveWin.ch"
  13.  
  14. static oWnd
  15.  
  16. //----------------------------------------------------------------------------//
  17.  
  18. function Main()
  19.  
  20.    DEFINE WINDOW oWnd FROM 1, 1 TO 30, 70;
  21.       TITLE OemToAnsi( "Construcción de Diálogos, ficheros INI e Impresión" ) ;
  22.       MENU BuildMenu()
  23.  
  24.    SET MESSAGE OF oWnd TO "FiveWin 1.5 - Ejemplos varios"
  25.  
  26.    ACTIVATE WINDOW oWnd MAXIMIZED
  27.    
  28. return
  29.  
  30. //----------------------------------------------------------------------------//
  31.  
  32. function BuildMenu()
  33.  
  34.    local oMenu
  35.    
  36.    MENU oMenu
  37.       MENUITEM OemtoAnsi( "&Caja de Diálogo" )
  38.       MENU
  39.          MENUITEM OemToAnsi( "Probar Caja de Diálogo" ) ACTION BuildDialog()
  40.          SEPARATOR
  41.          MENUITEM "Hemos terminado" ACTION oWnd:End()
  42.       ENDMENU
  43.       
  44.       MENUITEM "Ficheros &INI"
  45.       MENU
  46.          MENUITEM "Leyendo desde WIN.INI" ;
  47.             ACTION MsgInfo( GetProfString( "windows", "device" ) )
  48.             
  49.          MENUITEM "Leyendo desde un fichero INI privado" ;
  50.             ACTION MsgInfo( GetPvProfString( "Hello", "world", "FiveWin", "test" ) )
  51.       ENDMENU
  52.       
  53.       MENUITEM "&Imprimir..." ACTION PrintTest()
  54.    ENDMENU   
  55.    
  56. return oMenu
  57.  
  58. //----------------------------------------------------------------------------//
  59.  
  60. function BuildDialog()
  61.  
  62.    local oDlg, oArial
  63.    local cName    := "FiveWin 1.0        "
  64.    local cListBox := "Cuatro"
  65.    local cCombo   := "Que"
  66.  
  67.    DEFINE DIALOG oDlg FROM 5, 5 TO 20, 60 TITLE "Hello World!"
  68.    
  69.    DEFINE FONT oArial SIZE 20, 20
  70.  
  71.    @  1,  1 SAY "Hola" FONT oArial OF oDlg
  72.    @  5,  8 GET cName  OF oDlg
  73.    @  7,  4 BUTTON "&Hello" OF oDlg ACTION nMsgBox( "Hello" )
  74.    @  7, 15 BUTTON "&Bye"   OF oDlg ACTION oDlg:Circle( 70, 10, 80 )
  75.    @  1, 10 LISTBOX cListBox ITEMS ;
  76.       { "Uno", "Dos", "Tres", "Cuatro", "Cinco", "Seis", "Siete" } OF oDlg
  77.  
  78.    @  1, 18 COMBOBOX cCombo ITEMS { "Hola", "Que", "Tal", "y tal..." } ;
  79.       OF oDlg ON CHANGE MsgInfo( cCombo )
  80.  
  81.    ACTIVATE DIALOG oDlg CENTERED ;
  82.       ON LEFT CLICK nMsgBox( OemToAnsi( "¡ Increible !" ) )
  83.    
  84.    RELEASE FONT oArial
  85.  
  86. return
  87.  
  88. //----------------------------------------------------------------------------//
  89.  
  90. function PrintTest()
  91.  
  92.    local oPrn := TPrinter():New( "Test" )  // "Test" es el nombre del
  93.                                            // trabajo de impresión a crear
  94.    local fntArial
  95.  
  96.    DEFINE FONT fntArial NAME "Arial" SIZE 150, 80
  97.  
  98.    oPrn:StartPage()                        // Comienza una nueva página
  99.    oPrn:Say( 10, 10, "¡ Hola a todos. Esto es FiveWin !", fntArial )
  100.    oPrn:EndPage()                          // Termina esa página
  101.  
  102.    RELEASE FONT fntArial
  103.  
  104.    oPrn:End()
  105.  
  106. return
  107.  
  108. //----------------------------------------------------------------------------//
  109.