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

fpspreadsheet: Fix xlsx writing column widths

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4238 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2015-08-03 14:18:23 +00:00
parent c5677621dc
commit 126fe87ad1
1 changed files with 10 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
components/fpspreadsheet/xlsxooxml.pas
View File

@ -2419,9 +2419,12 @@ procedure TsSpreadOOXMLWriter.WriteCols(AStream: TStream; AWorksheet: TsWorkshee
var
col: PCol;
c: Integer;
w: Single;
begin
{
if AWorksheet.Cols.Count = 0 then
exit;
}
AppendToStream(AStream,
'<cols>');
@ -2429,10 +2432,13 @@ begin
for c:=0 to AWorksheet.GetLastColIndex do begin
col := AWorksheet.FindCol(c);
if col <> nil then
AppendToStream(AStream, Format(
'<col min="%d" max="%d" width="%g" customWidth="1" />',
[c+1, c+1, col^.Width], FPointSeparatorSettings)
);
w := col^.Width
else
w := AWorksheet.DefaultColWidth;
AppendToStream(AStream, Format(
'<col min="%d" max="%d" width="%g" customWidth="1" />',
[c+1, c+1, w], FPointSeparatorSettings)
);
end;
AppendToStream(AStream,