paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fpspreadsheet: Read/write merged cells from/to OOXML

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3540 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2014-09-10 16:48:34 +00:00
parent e63ff6ab6c
commit 2040c0c9cd
1 changed files with 46 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
components/fpspreadsheet/xlsxooxml.pas
View File

@ -76,6 +76,7 @@ type
procedure ReadFills(ANode: TDOMNode); procedure ReadFills(ANode: TDOMNode);
procedure ReadFont(ANode: TDOMNode); procedure ReadFont(ANode: TDOMNode);
procedure ReadFonts(ANode: TDOMNode); procedure ReadFonts(ANode: TDOMNode);
procedure ReadMergedCells(ANode: TDOMNode; AWorksheet: TsWorksheet);
procedure ReadNumFormats(ANode: TDOMNode); procedure ReadNumFormats(ANode: TDOMNode);
procedure ReadPalette(ANode: TDOMNode); procedure ReadPalette(ANode: TDOMNode);
procedure ReadRowHeight(ANode: TDOMNode; AWorksheet: TsWorksheet); procedure ReadRowHeight(ANode: TDOMNode; AWorksheet: TsWorksheet);
@ -121,6 +122,7 @@ type
procedure WriteCols(AStream: TStream; AWorksheet: TsWorksheet); procedure WriteCols(AStream: TStream; AWorksheet: TsWorksheet);
procedure WriteFillList(AStream: TStream); procedure WriteFillList(AStream: TStream);
procedure WriteFontList(AStream: TStream); procedure WriteFontList(AStream: TStream);
procedure WriteMergedCells(AStream: TStream; AWorksheet: TsWorksheet);
procedure WriteNumFormatList(AStream: TStream); procedure WriteNumFormatList(AStream: TStream);
procedure WritePalette(AStream: TStream); procedure WritePalette(AStream: TStream);
procedure WriteSheetData(AStream: TStream; AWorksheet: TsWorksheet); procedure WriteSheetData(AStream: TStream; AWorksheet: TsWorksheet);
@ -1071,6 +1073,29 @@ begin
FWorkbook.DeleteFont(4); FWorkbook.DeleteFont(4);
end; end;
procedure TsSpreadOOXMLReader.ReadMergedCells(ANode: TDOMNode;
AWorksheet: TsWorksheet);
var
node: TDOMNode;
nodename: String;
s: String;
begin
if Assigned(ANode) then begin
node := ANode.FirstChild;
while Assigned(node) do
begin
nodename := node.NodeName;
if nodename = 'mergeCell' then begin
s := GetAttrValue(node, 'ref');
if s <> '' then
AWorksheet.MergeCells(s);
end;
node := node.NextSibling;
end;
end;
end;
procedure TsSpreadOOXMLReader.ReadNumFormats(ANode: TDOMNode); procedure TsSpreadOOXMLReader.ReadNumFormats(ANode: TDOMNode);
var var
node: TDOMNode; node: TDOMNode;
@ -1468,6 +1493,7 @@ begin
ReadSheetFormatPr(Doc.DocumentElement.FindNode('sheetFormatPr'), FWorksheet); ReadSheetFormatPr(Doc.DocumentElement.FindNode('sheetFormatPr'), FWorksheet);
ReadCols(Doc.DocumentElement.FindNode('cols'), FWorksheet); ReadCols(Doc.DocumentElement.FindNode('cols'), FWorksheet);
ReadWorksheet(Doc.DocumentElement.FindNode('sheetData'), FWorksheet); ReadWorksheet(Doc.DocumentElement.FindNode('sheetData'), FWorksheet);
ReadMergedCells(Doc.DocumentElement.FindNode('mergeCells'), FWorksheet);
FreeAndNil(Doc); FreeAndNil(Doc);
end; end;
@ -1849,6 +1875,25 @@ begin
'</fonts>'); '</fonts>');
end; end;
procedure TsSpreadOOXMLWriter.WriteMergedCells(AStream: TStream;
AWorksheet: TsWorksheet);
var
rng: TsCellRangeArray;
i: Integer;
begin
AWorksheet.GetMergedCellRanges(rng);
if Length(rng) = 0 then
exit;
AppendToStream(AStream, Format(
'<mergeCells count="%d">', [Length(rng)]) );
for i:=0 to Length(rng)-1 do begin
AppendToStream(AStream, Format(
'<mergeCell ref="%s" />', [GetCellRangeString(rng[i].Row1, rng[i].Col1, rng[i].Row2, rng[i].Col2)]));
end;
AppendToStream(AStream,
'</mergeCells>');
end;
{ Writes all number formats to the stream. Saving starts at the item with the { Writes all number formats to the stream. Saving starts at the item with the
FirstFormatIndexInFile. } FirstFormatIndexInFile. }
procedure TsSpreadOOXMLWriter.WriteNumFormatList(AStream: TStream); procedure TsSpreadOOXMLWriter.WriteNumFormatList(AStream: TStream);
@ -2341,6 +2386,7 @@ begin
WriteSheetViews(FSSheets[FCurSheetNum], AWorksheet); WriteSheetViews(FSSheets[FCurSheetNum], AWorksheet);
WriteCols(FSSheets[FCurSheetNum], AWorksheet); WriteCols(FSSheets[FCurSheetNum], AWorksheet);
WriteSheetData(FSSheets[FCurSheetNum], AWorksheet); WriteSheetData(FSSheets[FCurSheetNum], AWorksheet);
WriteMergedCells(FSSheets[FCurSheetNum], AWorksheet);
// Footer // Footer
AppendToStream(FSSheets[FCurSheetNum], AppendToStream(FSSheets[FCurSheetNum],