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

FPSpreadsheet: Improves the comments

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1658 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2011-05-30 07:03:56 +00:00
parent a267e89ae8
commit e23fbc9f1d
3 changed files with 26 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/fpspreadsheet/fpsopendocument.pas
View File

@ -619,6 +619,12 @@ begin
</table:table-cell>} </table:table-cell>}
end; end;
{
Writes a cell with text content
The UTF8 Text needs to be converted, because some chars are invalid in XML
See bug with patch 19422
}
procedure TsSpreadOpenDocWriter.WriteLabel(AStream: TStream; const ARow, procedure TsSpreadOpenDocWriter.WriteLabel(AStream: TStream; const ARow,
ACol: Word; const AValue: string; ACell: PCell); ACol: Word; const AValue: string; ACell: PCell);
var var

18
components/fpspreadsheet/xlsbiff5.pas
View File

@ -552,14 +552,16 @@ begin
AStream.WriteWord(WordToLE(lCodepage)); AStream.WriteWord(WordToLE(lCodepage));
end; end;
{******************************************************************* {
* TsSpreadBIFF5Writer.WriteIndex () Writes an Excel 5 DIMENSIONS record
*
* DESCRIPTION: Writes an Excel 5 DIMENSIONS record nm = (rl - rf - 1) / 32 + 1 (using integer division)
*
* nm = (rl - rf - 1) / 32 + 1 (using integer division) Excel, OpenOffice and FPSpreadsheet ignore the dimensions written in this record,
* but some other applications really use them, so they need to be correct.
*******************************************************************}
See bug 18886: excel5 files are truncated when imported
}
procedure TsSpreadBIFF5Writer.WriteDimensions(AStream: TStream; AWorksheet: TsWorksheet); procedure TsSpreadBIFF5Writer.WriteDimensions(AStream: TStream; AWorksheet: TsWorksheet);
var var
lLastCol, lLastRow: Word; lLastCol, lLastRow: Word;

18
components/fpspreadsheet/xlsbiff8.pas
View File

@ -610,14 +610,16 @@ begin
AStream.WriteBuffer(WideStringToLE(WideSheetName)[1], Len * Sizeof(WideChar)); AStream.WriteBuffer(WideStringToLE(WideSheetName)[1], Len * Sizeof(WideChar));
end; end;
{******************************************************************* {
* TsSpreadBIFF8Writer.WriteIndex () Writes an Excel 8 DIMENSIONS record
*
* DESCRIPTION: Writes an Excel 8 DIMENSIONS record nm = (rl - rf - 1) / 32 + 1 (using integer division)
*
* nm = (rl - rf - 1) / 32 + 1 (using integer division) Excel, OpenOffice and FPSpreadsheet ignore the dimensions written in this record,
* but some other applications really use them, so they need to be correct.
*******************************************************************}
See bug 18886: excel5 files are truncated when imported
}
procedure TsSpreadBIFF8Writer.WriteDimensions(AStream: TStream; AWorksheet: TsWorksheet); procedure TsSpreadBIFF8Writer.WriteDimensions(AStream: TStream; AWorksheet: TsWorksheet);
var var
lLastCol: Word; lLastCol: Word;