home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SAMPLES / TESTBMPD.PRG < prev    next >
Text File  |  1994-01-16  |  1KB  |  63 lines
  1. #include "FiveWin.ch"
  2.  
  3. static oWnd
  4.  
  5. //----------------------------------------------------------------------------//
  6.  
  7. function Main()
  8.  
  9.    local oBrush
  10.  
  11.    DEFINE BRUSH oBrush STYLE TILED
  12.  
  13.    DEFINE WINDOW oWnd FROM 0, 0 TO MaxRow(), MaxCol() ;
  14.       TITLE "Bitmaps from disk Demo" ;
  15.       MENU BuildMenu() ;
  16.       BRUSH oBrush
  17.  
  18.    SET MESSAGE OF oWnd TO "Dynamic Bitmaps management"
  19.  
  20.    ACTIVATE WINDOW oWnd MAXIMIZED
  21.  
  22. return
  23.  
  24. //----------------------------------------------------------------------------//
  25.  
  26. function BuildMenu()
  27.  
  28.    local oMenu
  29.  
  30.    MENU oMenu
  31.       MENUITEM "&Ficheros"
  32.       MENU
  33.          MENUITEM "&Clientes..." ACTION Clientes()
  34.          SEPARATOR
  35.          MENUITEM "&Terminar" ACTION oWnd:End()
  36.       ENDMENU
  37.    ENDMENU
  38.  
  39. return oMenu
  40.  
  41. //----------------------------------------------------------------------------//
  42.  
  43. function Clientes()
  44.  
  45.    local oDlg
  46.    local oBmp
  47.  
  48.    DEFINE DIALOG oDlg FROM 5, 5 TO 22, 60 TITLE "Control de Clientes"
  49.  
  50.    @ 1,  1 BITMAP oBmp FILE "d:cara.bmp" OF oDlg
  51.  
  52.    @ 9,  2 BUTTON "&Anterior" SIZE 40, 14 ;
  53.       OF oDlg ACTION oBmp:LoadBmp( "Wind.bmp" )
  54.  
  55.    @ 9, 10 BUTTON "&Siguiente" SIZE 40, 14 ;
  56.       OF oDlg ACTION oBmp:LoadBmp( "Chica.bmp" )
  57.  
  58.    ACTIVATE DIALOG oDlg CENTERED
  59.  
  60. return
  61.  
  62. //----------------------------------------------------------------------------//
  63.