home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SAMPLES / TESTPPV.PRG < prev    next >
Text File  |  1994-05-17  |  1KB  |  52 lines
  1. // FiveWin Print Preview Prototype
  2. // Based on an original idea of Garry Prefontaine
  3.  
  4. // Thanks Garry
  5.  
  6. #include "FiveWin.ch"
  7.  
  8. //----------------------------------------------------------------------------//
  9.  
  10. function Main()
  11.  
  12.    local oDlg, oPPV
  13.  
  14.    SET 3DLOOK ON
  15.  
  16.    DEFINE DIALOG oDlg RESOURCE "PrintPV"
  17.  
  18.    REDEFINE PRINTPREVIEW oPPV ;
  19.       VIEWSIZE 800, 1200 ;
  20.       ID 110 OF oDlg ;
  21.       ON PAINT PageDisplay( oPPV )
  22.  
  23.    REDEFINE BUTTON ID 150 OF oDlg ;
  24.       ACTION ( oPPV:nViewWidth -= 100, oPPV:nViewHeight -= 100, oPPV:Refresh())
  25.  
  26.    REDEFINE BUTTON ID 160 OF oDlg ;
  27.       ACTION ( oPPV:nViewWidth += 100, oPPV:nViewHeight += 100, oPPV:Refresh())
  28.  
  29.    ACTIVATE DIALOG oDlg CENTERED
  30.  
  31. return nil
  32.  
  33. //----------------------------------------------------------------------------//
  34.  
  35. function PageDisplay( oPPV )
  36.  
  37.    local oFont
  38.  
  39.    DEFINE FONT oFont NAME "Arial" SIZE 7, 10
  40.  
  41.    oPPV:Box( 5, 5, 450, 600 )
  42.    oPPV:Say( 2, 2, "Hello Garry!",,, oFont )
  43.    oPPV:Say( 4, 2, "This is a page preview!",,, oFont )
  44.  
  45.    // oPPV:SayBitmap( 15, 30, "..\bitmaps\FW.bmp" )
  46.  
  47.    RELEASE FONT oFont
  48.  
  49. return nil
  50.  
  51. //----------------------------------------------------------------------------//
  52.