mORMot Open Source

falcon_b

Member

Registered: 2015-02-26

Posts: 3

Bug in SynPdf.pas

in
procedure TPdfDocumentGDI.SaveToStream(AStream: TStream; ForceModDate: TDateTime=0);

change

        FCanvas.RenderMetaFile(P.fVCLCurrentMetaFile,1,0,0,
          fUseMetaFileTextPositioning,KerningHScaleBottom,KerningHScaleBottom,
          fDisableTextClipping);

to

        FCanvas.RenderMetaFile(P.fVCLCurrentMetaFile,1,0,0,
          fUseMetaFileTextPositioning,KerningHScaleBottom,KerningHScaleTop,
          fDisableTextClipping);

in
procedure TPdfDocumentGDI.SaveToStreamDirectPageFlush;

change

        FCanvas.RenderMetaFile(P.fVCLCurrentMetaFile,1,0,0,
          fUseMetaFileTextPositioning,KerningHScaleBottom,KerningHScaleBottom,
          fDisableTextClipping);

to

        FCanvas.RenderMetaFile(P.fVCLCurrentMetaFile,1,0,0,
          fUseMetaFileTextPositioning,KerningHScaleBottom,KerningHScaleTop,
          fDisableTextClipping);

ab

Administrator

From: France

Registered: 2010-06-21

Posts: 14,660

Website

Re: Bug in SynPdf.pas

Indeed.

Should be done by http://synopse.info/fossil/info/bb167cc1e3