Class TProjectNode (unit ProjNode) |
Inherits from
TComponent
constructor Create(AOwner: TComponent);
- ******************************************************************** TProjectNode
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;
property LocalPath : string
property PathList : TStrings
property ProjName : string
property StgID : integer
property Active : boolean
FileList : TDataModule;
Owns a list of TProjectNodes
ParProj : TProjectNode;
Storage : IStorage;
SubProjs : TDataModule;
tn : TTreeNode;
Fpn : string;
Fsi : integer;
LocPathList : TStrings;
NextID : integer;
constructor Create(AOwner: TComponent);
******************************************************************** TProjectNode
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;
property LocalPath : string
property PathList : TStrings
property ProjName : string
property StgID : integer
property Active : boolean
FileList : TDataModule;
Owns a list of TProjectNodes
ParProj : TProjectNode;
Storage : IStorage;
SubProjs : TDataModule;
tn : TTreeNode;
Fpn : string;
Fsi : integer;
LocPathList : TStrings;
NextID : integer;