Convertion from old fp3-document

I'm trying to load a old fp3-document saved with FR VCL 4 and Delphi 2007 in Delphi XE7 and FR VCL 5. First the conversion is fine. But when I set duplex printing from a printer with the following code:
procedure FrxPrinterDuplex2FrxReport(aPrinter: TfrxCustomPrinter;
  Report: TfrxReport);
var
  Duplex: TfrxDuplexMode;
  I: Integer;
begin
  if aPrinter is TfrxPrinter then
  begin
    aPrinter.Init; 
    Duplex := DevMode2FRDuplex((aPrinter as TfrxPrinter).DeviceMode);
  end
  else
    Duplex := dmNone;

  for I := 0 to Report.PagesCount - 1 do
    if Report.Pages[I] is TfrxReportPage then
      (Report.Pages[I] as TfrxReportPage).Duplex := Duplex;

  for I := 0 to Report.PreviewPages.Count - 1 do
  begin
    Report.PreviewPages.Page[I].Duplex := Duplex;
    Report.PreviewPages.ModifyPage(I, Report.PreviewPages.Page[I]);
  end;
end;

At the Line
Report.PreviewPages.ModifyPage(I, Report.PreviewPages.Page[I])
I lose some special german characters like ??,??,??,??,?¶,?¤. The problem is the internal property "FOldVersion" at the function LoadFromStream. I think there is a double conversion from UTF-8 characters. Is there a workaround?

I have the same problem if I load the old document and save it under Delphi XE7 and FR VCL 5 again. After loading this new document the special german characters are lost.

Leave a Comment