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

v1.6.4

This commit is contained in:
csh 2024-03-04 14:11:34 +08:00
parent f499526f04
commit b4ef4a531c
4 changed files with 267 additions and 249 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
funcext/TSOffice/TOfficeObj.tsf
View File

@ -1,4 +1,4 @@
// Version 1.6.3 // Version 1.6.4
Function TOfficeObj(n); Function TOfficeObj(n);
Begin Begin
case lowercase(n) of case lowercase(n) of
@ -13116,9 +13116,9 @@ Type TDocumentBody = Class(DocObject)
trNode := tbl.node_.InsertEndChild('element', 'w:tr'); trNode := tbl.node_.InsertEndChild('element', 'w:tr');
trNode.InsertEndChild('element', 'w:trPr'); trNode.InsertEndChild('element', 'w:trPr');
multiLine := false; multiLine := false;
for j:=0 to tbl.colCount_-1 do Begin
if ifstring(tbl.Data_[i, j]) and Pos('\n', tbl.Data_[i, j]) then if ifstring(tbl.Data_[i, j]) and Pos('\n', tbl.Data_[i, j]) then
multiLine := true; multiLine := true;
for j:=0 to tbl.colCount_-1 do Begin
//对象太多的话，对象效率奇慢，优化掉(性能可能相差50倍) //对象太多的话，对象效率奇慢，优化掉(性能可能相差50倍)
if 0 then Begin if 0 then Begin
tc := new TCell(); tc := new TCell();
@ -14359,6 +14359,11 @@ Type TTextBox = Class(TDocumentBody, TTextBoxImpl)
End; End;
End; End;
Function Clear();
Begin
if ifObj(node_) then node_.DeleteChildren();
End;
pNode_;//<w:p> pNode_;//<w:p>
NodeEx_;//w:p/w:r/mc:AlternateContent/mc:Choice/w:drawing/wp:anchor/a:graphic/a:graphicData/wps:wsp/wps:txbx/wps:txbxContent NodeEx_;//w:p/w:r/mc:AlternateContent/mc:Choice/w:drawing/wp:anchor/a:graphic/a:graphicData/wps:wsp/wps:txbx/wps:txbxContent
End; End;

2
funcext/TSOffice/TSDocxFile.tsf
View File

@ -1,4 +1,4 @@
// Version 1.6.3 // Version 1.6.4
Type TSDocxFile = Class Type TSDocxFile = Class
///Version: V1.0 2022-09-20 ///Version: V1.0 2022-09-20
///适用于 Microsoft Word docx格式文件 ///适用于 Microsoft Word docx格式文件

2
funcext/TSOffice/TSXlsxFile.tsf
View File

@ -1,4 +1,4 @@
// Version 1.6.3 // Version 1.6.4
Type TSXlsxFile = Class Type TSXlsxFile = Class
///Version: V1.0 2022-08-08 ///Version: V1.0 2022-08-08
///适用于 Microsoft Excel? 2007 及以上版本创建的电子表格文档。支持 XLSX / XLSM / XLTM / XLTX 等多种文档格式。 ///适用于 Microsoft Excel? 2007 及以上版本创建的电子表格文档。支持 XLSX / XLSM / XLTM / XLTX 等多种文档格式。

13
更新日志.md
View File

@ -1,5 +1,18 @@
# 更新日志 # 更新日志
## 2023-3-4
### V1.6.4
#### word
1. 修复`InsertTable`内容`\n`无换行问题
2. `TextBox`支持`Clear`清空内容
#### word
1. 修复目录生成陷入死循环问题
## 2023-2-23 ## 2023-2-23
### V1.6.3 ### V1.6.3