home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SAMPLES / VIEWICO.PRG < prev    next >
Text File  |  1994-01-16  |  620b  |  30 lines
  1. #include "FiveWin.ch"
  2.  
  3. static oWnd
  4.  
  5. //----------------------------------------------------------------------------//
  6.  
  7. function Main( cIcoFile )
  8.  
  9.    if ! Empty( cIcoFile )
  10.       DEFINE WINDOW oWnd FROM 1, 1 TO 3, 3 TITLE cIcoFile
  11.  
  12.       ACTIVATE WINDOW oWnd ON INIT ShowIco( cIcoFile )
  13.    else
  14.  
  15.       ? "Sintax: ViewIco Icon.ico"
  16.  
  17.    endif
  18.  
  19. return
  20.  
  21. //----------------------------------------------------------------------------//
  22.  
  23. function ShowIco( cIcoFile )
  24.  
  25.    @ 0, 0 ICON FILENAME cIcoFile OF oWnd
  26.  
  27. return
  28.  
  29. //----------------------------------------------------------------------------//
  30.