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

fpspreadsheet: Fixes compilation with trunk fpc

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@931 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2009-08-12 12:55:05 +00:00
parent e25295e088
commit 77877e6009
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
components/fpspreadsheet/uvirtuallayer_ole.pas
View File

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