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

fpspreadsheet: Fix writing incorrect biff formats (broken in r4353)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4366 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2015-10-04 12:37:09 +00:00
parent e123fa9714
commit c10dec52ea
1 changed files with 29 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
components/fpspreadsheet/xlscommon.pas
View File

@ -3771,7 +3771,7 @@ procedure TsSpreadBIFFWriter.WriteSELECTION(AStream: TStream;
ASheet: TsWorksheet; APane: Byte);
var
activeCellRow, activeCellCol: Word;
i: Integer;
i, n: Integer;
sel: TsCellRange;
begin
if FWorkbook.ActiveWorksheet <> nil then
@ -3811,27 +3811,43 @@ begin
AStream.WriteWord(WordToLE(activeCellCol));
{ Index into the following cell range list to the entry that contains the active cell }
i := ASheet.GetSelectionRangeIndexOfActiveCell;
i := Max(0, ASheet.GetSelectionRangeIndexOfActiveCell);
AStream.WriteWord(WordToLE(i));
{ Cell range array }
{ Count of cell ranges }
AStream.WriteWord(WordToLE(ASheet.GetSelectionCount));
n := ASheet.GetSelectionCount;
// Case 1: no selection
if n = 0 then
begin
{ Count of cell ranges }
AStream.WriteWord(WordToLE(1));
{ Index to first and last row - are the same here }
AStream.WriteWord(WordTOLE(activeCellRow));
AStream.WriteWord(WordTOLE(activeCellRow));
{ Index to first and last column - they are the same here again. }
{ Note: BIFF8 writes bytes here! This is ok because BIFF supports only 256 columns}
AStream.WriteByte(activeCellCol);
AStream.WriteByte(activeCellCol);
end else
// Case 2: Selections available
begin
AStream.WriteWord(WordToLE(n));
{ Write each selected cell range }
for i := 0 to ASheet.GetSelectionCount-1 do
for i := 0 to n-1 do
begin
sel := ASheet.GetSelection[i];
{ Index to first and last row of this selected range }
AStream.WriteWord(WordToLE(sel.Row1));
AStream.WriteWord(WordToLE(sel.Row2));
{ Index to first and last column - they are the same here again. }
{ Index to first and last column }
{ Note: Even BIFF8 writes bytes here! This is ok because BIFF supports only 256 columns }
AStream.WriteByte(sel.Col1);
AStream.WriteByte(sel.Col2);
end;
end;
end;
procedure TsSpreadBIFFWriter.WriteSelections(AStream: TStream;
ASheet: TsWorksheet);