升级单元格样式,新增对象说明(TOfficeObj.tsf)文档

This commit is contained in:
csh
2022-11-01 15:09:01 +08:00
parent acea813ed1
commit 83b8ff6d09
6 changed files with 2322 additions and 1855 deletions
File diff suppressed because it is too large Load Diff
+1 -1
View File
@@ -346,7 +346,7 @@ Type TSExcelFile = Class
return workbook_.InsertCol(sheet, col);
End;
///插入行,在指定前插入空白行
///插入行,在指定前插入空白行
///sheet: string,工作表名称
///row: int
///返回: [err, info]
+12 -3
View File
@@ -8,6 +8,14 @@ public
ExtNodes := array();
End
Function HandleAttrs(); virtual;
Begin
End
Function HandleChildren(); virtual;
Begin
End
Function GetAttrs(); virtual;
Begin
return ExtAttr;
@@ -60,9 +68,10 @@ public
arr := array('type': 'element', 'name': children[i]['name'], 'attributes': array());
if node_type = 'empty' then // <b/>
begin
// child_arr[len] := arr;
// ++len;
// continue;
end
else if node_type = 'empty_string' then
begin
if ifstring(obj) then arr['attributes'] := array(key : obj);
end
else if node_type = 'pcdata' then
begin
+1 -1
View File
@@ -264,7 +264,7 @@ Type xlsxWorkBook = Class
while ifObj(node) do
Begin
name := node.GetAttribute('name');
if name = sourceName then
if name = LowerCase(sourceName) then
Begin
node.SetAttribute('name', destName);
break;