Quality property does not work for v5

y_okaday_okada
edited 3:03AM in FastReport VCL 5
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?

Comments

  • gpigpi
    edited 3:03AM
    Try to use latest 5.2.3
  • y_okaday_okada
    edited 3:03AM
    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.

  • gordkgordk St.Catherines On. Canada.
    edited 3:03AM
    Better check your dl page again 5.2.3 is latest
  • y_okaday_okada
    edited 3:03AM
    gordk wrote: »
    Better check your dl page again 5.2.3 is latest

    I appreciate your reply.
    I will check that version.
  • y_okaday_okada
    edited 3:03AM
    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.


  • gpigpi
    edited 3:03AM
    Do you have a FR sources?
  • y_okaday_okada
    edited 3:03AM
    gpi wrote: »
    Do you have a FR sources?

    I have.

  • gpigpi
    edited 3:03AM
    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_okaday_okada
    edited 3:03AM
    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_okaday_okada
    edited 3:03AM
    @ 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_okaday_okada
    edited 3:03AM
    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_okaday_okada
    edited 3:03AM
    @ gpi

    Thank you very much.

Leave a Comment


Home • FastReport VCL 5Comment As ...

© Vanilla Keystone Theme 2025