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;
begin
rowrec.RowIndex := 0; // to silence the compiler...
AStream.ReadBuffer(rowrec, SizeOf(TRowRecord));
rowrec.RowIndex := WordLEToN(rowrec.RowIndex);
flags := DWordLEToN(rowrec.Flags);
@ -2533,8 +2534,7 @@ begin
lRow.FormatIndex := XFToFormatIndex(xf);
{ Row visibility }
if DWordLEToN(rowRec.Flags) and $00000020 <> 0 then
lRow.Hidden := true;
lRow.Hidden := rowRec.Flags and $00000020 <> 0;
// 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.