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

fpspreadsheet: Now OpenOffice can open the generated ooxml

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1866 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2011-08-29 14:57:29 +00:00
parent feb164c7c0
commit 02caee546b
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/fpspreadsheet/xlsxooxml.pas
View File

@ -137,7 +137,7 @@ begin
FRelsRels := FRelsRels :=
XML_HEADER + LineEnding + XML_HEADER + LineEnding +
'<Relationships xmlns="' + SCHEMAS_RELS + '">' + LineEnding + '<Relationships xmlns="' + SCHEMAS_RELS + '">' + LineEnding +
'<Relationship Type="' + SCHEMAS_DOCUMENT + '" Target="/xl/workbook.xml" Id="rId1" />' + LineEnding + '<Relationship Type="' + SCHEMAS_DOCUMENT + '" Target="xl/workbook.xml" Id="rId1" />' + LineEnding +
'</Relationships>'; '</Relationships>';
FStyles := FStyles :=
@ -188,13 +188,13 @@ begin
FWorkbookRels := FWorkbookRels :=
XML_HEADER + LineEnding + XML_HEADER + LineEnding +
'<Relationships xmlns="' + SCHEMAS_RELS + '">' + LineEnding + '<Relationships xmlns="' + SCHEMAS_RELS + '">' + LineEnding +
'<Relationship Type="' + SCHEMAS_STYLES + '" Target="/xl/styles.xml" Id="rId1" />' + LineEnding + '<Relationship Type="' + SCHEMAS_STYLES + '" Target="xl/styles.xml" Id="rId1" />' + LineEnding +
'<Relationship Type="' + SCHEMAS_STRINGS + '" Target="/xl/sharedStrings.xml" Id="rId2" />' + LineEnding; '<Relationship Type="' + SCHEMAS_STRINGS + '" Target="xl/sharedStrings.xml" Id="rId2" />' + LineEnding;
for i := 1 to AData.GetWorksheetCount do for i := 1 to AData.GetWorksheetCount do
begin begin
FWorkbookRels := FWorkbookRels + FWorkbookRels := FWorkbookRels +
Format('<Relationship Type="%s" Target="/xl/worksheets/sheet%d.xml" Id="rId%d" />', [SCHEMAS_WORKSHEET, i, i+2]) + LineEnding; Format('<Relationship Type="%s" Target="xl/worksheets/sheet%d.xml" Id="rId%d" />', [SCHEMAS_WORKSHEET, i, i+2]) + LineEnding;
end; end;
FWorkbookRels := FWorkbookRels + FWorkbookRels := FWorkbookRels +