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:
At the Line
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.
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.