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

fpspreadsheet: Fix uninitialized hidden row state when reading xls.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6638 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-09-09 16:46:39 +00:00
parent 119815fd39
commit 00ea419596
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/fpspreadsheet/source/common/xlscommon.pas
View File

@@ -2504,6 +2504,7 @@ var
xf: Word; xf: Word;
begin begin
rowrec.RowIndex := 0; // to silence the compiler... rowrec.RowIndex := 0; // to silence the compiler...
AStream.ReadBuffer(rowrec, SizeOf(TRowRecord)); AStream.ReadBuffer(rowrec, SizeOf(TRowRecord));
rowrec.RowIndex := WordLEToN(rowrec.RowIndex); rowrec.RowIndex := WordLEToN(rowrec.RowIndex);
flags := DWordLEToN(rowrec.Flags); flags := DWordLEToN(rowrec.Flags);
@@ -2533,8 +2534,7 @@ begin
lRow.FormatIndex := XFToFormatIndex(xf); lRow.FormatIndex := XFToFormatIndex(xf);
{ Row visibility } { Row visibility }
if DWordLEToN(rowRec.Flags) and $00000020 <> 0 then lRow.Hidden := rowRec.Flags and $00000020 <> 0;
lRow.Hidden := true;
// We only create a row record for fpspreadsheet if the row has a // We only create a row record for fpspreadsheet if the row has a
// non-standard height (i.e. different from default row height) or format. // non-standard height (i.e. different from default row height) or format.