FiveTech Support Forums

METHOD End() CLASS TPrinter

   if ::hDC != 0
      DeleteDC( ::hDC )
      if ! ::lMeta
         if ::lStarted
            EndDoc(::hDC)
         endif
      else
         Aeval(::aMeta,{|val| ferase(val) })

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oPrn, oFnt

    PRINT oPrn NAME "Test" PREVIEW
        DEFINE FONT oFnt NAME "Arial" SIZE 0, -12 OF oPrn

        PAGE
            oPrn:Say( 100, 100, "This is a test", oFnt )
        ENDPAGE
    ENDPRINT

    RELEASE FONT oFnt

    RETURN NIL

Aeval(::aMeta,{|val| MsgInfo(ferase(val)) })

PROCEDURE Destroy() CLASS TPrinter

   AEval( ::aMeta, {|val| ferase( val ) } )
   ::aMeta = {}

return

         Aeval(::aMeta,{|val| ferase(val) })
         ::aMeta  := {}

static function PageBitmap( cEMF, nWidth, nHeight )

   local hDC1 := GetDC( GetDesktopWindow() )
   local hDC2 := CreateCompatibleDC( hDC1 )
   local hBmp := CreateCompatibleBitmap( hDC1, nWidth, nHeight )
   local hOldBmp := SelectObject( hDC2, hBmp )
   local hEMF := GetEnhMetaFile( cEmf )

   Rectangle( hDC2, 0, 0, nHeight, nWidth )
   XPlayEnhMetaFile( hDC2, hEMF, 0, 0, nHeight, nWidth )
//   CloseEnhMetafile( hEMF ) // EMG
   DeleteEnhMetafile( hEMF )  // EMG

   SelectObject( hDC2, hOldBmp )
   DeleteDC( hDC2 )
   ReleaseDC( hDC1 )

   AlphaFill( hBmp, 0 )

return hBmp