Me pide un archivo que se llama wpdf.h que no viene en el código
He retocado algunos errores :
En Epmeta.prg he retocado el codigo de estas funciones para quitar los errores .
- Code: Select all Expand view RUN
#pragma BEGINDUMP
#include <windows.h>
#include "hbapi.h"
HB_FUNC(EP_PLAYENHMETAFILE)
{
RECT rect;
HENHMETAFILE hemf =(HENHMETAFILE) hb_parnl( 2 );
HDC hDC = ( HDC ) hb_parnl( 1 );
// GetEnhMetaFileHeader( hemf, sizeof( mh ), &mh ) ;
if( hb_parl( 4 ) )
{
rect.left = 0;
rect.top = 0;
rect.right = GetDeviceCaps( ( HDC ) hb_parnl( 1 ), HORZRES );
rect.bottom = GetDeviceCaps( ( HDC ) hb_parnl( 1 ), VERTRES );
}
else
if (HB_IS_ARRAY(3))
{
rect.left = hb_parvni( 3, 1 );
rect.top = hb_parvni( 3, 2 );
rect.right = hb_parvni( 3, 3 );
rect.bottom = hb_parvni( 3, 4 );
}
else
// GetClientRect( WindowFromDC( hDC ), &rc );
GetClientRect ( (HWND)hb_parnl( 3 ), &rect );
hb_retl( PlayEnhMetaFile( hDC, hemf, ( LPRECT ) &rect ) );
}
//------------------ ------------------------//
HB_FUNC(ENHMETASIZE)
{
HENHMETAFILE hemf = (HENHMETAFILE) hb_parnl( 1 );
INT sizetyp = hb_parni( 2 );
ENHMETAHEADER mh ;
RECTL rect ;
GetEnhMetaFileHeader( hemf, sizeof( mh ), &mh ) ;
if (sizetyp == 1 ) // Size in Pixel
rect = mh.rclBounds ;
else
rect = mh.rclFrame ; //Size in 0.1 mm
hb_reta( 4 );
hb_storvni(rect.left , -1, 1 );
hb_storvni(rect.top , -1, 2 );
hb_storvni(rect.right , -1, 3 );
hb_storvni(rect.bottom, -1, 4 );
}
//------------------ ------------------------//
.
