tinysoft
/
TSOffice
5
0
Fork 0
Code Issues 1 Pull Requests Projects Releases Wiki Activity

v1.4.6-patch1

This commit is contained in:
csh 2023-09-19 17:00:37 +08:00
parent addc41144e
commit f3094c148c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
funcext/TSOffice/TOfficeObj.tsf
View File

@ -12606,7 +12606,7 @@ Type TPageLine = Class
Function _getCharWidth(ch, rPr); Function _getCharWidth(ch, rPr);
Begin Begin
iChar := ord(ch); iChar := ord(ch);
cnt := iChar > 127 ? 3 : 1; cnt := iChar > 127 ? 2 : 1;
ratio := cnt=1 ? 0.5 : 1; ratio := cnt=1 ? 0.5 : 1;
if ifObj(rPr) then Begin if ifObj(rPr) then Begin
size := max(rPr.Size, rPr.szCs); size := max(rPr.Size, rPr.szCs);
@ -13911,7 +13911,7 @@ Type TDocumentBody = Class(DocObject)
sectPr := new TSectPr(docx, nil); sectPr := new TSectPr(docx, nil);
while ifObj(pNode) do Begin while ifObj(pNode) do Begin
name := pNode.GetName(); name := pNode.GetName();
if ifarray(numIds) and name = 'w:sectPr' then if false and ifarray(numIds) and name = 'w:sectPr' then // 关闭此处的Init计算页码
sectPr.Init(pNode); sectPr.Init(pNode);
else if name = 'w:p' then Begin else if name = 'w:p' then Begin
sectNode := pNode.FirstChildElement('w:sectPr'); sectNode := pNode.FirstChildElement('w:sectPr');