From a2b1693f96b99245860572ab5aae9d30e55647fe Mon Sep 17 00:00:00 2001
From: Joshy <Joshy@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sat, 5 Sep 2009 17:14:45 +0000
Subject: [PATCH] Fixed read bug in Excel files with a ministream bigger than
 1024 (1024 is a casual number, any other could raise the bug).

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@955 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/fpspreadsheet/uvirtuallayer_ole_helpers.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/components/fpspreadsheet/uvirtuallayer_ole_helpers.pas b/components/fpspreadsheet/uvirtuallayer_ole_helpers.pas
index 4acd9aea5..623f94506 100644
--- a/components/fpspreadsheet/uvirtuallayer_ole_helpers.pas
+++ b/components/fpspreadsheet/uvirtuallayer_ole_helpers.pas
@@ -731,6 +731,7 @@ begin
       //Read it from MiniFAT
       AContext.MiniStream.Position:=AContext.Position;
       Result:=AContext.MiniStream.Read(ABuffer^,ASize);
+      AContext.Position:=AContext.MiniStream.Position;
       Exit;
     end;
   end;