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

fpspreadsheet: Write row format to xlsx. Update colwidth test case.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5255 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-10-09 21:19:19 +00:00
parent 14c57c73bc
commit c3ee25b99e
2 changed files with 23 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/fpspreadsheet/tests/formattests.pas
View File

@ -1105,11 +1105,7 @@ begin
try
MyWorkSheet:= MyWorkBook.AddWorksheet(ColWidthSheet);
for Col := Low(SollColWidths) to High(SollColWidths) do
begin
lCol.Width := SollColWidths[Col];
//MyWorksheet.WriteNumber(0, Col, 1);
MyWorksheet.WriteColInfo(Col, lCol);
end;
MyWorksheet.WriteColWidth(Col, SollColWidths[Col], suChars);
if AFormat = sfOpenDocument then
// In ODS empty columns are ignored due to a workaround for a
// LO/OO import error for xlsx files. --> add dummy cells
@ -1136,7 +1132,7 @@ begin
lpCol := MyWorksheet.GetCol(Col);
if lpCol = nil then
fail('Error in test code. Failed to return saved column width');
ActualColWidth := lpCol^.Width;
ActualColWidth := MyWorkbook.ConvertUnits(lpCol^.Width, MyWorkbook.Units, suChars);
if abs(SollColWidths[Col] - ActualColWidth) > 1E-2 then // take rounding errors into account
CheckEquals(SollColWidths[Col], ActualColWidth,
'Test saved colwidth mismatch, column '+ColNotation(MyWorkSheet,Col));

35
components/fpspreadsheet/xlsxooxml.pas
View File

@ -2970,7 +2970,7 @@ var
lCell: TCell;
styleCell: PCell;
cell: PCell;
rh: String;
s: String;
begin
AppendToStream(AStream,
'<sheetData>');
@ -2983,15 +2983,18 @@ begin
then begin
for r := 0 to r2 do begin
row := AWorksheet.FindRow(r);
s := '';
if row <> nil then begin
rh := Format(' ht="%.2f"',
s := s + Format(' ht="%.2f"',
[FWorkbook.ConvertUnits(row^.Height, FWorkbook.Units, suPoints)],
FPointSeparatorSettings);
if row^.RowHeightType = rhtCustom then rh := rh + ' customHeight="1"';
end else
rh := '';
if row^.RowHeightType = rhtCustom then
s := s + ' customHeight="1"';
if row^.FormatIndex > 0 then
s := s + Format(' s="%d" customFormat="1"', [row^.FormatIndex]);
end;
AppendToStream(AStream, Format(
'<row r="%d" spans="1:%d"%s>', [r+1, AWorksheet.VirtualColCount, rh]));
'<row r="%d" spans="1:%d"%s>', [r+1, AWorksheet.VirtualColCount, s]));
for c := 0 to c2 do begin
lCell.Row := r; // to silence a compiler hint
InitCell(lCell);
@ -3041,24 +3044,28 @@ begin
begin
// The cells need to be written in order, row by row, cell by cell
for r := r1 to r2 do begin
// If the row has a custom height add this value to the <row> specification
// If the row has a custom or auto height and/or custom format
// then add them to the <row> specification
row := AWorksheet.FindRow(r);
s := '';
if row <> nil then begin
rh := Format(' ht="%.2f"',
s := s + Format(' ht="%.2f"',
[FWorkbook.ConvertUnits(row^.Height, FWorkbook.Units, suPoints)],
FPointSeparatorSettings);
if row^.RowHeightType = rhtCustom then rh := rh + ' customHeight="1"';
end else
rh := '';
if row^.RowHeightType = rhtCustom then
s := s + ' customHeight="1"';
if row^.FormatIndex > 0 then
s := s + Format(' s="%d" customFormat="1"', [row^.FormatIndex]);
end;
AppendToStream(AStream, Format(
'<row r="%d" spans="%d:%d"%s>', [r+1, c1+1, c2+1, rh]));
'<row r="%d" spans="%d:%d"%s>', [r+1, c1+1, c2+1, s]));
// Write cells belonging to this row.
{ // Strange: the RowEnumerator is very slow here... ?!
{
// Strange: the RowEnumerator is very slow here... ?!
for cell in AWorksheet.Cells.GetRowEnumerator(r) do
WriteCellToStream(AStream, cell);
}
for c := c1 to c2 do begin
cell := AWorksheet.FindCell(r, c);
if Assigned(cell) then