EasyReport printing bmp files

[Otto]

Hello,

I had problems printing larger bmp-files with EasyReport.
Now I check if the image is a bmp file and if yes I use method SayBitmap.
Now it is working fine.
I changed method PrintItem in VRD.prg like this:

Code: Select all  Expand view

if UPPER( cFileExt( cText ) ) = "BMP"
        ::oPrn:SayBitmap( ::ToPix( nItemTop, .T. ), ;
                     ::ToPix( ::nLeftMargin + oItem:nLeft, .F. ), ;
                     cText, ;
                     ::ToPix( oItem:nWidth, .F. ), ;
                     ::ToPix( oItem:nHeight, .T. ) )

else
        oImg:LoadImage( IIF( AT( "RES:", UPPER( cText ) ) <> 0, ;
                           SUBSTR( ALLTRIM( cText ), 5 ), NIL ), ;
                      VRD_LF2SF( cText ) )

      //oImg:LoadBmp( VRD_LF2SF( IIF( cValue = NIL, cText, ALLTRIM( cValue ) ) ) )

      ::oPrn:SayImage( ::ToPix( nItemTop, .T. ), ;
                     ::ToPix( ::nLeftMargin + oItem:nLeft, .F. ), ;
                     oImg, ;
                     ::ToPix( oItem:nWidth, .F. ), ;
                     ::ToPix( oItem:nHeight, .T. ) )
     
      oImg:End()
endif
 

Best regards,
Otto

[Armando]

Otto:

Thanks for the tip, are you using the Timm's versión or newest FW versión?.

Regards

[Otto]

Hello Armando,

the changes are made in vrd.prg.
I don’t think there are more versions of vrd.prg.
I searched the original FWH directory and there is no vrd.prg.
So maybe I am still working with Timms.

As fare as I know forking was only done on the VRD-designer not on the print engine (vrd.prg).

Antonio

Where is the Fivewin distribution of EasyReport for download.

Best regards,
Otto

[cnavarro]

Otto

https://bitbucket.org/fivetech/easyreport

[Otto]

Hello Armando,
My vrd.prg is more or less the same.
At line 994
oImg:LoadImage( IIF( AT( "RES:", UPPER( cText ) ) <> 0, ;
SUBSTR( ALLTRIM( cText ), 5 ), NIL ), ;
VRD_LF2SF( cText ) )

//oImg:LoadBmp( VRD_LF2SF( IIF( cValue = NIL, cText, ALLTRIM( cValue ) ) ) )

::oPrn:SayImage( ::ToPix( nItemTop, .T. ), ;
::ToPix( ::nLeftMargin + oItem:nLeft, .F. ), ;
oImg, ;
::ToPix( oItem:nWidth, .F. ), ;
::ToPix( oItem:nHeight, .T. ) )
oImg:End()

I changed to:

if UPPER( cFileExt( cText ) ) = "BMP"
::oPrn:SayBitmap( ::ToPix( nItemTop, .T. ), ;
::ToPix( ::nLeftMargin + oItem:nLeft, .F. ), ;
cText, ;
::ToPix( oItem:nWidth, .F. ), ;
::ToPix( oItem:nHeight, .T. ) )

else
oImg:LoadImage( IIF( AT( "RES:", UPPER( cText ) ) <> 0, ;
SUBSTR( ALLTRIM( cText ), 5 ), NIL ), ;
VRD_LF2SF( cText ) )

//oImg:LoadBmp( VRD_LF2SF( IIF( cValue = NIL, cText, ALLTRIM( cValue ) ) ) )

::oPrn:SayImage( ::ToPix( nItemTop, .T. ), ;
::ToPix( ::nLeftMargin + oItem:nLeft, .F. ), ;
oImg, ;
::ToPix( oItem:nWidth, .F. ), ;
::ToPix( oItem:nHeight, .T. ) )

oImg:End()
endif

Another change I made is:

Line 2819
aFiles := DIRECTORY( VRD_LF2SF( cPath ) + "*." + cExt, "D" )

I changed to
aFiles := DIRECTORY( VRD_LF2SF( cPath ) + "*." + cExt,"DHS")


Best regards,
Otto

[Armando]

Otto:

Thanks a lot.

Best regards

[Otto]

Hello Armando ,

my old fileedit.exe does not work under 64 bit.

Now I tried to compile fileedit.prg but I can’t find FILEEDIT.DLL.

Have you been able to compile fileedit?

Best regards,
Otto

[Armando]

Hello Otto:

Where can I find FileEdit.Prg?

I have't it, or you mean FiveEdit?

Regards

[Otto]

Hello Armando,
it is inside the download.zip.
https://bitbucket.org/fivetech/easyreport
Best regards,
Otto

[Armando]

Otto:

I'm so sorry, I never use FileEdit, I always use the designer.

Sorry, again

[Otto]

Hallo Armando,
I will search on my old HD maybe I find the dll.
Best regards,
Otto

[Otto]

#INCLUDE "C5GRID.CH"

Armando,
I found the dll but now C5Grid is missing.
I think we should change from C5Grid to xBrowse.

Best regards,
Otto

[Armando]

Otto:

Yes, I think so.

Best regards