| Class TProjectNode (unit ProjNode) |
TComponent
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
function AddFile(const FilePath: string): TFileNode;
function CreateSubProject(const NewName: string): TProjectNode;
procedure Delete;
destructor Destroy;
function FindFileByName(const FilePath: string): TFileNode;
procedure WriteSubProjs;
function GetActive: boolean;
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;
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;