Quality property does not work for v5

y_okada

The Quality property for TfrxPDFExport does not work for FastReport v4.
Since there seems no further updates for v4, I tried v5 (v5.1.2.18).

With the v5, there is still the bug for Quality property. Even if I change the Quality (e.g. 20%), the PDF is always exported as 100% Quality.

How do other people treat this bug? Any workaround?

gpi

Try to use latest 5.2.3

y_okada

gpi wrote: »

Try to use latest 5.2.3

Thank you for your reply.

I am using FastReport with RadStudio XE4. For XE4, v5.1.2.18 is the latest.

gordk

Better check your dl page again 5.2.3 is latest

y_okada

gordk wrote: »

Better check your dl page again 5.2.3 is latest

I appreciate your reply.
I will check that version.

y_okada

With my current licensing style for FastReport, I cannot get the v5.2.3 (through an agency company, which has some delay for the update). So I cannot confirm whether or not v5.2.3 is fixed for this bug.

So, I decided not to use PDFExport function, instead to use BMPExport function and zip it to reduce the file size.

gpi

Do you have a FR sources?

y_okada

gpi wrote: »

Do you have a FR sources?

I have.

gpi

Modify frxExportPDF.pas

      { Write XObject with a picture inside }

      Jpg := TJPEGImage.Create;

      try
        if (Obj.ClassName = 'TfrxBarCodeView') or
           (Obj is TfrxCustomLineView) or
           (Obj is TfrxShapeView) then
        begin
          Jpg.PixelFormat := jf8Bit;
          Jpg.CompressionQuality := FQuality + 5;  //change this line
        end
        else
        begin
          Jpg.PixelFormat := jf24Bit;
          Jpg.CompressionQuality := FQuality;  //change this line
        end;

y_okada

gpi wrote: »

Modify frxExportPDF.pas

      { Write XObject with a picture inside }

      Jpg := TJPEGImage.Create;

      try
        if (Obj.ClassName = 'TfrxBarCodeView') or
           (Obj is TfrxCustomLineView) or
           (Obj is TfrxShapeView) then
        begin
          Jpg.PixelFormat := jf8Bit;
          Jpg.CompressionQuality := FQuality + 5;  //change this line
        end
        else
        begin
          Jpg.PixelFormat := jf24Bit;
          Jpg.CompressionQuality := FQuality;  //change this line
        end;

Thank you very much for your code.

I am trying now.

y_okada

@ gpi

This is my first time to update FastReport(third party software's) source file.

To reflect the modification of the source, what should I do?

I re-build my project file. But, of course, it did not reflect the modification of the frxExportPDF.pas

y_okada

y_okada wrote: »

@ gpi

This is my first time to update FastReport(third party software's) source file.

To reflect the modification of the source, what should I do?

I re-build my project file. But, of course, it did not reflect the modification of the frxExportPDF.pas

I found the way to rebuild the package.

There is an execution file named "recompile.exe" under FastReport folder. With it, I could reflect the modification.

y_okada

@ gpi

Thank you very much.