home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SAMPLES / TESTMAP.PRG < prev    next >
Text File  |  1994-01-16  |  1KB  |  54 lines
  1. #include "FiveWin.ch"
  2.  
  3. static oWnd
  4.  
  5. //----------------------------------------------------------------------------//
  6.  
  7. function Main()
  8.  
  9.    DEFINE WINDOW oWnd FROM 1, 1 TO 29, 63 TITLE "Our loved Spain"
  10.  
  11.    SET MESSAGE OF oWnd TO "FiveWin 1.0 - Dynamic Bitmaps Loading"
  12.  
  13.    ACTIVATE WINDOW oWnd ;
  14.       ON INIT  AddSomeButtons() ;
  15.       ON PAINT Draw( oWnd, "Spain.bmp" )
  16.  
  17. return
  18.  
  19. //----------------------------------------------------------------------------//
  20.  
  21. function AddSomeButtons()
  22.  
  23.    USE Buttons
  24.  
  25.    while ! EoF()
  26.       @ nRow, nCol BUTTON AllTrim( cButton ) OF oWnd SIZE nWidth, nHeight ;
  27.          ACTION MsgInfo( "FiveWin 1.0" )
  28.  
  29.       SKIP
  30.    end
  31.  
  32.    USE
  33.  
  34. return
  35.  
  36. //----------------------------------------------------------------------------//
  37.  
  38. function Draw( oWnd, cBitmap )
  39.  
  40.    local hBitmap
  41.  
  42.    oWnd:GetDC()
  43.  
  44.    hBitmap = ReadBitmap( oWnd:hDC, cBitmap )
  45.    DrawBitmap( oWnd:hDC, hBitmap, 0, 0 )
  46.  
  47.    oWnd:ReleaseDC()
  48.  
  49.    DeleteObject( hBitmap )
  50.  
  51. return
  52.  
  53. //----------------------------------------------------------------------------//
  54.