mORMot Open Source

profh

Member

Registered: 2010-07-02

Posts: 161

Re: emf2pdf

the font name is "宋体" in chinese.

profh

Member

Registered: 2010-07-02

Posts: 161

Re: emf2pdf

in procedure TPdfEnum.TextOut(var R: TEMRExtTextOut) of SynPdf.pas, the following code:

    if font.LogFont.lfHeight<0 then
      ASize := Abs(font.LogFont.lfHeight)*fscaleY else
      ASize := Abs(font.spec.cell)*fscaleY;

the value of ASize ,sometimes is 66, sometimes is 4.27450962518871E-39, i guess ASize is not correct sometimes.

ab

Administrator

From: France

Registered: 2010-06-21

Posts: 14,661

Website

Re: emf2pdf

So, where does the problem come from?
fScaleY?
font.spec.cell?
font.LogFont.lfHeight?

profh

Member

Registered: 2010-07-02

Posts: 161

Re: emf2pdf

fScaleY is always 0.75
font.LogFont.lfHeight < 0
font.spec.cell = abs(font.LogFont.lfHeight)

as follow:

ASize  font.LogFont.lfHeight font.spec.cell
------------------------------------------
87.75,-117,117
87.75,-117,117
87.75,-117,117
87.75,-117,117
75,-100,100
75,-100,100
75,-100,100
75,-100,100
87.75,-117,117
87.75,-117,117
87.75,-117,117
87.75,-117,117
87.75,-117,117
87.75,-117,117
87.75,-117,117
87.75,-117,117
87.75,-117,117
87.75,-117,117
87.75,-117,117
75,-100,100
75,-100,100
75,-100,100
75,-100,100
87.75,-117,117
87.75,-117,117
87.75,-117,117
......

but i am not sure which one is not correct.