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

v1.4.2-patch1

This commit is contained in:
csh 2023-08-18 18:05:48 +08:00
parent b59c869ae2
commit 9037124c01
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

@ -13893,11 +13893,11 @@ Type TDocumentBody = Class(DocObject)
if ifObj(obj) then Begin if ifObj(obj) then Begin
level := obj.HeadingLevel(); level := obj.HeadingLevel();
iLevel := Class(TSXml).SafeStrToIntDef(level, -1); iLevel := Class(TSXml).SafeStrToIntDef(level, -1);
if iLevel+1 >= UpperHeadingLevel and iLevel+1 <= LowerHeadingLevel then Begin if p.Text() <> "" and iLevel+1 >= UpperHeadingLevel and iLevel+1 <= LowerHeadingLevel then Begin
r[ind]['Level'] := strtoint(level); r[ind]['Level'] := strtoint(level);
r[ind]['Paragraph'] := p; r[ind]['Paragraph'] := p;
r[ind]['Text'] := p.Text(); r[ind]['Text'] := p.Text();
r[ind]['numId'] := integer(numId); //数字项目编号 r[ind]['numId'] := ifnumber(numId) ? integer(numId) : 0; //数字项目编号
r[ind]['ilvl'] := ilvl; //级别 r[ind]['ilvl'] := ilvl; //级别
r[ind]['numArr'] := numArr; //累加数字编码 r[ind]['numArr'] := numArr; //累加数字编码
sectPr.Mark(ind);//标记段落 sectPr.Mark(ind);//标记段落