mORMot Open Source

krzbor

Member

Registered: 2014-10-03

Posts: 2

Print QRP

I have a very simple report (3 lines - the two lines overlap) format QRP and emf:
http://www.geoportal2.pl/syn/meta1.emf
http://www.geoportal2.pl/syn/report3.qrp
and result:
http://www.geoportal2.pl/syn/metafilepdf.pdf
In the pdf file is visible only one line. What is the reason for the error?
I fixed program code - commented out three lines:

   EMR_LINETO: begin
     E.NeedPen;
// If (not E.Canvas.FNewPath) and not Moved Other
       E.Canvas.MoveToI (Position.X, Position.Y);
     E.Canvas.LineToI (PEMRLineTo (R) ^. Ptl.X, PEMRLineTo (R) ^. Ptl.Y);
     Position: = PEMRLineTo (R) ^. Loop;
     Moved: = false;
     E.fInLined: = true;
// If not then E.Canvas.FNewPath
// If not then pen.null
         E.Canvas.Stroke
   end;

After commenting lines this report and other print properly. I do not know if this is a good solution.

Last edited by krzbor (2014-10-03 22:29:43)