FiveTech Software tech support forums

... oDevice:cDocument )   StartPage( oDevice:hDC )     hMeta := GetEnhMetaFile(aFiles[nFor])PlayEnhMetaFile( oDevice:hDC, hMeta,, .t. )oDevice:hDCOut := oDevice:hDC                  oDevice:CmSay( ...

Carlos,

In METHOD PrintPrv( oDlg, nOption, nPageIni, nPageEnd ) CLASS TPreview we use PlayEnhMetaFile()

Please replace those calls with XPlayEnhMetaFile() and lets see if that makes a difference in your case, thanks

... El problema definitivamente es al momento en que FWH hace el paint del metafile- Puede ser en el Method PainMeta de TPreview, o en la función PlayEnhMetafile de metafi32.c, pero hasta allá no llegan mis capacidades. :( , pero con tu guía estoy seguro que podré solucionarlo. https://i.postimg.cc/pX2JmZb4/54199943.png

Antonio, aquí la segunda parte: Error: Unresolved external '_HB_FUN_DRAWTHEMED' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB|DIALOG Error: Unresolved external '_HB_FUN_GETDLGBASEUNITS' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB|DIALOG Error: Unresolved external '_HB_FUN_CDLG2CHR' referenced from P...

He bajado el repositorio e intentado reconstruir easyPreview con el archivo de xMate que trae .... De momento faltan un archivo llamado "davinci.ch" ... lo he comentado y he seguido ... aqui pongo los errores que lanza para ir resolviéndolos .... Warning W8065 epmeta.prg 445: Call to funct...

... 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 // Current page StartPage( ...

... := CreateCompatibleBitmap( hDC1, 50, 75 )local hOldBmp := SelectObject( hDC, hBmp )local hEMF := GetEnhMetaFile( '1.emf' )PlayEnhMetaFile( oDlg:getDC(), hEMF, oDlg:hWnd )rectangle( hDc, 0,0,60,80 )PlayEnhMetaFile( hDc, hEMF, oBmp:hWnd )DrawBitmap( ...

Daniel, del manual PlayEnhMetaFile( <hDC>, <hEMF>, [<hWnd>], [<lPrinter>, [<nRightOffset>], [<nBottomOffset>]] ) --> lSuccess del codigo fuente #ifdef __XPP__   CLIPPER PLAYENHMET( ...

Hola Marcelo...

estas usando mal la funcion PlayEnhMetaFile

mira los parametros que debes pasar

PlayEnhMetaFile( hDC, hEMF, { 0, 0, 50, 75 } )

... 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 // Current page StartPage(oDevice:hDC) ...

... 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 // Current page StartPage(oDevice:hDC) ...

... * Documentación actualizada de las siguientes funciones en FWFun.chm: cTempFile() Ctl3DLook() GetPrintDC() InvalidateRect() MenuMeasureItem() PlayEnhMetaFile() SetDatePick() WndCopy() * Nuevas clases documentadas en FwClass.chm: TActiveX TButtonBmp THeader TOutLook2003 TOutLook2003Group TPreview ...

... xBrwAddColumn() * Updated documentation of functions in FWFun.chm: cTempFile() Ctl3DLook() GetPrintDC() InvalidateRect() MenuMeasureItem() PlayEnhMetaFile() SetDatePick() WndCopy() * New documented Classes in FwClass.chm: TActiveX TButtonBmp THeader TOutLook2003 TOutLook2003Group TPreview ...

Otto,

The same way you could search for PlayEnhMetaFile() call in source\classes\rpreview.prg and place an optional call there to paint the bitmap after that function call

... a metafile file is very complicated task thats why we should avoid that way. If you review Class TMetaFile Method Paint() you will see a call to PlayEnhMetaFile( ::hDC, ::hMeta, ::hWnd, .f. ). You could paint the bitmap on the ::hDC just after that function call: PlayEnhMetaFile( ::hDC, ::hMeta, ...