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

fpspreadsheet: Fix spans typo in xlsxooxml.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3308 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2014-07-11 19:36:17 +00:00
parent 231b127041
commit 4143334384
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpspreadsheet/xlsxooxml.pas
View File

@ -389,7 +389,7 @@ begin
then begin
for r := 0 to Workbook.VirtualRowCount-1 do begin
AppendToStream(FSSheets[FCurSheetNum], Format(
'<row r="%d" spans="1:%d">', [r+1, Workbook.VirtualRowCount]));
'<row r="%d" spans="1:%d">', [r+1, Workbook.VirtualColCount]));
for c := 0 to Workbook.VirtualColCount-1 do begin
CellPosText := CurSheet.CellPosToText(r, c);
value := varNull;