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 function 'ISARRAY' with no prototype in function HB_FUN_EP_PLAYENHMETAFILE
Error E2227 epmeta.prg 447: Extra parameter in call to hb_parni in function HB_FUN_EP_PLAYENHMETAFILE
Error E2227 epmeta.prg 448: Extra parameter in call to hb_parni in function HB_FUN_EP_PLAYENHMETAFILE
Error E2227 epmeta.prg 449: Extra parameter in call to hb_parni in function HB_FUN_EP_PLAYENHMETAFILE
Error E2227 epmeta.prg 450: Extra parameter in call to hb_parni in function HB_FUN_EP_PLAYENHMETAFILE
Error E2227 epmeta.prg 473: Extra parameter in call to hb_storni in function HB_FUN_ENHMETASIZE
Error E2227 epmeta.prg 474: Extra parameter in call to hb_storni in function HB_FUN_ENHMETASIZE
Error E2227 epmeta.prg 475: Extra parameter in call to hb_storni in function HB_FUN_ENHMETASIZE
Error E2227 epmeta.prg 476: Extra parameter in call to hb_storni in function HB_FUN_ENHMETASIZE
También falta el archivo vrd.ch
construcción de easyPreview
-
Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
Re: construcción de easyPreview
Manuel,
A ver si me puedes echar una mano con l pintado de los bitmaps de ER, me tiene loco
A ver si me puedes echar una mano con l pintado de los bitmaps de ER, me tiene loco
Re: construcción de easyPreview
Vrd.ch
Code: Select all
/*
==================================================================
EasyReport - The Visual Report Designer Header File
Version 2.1.1
------------------------------------------------------------------
(c) copyright: Timm Sodtalbers, 2000 - 2004
Sodtalbers+Partner
info@reportdesigner.info
www.reportdesigner.info
==================================================================
*/
// In FiveWin 2.2 FiveTech renamed the class TExStruc to TExStruct.
// If you use FW 2.1 or lower uncomment the next line.
//#DEFINE USE_TEXSTRUC
//------------------------------------------------------------------------------
#DEFINE CODE39 1
#DEFINE CODE39CHECK 2
#DEFINE CODE128AUTO 3
#DEFINE CODE128A 4
#DEFINE CODE128B 5
#DEFINE CODE128C 6
#DEFINE EAN8 7
#DEFINE EAN13 8
#DEFINE UPCA 9
#DEFINE CODABAR 10
#DEFINE SUPLEMENTO5 11
#DEFINE INDUST25 12
#DEFINE INDUST25CHECK 13
#DEFINE INTER25 14
#DEFINE INTER25CHECK 15
#DEFINE MATRIX25 16
#DEFINE MATRIX25CHECK 17
//------------------------------------------------------------------------------
#xcommand EASYREPORT <oVRD> ;
NAME <cRptFile> ;
[ PREVIEW <lPreview> ] ;
[ TO <cPrinter> ] ;
[ OF <oWnd> ] ;
[ <lModal: MODAL> ] ;
[ <lPrintIDs: PRINTIDS> ] ;
[ <lNoPrint: NOPRINT> ] ;
[ <lNoExpr: NOEXPR> ] ;
[ CHECK <lCheck> ] ;
[ AREAPATH <cAreaPath> ] ;
[ PRINTDIALOG <lPrDialog> ] ;
[ COPIES <nCopies> ] ;
[ PRINTOBJECT <oPrn> ] ;
[ PAPERSIZE <aSize> ] ;
[ TITLE <cTitle> ] ;
[ PREVIEWDIR <cPrevDir> ] ;
[ AUTOPAGEBREAK <lAutoBreak> ] ;
[ SHOWINFO <lShowInfo> ] ;
=> ;
<oVRD> := VRD():New( <cRptFile> , ;
[ <lPreview> ], ;
[ <cPrinter> ], ;
[ <oWnd> ], ;
[ <.lModal.> ], ;
[ <.lPrintIDs.> ], ;
[ <.lNoPrint.> ], ;
[ <.lNoExpr.> ], ;
[ <cAreaPath> ], ;
[ <lPrDialog> ], ;
[ <nCopies> ], ;
[ <lCheck> ], ;
[ <oPrn> ], ;
[ <aSize> ], ;
[ <cTitle> ], ;
[ <cPrevDir> ], ;
[ <lAutoBreak> ], ;
[ <lShowInfo> ] )
//------------------------------------------------------------------------------
#xcommand ER QUICK <oVRD> ;
NAME <cRptFile> ;
[ PREVIEW <lPreview> ] ;
[ TO <cPrinter> ] ;
[ OF <oWnd> ] ;
[ <lModal: MODAL> ] ;
[ <lPrintIDs: PRINTIDS> ] ;
[ <lNoPrint: NOPRINT> ] ;
[ <lNoExpr: NOEXPR> ] ;
[ CHECK <lCheck> ] ;
[ AREAPATH <cAreaPath> ] ;
[ PRINTDIALOG <lPrDialog> ] ;
[ COPIES <nCopies> ] ;
[ TITLE <cTitle> ] ;
[ ACTION <uAction> ] ;
[ PREVIEWDIR <cPrevDir> ] ;
[ AUTOPAGEBREAK <lAutoBreak> ] ;
=> ;
VRD_PrReport( <cRptFile> , ;
[ <lPreview> ], ;
[ <cPrinter> ], ;
[ <oWnd> ], ;
[ <.lModal.> ], ;
[ <.lPrintIDs.> ], ;
[ <.lNoPrint.> ], ;
[ <.lNoExpr.> ], ;
[ <cAreaPath> ], ;
[ <lPrDialog> ], ;
[ <nCopies> ], ;
[ <lCheck> ], ;
[ {|oVRD|<uAction>} ], ;
[ <cTitle> ], ;
[ <cPrevDir> ], ;
[ <lAutoBreak> ] )
//------------------------------------------------------------------------------
#xcommand PRINTAREA <nArea> ;
OF <oVRD> ;
[ <lOnlyInit: ONLYINIT> ] ;
[ ITEMIDS <aIDs> ] ;
[ ITEMVALUES <aStrings> ] ;
[ <lPageBreak: PAGEBREAK> ] ;
=> ;
<oVRD>:AreaStart( <nArea> , ;
[ !<.lOnlyInit.> ], ;
[ <aIDs> ], ;
[ <aStrings> ], ;
[ <.lPageBreak.> ] )
//------------------------------------------------------------------------------
#xcommand PRINTAREAS <aArea> ;
OF <oVRD> ;
[ <lOnlyInit: ONLYINIT> ] ;
=> ;
<oVRD>:PrMultiAreas( <aArea> , ;
[ !<.lOnlyInit.> ] )
//------------------------------------------------------------------------------
#xcommand PRINTITEM <nItemID> ;
AREA <nArea> ;
[ VALUE <cTextORImage> ] ;
OF <oVRD> ;
[ ENTRY <nEntry> ] ;
=> ;
<oVRD>:PrintItem( <nArea> , ;
<nItemID> , ;
[ <cTextORImage> ] ,,, ;
[ <nEntry> ] )
//------------------------------------------------------------------------------
#xcommand PRITEMLIST AREA <nArea> ;
OF <oVRD> ;
ITEMIDS <aIDs> ;
ITEMVALUES <aStrings> ;
=> ;
<oVRD>:PrintItemList( <nArea> , ;
<aIDs> , ;
<aStrings> )
//------------------------------------------------------------------------------
#xcommand PRINTREST AREA <nArea> OF <oVRD> => <oVRD>:PrintRest( <nArea> )
//------------------------------------------------------------------------------
#xcommand PAGEBREAK <oVRD> => <oVRD>:PageBreak()
//------------------------------------------------------------------------------
#xcommand END EASYREPORT <oVRD> => <oVRD>:End()
//------------------------------------------------------------------------------
#xcommand ENDEASYREPORT <oVRD> => <oVRD>:End()
//------------------------------------------------------------------------------
#xcommand @ <nTop>, <nLeft> BARCODE <oBC> ;
DEVICE <hDC> ;
<label: PROMPT, VAR> <cText> ;
TYPE <nBCodeType> ;
[ SIZE <nWidth>, <nHeight> ] ;
[ COLORTEXT <nColText> ] ;
[ COLORPANE <nColPane> ] ;
[ PINWIDTH <nPinWidth> ] ;
[ VERTICAL <lVert> ] ;
[ TRANSPARENT <lTransparent> ] ;
=> ;
<oBC> := VRDBarcode():New( hDC, <cText>, <nTop>, <nLeft>, ;
[ <nWidth> ], [ <nHeight> ], [ <nBCodeType> ], ;
[ <nColText> ], [ <nColPane> ], [ !<lVert> ], ;
[ <lTransparent> ], [ <nPinWidth> ] )
//------------------------------------------------------------------------------
#xcommand SHOWBARCODE <oBC> => <oBC>:ShowBarcode()
C. Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.
Re: construcción de easyPreview
Antonio , ya tienes la solución en el post adecuado ...Antonio Linares wrote:Manuel,
A ver si me puedes echar una mano con l pintado de los bitmaps de ER, me tiene loco
-
Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
Re: construcción de easyPreview
Manuel,
mil gracias!
Ahora a por la barra de scroll, a ver si descubrimos que le pasa...
mil gracias!
Ahora a por la barra de scroll, a ver si descubrimos que le pasa...