#1 2015-02-26 19:40:56

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);

Offline

#2 2015-02-26 20:04:35

ab
Administrator
From: France
Registered: 2010-06-21
Posts: 14,183
Website

Re: Bug in SynPdf.pas

Offline

Board footer

Powered by FluxBB