construcción de easyPreview

[mastintin]

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

[Antonio Linares]

Manuel,

A ver si me puedes echar una mano con l pintado de los bitmaps de ER, me tiene loco

[cnavarro]

Vrd.ch

Code: Select all  Expand view

/*
    ==================================================================
    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()
 

[mastintin]

Manuel,

A ver si me puedes echar una mano con l pintado de los bitmaps de ER, me tiene loco

Antonio , ya tienes la solución en el post adecuado ...

[Antonio Linares]

Manuel,

mil gracias!

Ahora a por la barra de scroll, a ver si descubrimos que le pasa...