| Class TFileNode (unit ProjNode) |
TComponent
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure AddCreatedHistItem;
procedure AddVersion(const FilePath: string; var Replaced: boolean);
procedure Delete;
procedure DeleteHistory(hi: THistoryItem);
function GetFile(hi: THistoryItem): TMemoryStream;
function GetHist(Index: integer): THistoryItem;
function GetLastHistWithFile: integer;
procedure WriteHistList;
function CompareWithLatestFile(ms: TMemoryStream): boolean;
function GetActive: boolean;
procedure ReadHistList;
procedure SetActive(b: boolean);
function StgName: string;| Properties |
property CheckedOut : boolean
property CheckOutUser : string
property Created : TDateTime
property FileName : string
property Modified : TDateTime
property NumVersions : integer
property StgID : integer
property Active : boolean| Events |
| Variables |
DataSize : integer;
Hist : TDataModule;
MetaSize : integer;
ParProj : TProjectNode;
Storage : IStorage;
Fco : boolean;
Fcou : string;
Fcr : TDateTime;
Ffn : string;
Fmd : TDateTime;
FNumVer : integer;
Fsi : integer;
NextID : integer;| Constructors |
constructor Create(AOwner: TComponent);******************************************************************** TFileNode
| Functions |
procedure AddCreatedHistItem;
procedure AddVersion(const FilePath: string; var Replaced: boolean);
procedure Delete;
procedure DeleteHistory(hi: THistoryItem);
function GetFile(hi: THistoryItem): TMemoryStream;WriteSubProjs must be called later
function GetHist(Index: integer): THistoryItem;
function GetLastHistWithFile: integer;
procedure WriteHistList;
function CompareWithLatestFile(ms: TMemoryStream): boolean;Returns TRUE if they match
function GetActive: boolean;
procedure ReadHistList;Copy the file into a Mem buffer
procedure SetActive(b: boolean);
function StgName: string;| Properties |
property CheckedOut : boolean
property CheckOutUser : string
property Created : TDateTime
property FileName : string
property Modified : TDateTime
property NumVersions : integer
property StgID : integer
property Active : boolean| Events |
| Variables |
DataSize : integer;
Hist : TDataModule;
MetaSize : integer;
ParProj : TProjectNode;
Storage : IStorage;
Fco : boolean;
Fcou : string;
Fcr : TDateTime;
Ffn : string;
Fmd : TDateTime;
FNumVer : integer;
Fsi : integer;
NextID : integer;