pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fpspreadsheet: Add support for DefaultRowHeight and DefaultColumnWidth to Excel2003xml reader

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7030 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-07-13 22:13:45 +00:00
parent 28fc3e19c4
commit c05c5ff9eb
1 changed files with 12 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
components/fpspreadsheet/source/common/xlsxml.pas
View File

@ -291,11 +291,23 @@ var
nodeName: String; nodeName: String;
s: String; s: String;
r: Integer; r: Integer;
x: Double;
begin begin
r := 0; r := 0;
while ANode <> nil do begin while ANode <> nil do begin
nodeName := ANode.NodeName; nodeName := ANode.NodeName;
if nodeName = 'Row' then begin if nodeName = 'Row' then begin
// Default column width
s := GetAttrValue(ANode, 'ss:DefaultColumnWidth');
if (s <> '') and TryStrToFloat(s, x, FPointSeparatorSettings) then
TsWorksheet(AWorksheet).WriteDefaultColWidth(x, suPoints);
// Default row height
s := GetAttrValue(ANode, 'ss:DefaultRowHeight');
if (s <> '') and TryStrToFloat(s, x, FPointSeparatorSettings) then
TsWorksheet(AWorksheet).WriteDefaultRowHeight(x, suPoints);
// Row
s := GetAttrValue(ANode, 'ss:Index'); s := GetAttrValue(ANode, 'ss:Index');
if s <> '' then r := StrToInt(s) - 1; if s <> '' then r := StrToInt(s) - 1;
ReadRow(ANode.FirstChild, AWorksheet, r); ReadRow(ANode.FirstChild, AWorksheet, r);