topic-2217

Board index FiveWin para Harbour/xHarbour Preview...

Ricardo Ramirez E.

Posts: 161

Joined: Wed Jan 25, 2006 10:45 AM

Preview...
Posted: Wed Mar 15, 2006 09:51 PM

Hola Foro

Pq a veces no puede generar los metafiles...=? en un preview de la tprinter ? sale um error de creacion de archivo.

Fw2.5, XPP Service Pack 2. harbour 0.45

Es un problema de xp ?

Gracias.!

Saludos

Ricardo R.

xHarbour 1.1.0 Simplex , Microsoft Visual Studio 2008, Bcc55, Fwh Build. 9.01

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Preview...
Posted: Wed Mar 15, 2006 11:53 PM

Ricardo,

Modifica printer.prg de esto modo:

Code: Select all Collapse

    #ifndef __CLIPPER__
       AAdd( ::aMeta, ::cDir + cTempFile( "\", "emf" ) )
       ::hDCOut := CreateEnhMetaFile( ::hDc,ATail( ::aMeta ), ::cDocument )  //jlcr
    #else
       AAdd( ::aMeta, ::cDir + cTempFile( "\", "wmf" ) )
       ::hDCOut := CreateMetaFile( ATail( ::aMeta ) )
    #endif

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums

Continue the discussion