construcción de easyPreview

construcción de easyPreview

Postby mastintin » Thu Aug 14, 2014 4:15 pm

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
User avatar
mastintin
 
Posts: 1516
Joined: Thu May 27, 2010 2:06 pm

Re: construcción de easyPreview

Postby Antonio Linares » Thu Aug 14, 2014 4:41 pm

Manuel,

A ver si me puedes echar una mano con l pintado de los bitmaps de ER, me tiene loco :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41205
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: construcción de easyPreview

Postby cnavarro » Thu Aug 14, 2014 4:45 pm

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()
 
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6498
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: construcción de easyPreview

Postby mastintin » Thu Aug 14, 2014 6:20 pm

Antonio Linares wrote: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 ...
User avatar
mastintin
 
Posts: 1516
Joined: Thu May 27, 2010 2:06 pm

Re: construcción de easyPreview

Postby Antonio Linares » Thu Aug 14, 2014 10:21 pm

Manuel,

mil gracias! :-)

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

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41205
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain


Return to EasyReport, EasyDialog y EasyPreview

Who is online

Users browsing this forum: No registered users and 5 guests