FiveTech Software tech support forums

... cUniqueID, , .F. , Setup():PDFPrinter, .F. , .F. )

StartDoc(oDevice:hDC, oDevice:cDocument )

StartPage( oDevice:hDC )

hMeta := GetEnhMetaFile(aFiles[nFor])

PlayEnhMetaFile( oDevice:hDC, hMeta,, .t. )
oDevice:hDCOut := oDevice:hDC


oDevice:CmSay( Setup():RgNr_ROW2, Setup():RgNr ...

... MSGBAR
Error: Unresolved external '_HB_FUN_STRETCHBLT' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB|MSGBAR
Error: Unresolved external '_HB_FUN_GETENHMETAFILE' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB|TMETAFIL
Error: Unresolved external '_HB_FUN_MEMOLINE' referenced from P:\32BITS\FWH\LIB\FIVEHX ...

... 41; local hBmp := CreateCompatibleBitmap( hDC1, nWidth, nHeight ) local hOldBmp := SelectObject( hDC, hBmp ) local hEMF := GetEnhMetaFile( cEmf ) Rectangle( hDC, 0, 0, nHeight, nWidth ) MyPlayEnhMetaFile( hDC, hEMF, 0, 0, nHeight, nWidth ) CloseEnhMetafile ...

Marcelo,
it seems not so! If I change in function create_minipage() closeenhmetafile(hEMF) to deleteenhmetafile(hEmf) the files are deleted at end of preview. (or getenhmetafile(cFile) not releases the handle from cFile??)
Have you a new version?

... nFor ] )
PlayMetaFile( oDevice:hDC, hMeta )
DeleteMetafile( hMeta )
EndPage( oDevice:hDC )
#else
StartPage( oDevice:hDC )
hMeta := GetEnhMetaFile( aFiles[ nFor ] )
PlayEnhMetaFile( oDevice:hDC, hMeta,, .t. )
DeleteEnhMetafile( hMeta )
EndPage( oDevice:hDC )
#endif
next

case nOption ...

... GetMetaFile(aFiles[nFor])
PlayMetaFile( oDevice:hDC, hMeta )
DeleteMetafile(hMeta)
EndPage(oDevice:hDC)
#else
StartPage(oDevice:hDC)
hMeta := GetEnhMetaFile(aFiles[nFor])
PlayEnhMetaFile( oDevice:hDC, hMeta,, .t. )
DeleteEnhMetafile(hMeta)
EndPage(oDevice:hDC)
#endif
NEXT

case nOption == 2 ...

... aFiles[nFor])
PlayMetaFile( oDevice:hDC, hMeta )
DeleteMetafile(hMeta)
EndPage(oDevice:hDC)
#else
StartPage(oDevice:hDC)
hMeta := GetEnhMetaFile(aFiles[nFor])
PlayEnhMetaFile( oDevice:hDC, hMeta,, .t. )
DeleteEnhMetafile(hMeta)
EndPage(oDevice:hDC)
#endif
NEXT

case nOption == 2 ...

... symbol '_HB_FUN_ISAPPTHEMED'.
xLINK: error: Unresolved external symbol '_HB_FUN_TSTATUSBAR'.
xLINK: error: Unresolved external symbol '_HB_FUN_GETENHMETAFILE'.
xLINK: error: Unresolved external symbol '_HB_FUN_PLAYENHMETAFILE'.
xLINK: error: Unresolved external symbol '_HB_FUN_DELETEENHMETAFILE ...

... CLASS TPrinter

Local hMeta,oRect
Local aData:=PrnGetSize( ::hDC )

IF ! FILE( cFile )
Return nil
Endif

SaveDC( ::hDCOut )

hMeta:=GetEnhMetaFile( cFile )

::SetIsoTropicMode()
::SetWindowExt( aData[1], aData[2] )
::SetViewPortExt( aData[1], aData[2] )
SetViewOrg( ::hDCOut, -1, -1 ...