Class TProjectNode (unit ProjNode)

Inherits from

TComponent

Constructors


constructor Create(AOwner: TComponent);

******************************************************************** TProjectNode


Functions

function AddFile(const FilePath: string): TFileNode;


function CreateSubProject(const NewName: string): TProjectNode;


procedure Delete;


destructor Destroy;


function FindFileByName(const FilePath: string): TFileNode;

This should really just write the FileList

procedure WriteSubProjs;


function GetActive: boolean;

This adds it as a child to SubProjs

function GetLocalPath: string;


procedure ReadSubProjs;


procedure SetActive(b: boolean);


procedure SetLocalPath(const s: string);


function StgName: string;


Properties

property LocalPath : string


property PathList : TStrings


property ProjName : string


property StgID : integer


property Active : boolean


Events

Variables

FileList : TDataModule;

Owns a list of TProjectNodes

ParProj : TProjectNode;


Storage : IStorage;


SubProjs : TDataModule;


tn : TTreeNode;


Fpn : string;


Fsi : integer;


LocPathList : TStrings;


NextID : integer;



Constructors


constructor Create(AOwner: TComponent);

******************************************************************** TProjectNode


Functions


function AddFile(const FilePath: string): TFileNode;


function CreateSubProject(const NewName: string): TProjectNode;


procedure Delete;


destructor Destroy;


function FindFileByName(const FilePath: string): TFileNode;

This should really just write the FileList


procedure WriteSubProjs;


function GetActive: boolean;

This adds it as a child to SubProjs


function GetLocalPath: string;


procedure ReadSubProjs;


procedure SetActive(b: boolean);


procedure SetLocalPath(const s: string);


function StgName: string;


Properties


property LocalPath : string


property PathList : TStrings


property ProjName : string


property StgID : integer


property Active : boolean


Events


Variables


FileList : TDataModule;

Owns a list of TProjectNodes


ParProj : TProjectNode;


Storage : IStorage;


SubProjs : TDataModule;


tn : TTreeNode;


Fpn : string;


Fsi : integer;


LocPathList : TStrings;


NextID : integer;