From 77877e6009e23dfb4a2c0ed61b0d36fa0902e3fe Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 12 Aug 2009 12:55:05 +0000
Subject: [PATCH] fpspreadsheet: Fixes compilation with trunk fpc

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@931 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/fpspreadsheet/uvirtuallayer_ole.pas | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/components/fpspreadsheet/uvirtuallayer_ole.pas b/components/fpspreadsheet/uvirtuallayer_ole.pas
index 98140e722..57fe7a96a 100644
--- a/components/fpspreadsheet/uvirtuallayer_ole.pas
+++ b/components/fpspreadsheet/uvirtuallayer_ole.pas
@@ -76,6 +76,9 @@ type
 
   TVirtualLayer_OLE=class(TVirtualLayer)
   private
+    OpenedStreams: array of TWCBFOpenStream;
+    FFATIndirect: TFATIndirect;
+
     procedure UseParameter(const Parameter);
     procedure SwapEndian_Record(var D: TWCBFStructuredStorageHeader);
     procedure SwapEndian_Record(var D: TWCBFStructuredStorageDirectoryEntry);
@@ -87,9 +90,9 @@ type
     procedure DeleteSIDData(const ASID: SID);
     function CreateNewSID(const AType: etagSTGTY): SID;
     procedure InsertInDirectoryTree(const ASID,AMasterSID: SID);
-    OpenedStreams: array of TWCBFOpenStream;
-    FFATIndirect: TFATIndirect;
   protected
+    FDirectory: array of TWCBFStructuredStorageDirectoryEntry;
+
     function intfGetFreeSpace(const APath: UTF8String): int64; override;
     function intfIsWritableMedia(): Boolean; override;
     function intfFindList(const APath: UTF8String; const AMask: UTF8String): TVirtualLayer_FolderList; override;
@@ -107,8 +110,6 @@ type
     function intfRemoveFolder(const AFolder: UTF8String): Boolean; override;
     //..Not implemented
 
-    FDirectory: array of TWCBFStructuredStorageDirectoryEntry;
-
     procedure AfterConstruction; override;
   public
     procedure Format();