home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SAMPLES / TESTRES.PRG < prev    next >
Text File  |  1994-04-11  |  4KB  |  130 lines
  1. // Ejemplos de utilización de pantallas almacenadas en Recursos en DLL
  2.  
  3. // Es necesario utilizar un editor de recursos cómo el Resource WorkShop
  4. // de Borland para poder modificar las pantallas que hay almacenadas
  5. // dentro de TestRes.dll
  6.  
  7. // (c) Antonio Linares y Francisco Pulpón, 1993
  8.  
  9. #include "FiveWin.ch"
  10.  
  11. static oWnd
  12.  
  13. //----------------------------------------------------------------------------//
  14.  
  15. function Main()
  16.  
  17.    SET RESOURCES TO "TestRes.dll"
  18.  
  19.    DEFINE WINDOW oWnd FROM 1, 1 TO 20, 60 ;
  20.       TITLE OemToAnsi( "Utilización de Recursos" ) ;
  21.       MENU BuildMenu()
  22.  
  23.    SET MESSAGE OF oWnd ;
  24.       TO OemToAnsi( "FiveWin 1.5 - (c) A.Linares, F. Pulpón, 1993" )
  25.  
  26.    ACTIVATE WINDOW oWnd ;
  27.       ON PAINT DrawLogo( oWnd, "Borland" )
  28.  
  29.    SET RESOURCES TO
  30.  
  31. return
  32.  
  33. //----------------------------------------------------------------------------//
  34.  
  35. function BuildMenu()
  36.  
  37.    local oMenu
  38.  
  39.    MENU oMenu
  40.       MENUITEM OemToAnsi( "&Información" )
  41.       MENU
  42.          MENUITEM "&Acerca de..."  ACTION MsgInfo( "TestRes", "FiveWin" )
  43.          SEPARATOR
  44.          MENUITEM "&Terminar"      ACTION ;
  45.             If( MsgYesNo( OemToAnsi( "¿ Desea terminar ?" ),;
  46.                           OemToAnsi( "Atención" ) ), oWnd:End(),)
  47.       ENDMENU
  48.  
  49.       MENUITEM OemToAnsi( "&Cajas de Diálogo" )
  50.       MENU
  51.          MENUITEM "Caja &1 desde DLL"  ACTION CajaUno()
  52.          MENUITEM "Caja &2 desde DLL"  ACTION CajaDos()
  53.       ENDMENU
  54.  
  55.       MENUITEM "&Utilidades"
  56.       MENU
  57.          MENUITEM "&Calculadora" ACTION WinExec( "Calc" )
  58.          MENUITEM "C&alendario"  ACTION WinExec( "Calendar" )
  59.          SEPARATOR
  60.          MENUITEM "&Escribir"    ACTION oWnd:Say( 20, 2, "FiveWin, que pasada!" )
  61.       ENDMENU
  62.    ENDMENU
  63.  
  64. return oMenu
  65.  
  66. //----------------------------------------------------------------------------//
  67.  
  68. function CajaUno()
  69.  
  70.    local oDlg
  71.    local cNombre := "FiveWin"
  72.  
  73.    DEFINE DIALOG oDlg NAME "Primera"
  74.  
  75.    REDEFINE GET cNombre ID 110 OF oDlg
  76.  
  77.    REDEFINE BUTTON ID 120 OF oDlg ACTION nMsgBox( "Hola" )
  78.    REDEFINE BUTTON ID 130 OF oDlg ACTION oDlg:End()
  79.  
  80.    ACTIVATE DIALOG oDlg CENTERED
  81.  
  82.    MsgInfo( "cNombre:= " + cNombre, "Resultado" )
  83.  
  84. return
  85.  
  86. //----------------------------------------------------------------------------//
  87.  
  88. function CajaDos()
  89.  
  90.    local oDlg
  91.    local cNombre     := "Antonio y Francisco"
  92.    local cObserva    := "Ninguna"
  93.    local lUseFivewin := .t.
  94.    local cProducto   := "Objects"
  95.    local aProductos  := { "FivePro", "Dialog", "Objects", "FiveWin", "Simple",;
  96.                           "Projects" }
  97.  
  98.    DEFINE DIALOG oDlg NAME "Segunda"
  99.  
  100.    REDEFINE GET cNombre ID 110 OF oDlg
  101.    REDEFINE LISTBOX cProducto ITEMS aProductos ID 120 OF oDlg
  102.    REDEFINE GET cObserva ID 130 OF oDlg
  103.    REDEFINE CHECKBOX lUseFiveWin ID 140 OF oDlg
  104.  
  105.    REDEFINE BUTTON ID 150 OF oDlg ACTION nMsgBox( "Aceptar" )
  106.    REDEFINE BUTTON ID 160 OF oDlg ACTION nMsgBox( "Cancelar" )
  107.    REDEFINE BUTTON ID 170 OF oDlg ACTION oDlg:End()
  108.  
  109.    ACTIVATE DIALOG oDlg CENTERED
  110.  
  111.    MsgInfo( "cNombre := " + cNombre, "Resultado" )
  112.    MsgInfo( "lUseFiveWin := " + If( lUseFiveWin, ".T.", ".F." ), "Resultado" )
  113.    MsgInfo( "cProducto := " + cProducto )
  114.  
  115. return
  116.  
  117. //----------------------------------------------------------------------------//
  118.  
  119. function DrawLogo( oWnd, cBitMap )
  120.  
  121.    local hBmp := LoadBitmap( GetResources(), cBitmap )
  122.    
  123.    DrawBitmap( oWnd:hDC, hBmp, 20, 20 )
  124.    
  125.    DeleteObject( hBmp )
  126.    
  127. return   
  128.  
  129. //----------------------------------------------------------------------------//
  130.