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

v1.2.7-patch3

This commit is contained in:
csh 2023-03-24 10:15:35 +08:00
parent 35ef5fdbb4
commit 08f046ed02
1 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
funcext/TSOffice/worksheet/xlsxWorkBook.tsf
View File

@ -1057,8 +1057,6 @@ Type xlsxWorkBook = Class
begin
name := sheetNames_[i]['name'];
xml_file := GetXmlFileObj(sheetNames_[i]['file']);
if name = sheet then
Begin
work_node := xml_file.FirstChildElement('worksheet');
sheet_node := work_node.FirstChildElement('sheetViews');
if not ifObj(sheet_node) then
@ -1072,6 +1070,8 @@ Type xlsxWorkBook = Class
node := sheet_node.InsertFirstChild('element', 'sheetView');
node.SetAttribute('workbookViewId', 0);
end
if name = sheet then
Begin
node.SetAttribute('tabselected', 1);
workbook := GetXmlFileObj('xl/workbook.xml');
book_view_node := workbook.FirstChildElement('workbook').FirstChildElement('bookViews').FirstChildElement('workbookView');
@ -1079,8 +1079,8 @@ Type xlsxWorkBook = Class
End
else
begin
sheet_node := xml_file.FirstChildElement('worksheet').FirstChildElement('sheetViews').FirstChildElement('sheetView');
sheet_node.SetAttribute('tabselected', 0);
node := xml_file.FirstChildElement('worksheet').FirstChildElement('sheetViews').FirstChildElement('sheetView');
node.SetAttribute('tabselected', 0);
end
end
End