home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SAMPLES / TESTPRN.PRG < prev    next >
Text File  |  1994-03-21  |  638b  |  30 lines
  1. #include "FiveWin.ch"
  2.  
  3. static oWnd
  4.  
  5. //----------------------------------------------------------------------------//
  6.  
  7. function Main()
  8.  
  9.    DEFINE WINDOW oWnd FROM 1, 1 TO 20, 60 TITLE "Printing a Window"
  10.  
  11.    @ 3, 3 BUTTON "&Print me" OF oWnd ACTION PrintMe()
  12.  
  13.    ACTIVATE WINDOW oWnd
  14.  
  15. return
  16.  
  17. //----------------------------------------------------------------------------//
  18.  
  19. function PrintMe()
  20.  
  21.    PRINT oPrn NAME "Test"
  22.       PAGE
  23.          oWnd:Print( oPrn, 1, 1, 2 )        // Scale factor 2
  24.       ENDPAGE
  25.    ENDPRINT
  26.  
  27. return
  28.  
  29. //----------------------------------------------------------------------------//
  30.