mORMot Open Source

ianc

Member

Registered: 2017-01-12

Posts: 17

Strange Bullet characters

Hi

Im using the code below to export a QuickReport in Delphi 5. It all works great but when I preview PDF the document in Firefox or Chrome PDF viewers Bullets in the TQRichview component
appear as a latin character. This does not occur in Internet explorer. Could someone point me in the right direction.

procedure TPamphletView.ReportExport(aReport: TQuickRep; const aFileName: TFileName);
var Pdf: TPdfDocument;
     aMeta: TMetaFile;
     i: integer;
begin
  Pdf := TPdfDocument.Create;
  try
    aReport.Prepare;
    for i := 1 to aReport.QRPrinter.PageCount do begin
      aMeta := aReport.QRPrinter.GetPage(i);
      try
        Pdf.DefaultPageWidth := MulDiv(aMeta.Width,72,Pdf.ScreenLogPixels);
        Pdf.DefaultPageHeight := MulDiv(aMeta.Height,72,Pdf.ScreenLogPixels);
        Pdf.AddPage;
        // draw the page content
        Pdf.Canvas.RenderMetaFile(aMeta,1,0,0);
      finally
        aMeta.Free;
      end;
    end;
    Pdf.SaveToFile(aFileName);
  finally
    Pdf.free;
  end;
end;