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

Fixes the bug related to unable to open the xls files in Windows 7.

Browse Source 
More information here: http://forum.lazarus.freepascal.org/index.php/topic,16716.0.html

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2434 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
Joshy
2012-05-15 17:47:21 +00:00
parent 50325e7a18
commit 1149c237b0
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/fpspreadsheet/uvirtuallayer_ole_helpers.pas
View File

@ -438,8 +438,8 @@ begin
if ASector<>FFATCache.Sector then begin if ASector<>FFATCache.Sector then begin
if FFATCache.Dirty then begin if FFATCache.Dirty then begin
//Write the dirty cached FAT sector //Write the dirty cached FAT sector
if FHeader._csectFat<FFATCache.Sector then begin if FHeader._csectFat<(FFATCache.Sector div FFATEntriesPerSect)+1 then begin
FHeader._csectFat:=FFATCache.Sector; FHeader._csectFat:=(FFATCache.Sector div FFATEntriesPerSect)+1;
end; end;
iDIFFATNToLE(FFATCache.Cache); iDIFFATNToLE(FFATCache.Cache);
WriteSector(FFATCache.Sector,FFATCache.Cache); WriteSector(FFATCache.Sector,FFATCache.Cache);
@ -455,8 +455,8 @@ begin
if ASector=FFATCache.Sector then begin if ASector=FFATCache.Sector then begin
FFATCache.Dirty:=true; FFATCache.Dirty:=true;
end else begin end else begin
if FHeader._csectFat<FFATCache.Sector then begin if FHeader._csectFat<(FFATCache.Sector div FFATEntriesPerSect)+1 then begin
FHeader._csectFat:=FFATCache.Sector; FHeader._csectFat:=(FFATCache.Sector div FFATEntriesPerSect)+1;
end; end;
iDIFFATNToLE(FFATCache.Cache); iDIFFATNToLE(FFATCache.Cache);
//Writes the data //Writes the data