Changeset 48 for trunk/IDE/UProject.pas

Timestamp:

Mar 4, 2012, 4:28:12 PM (13 years ago)

Author:

chronos

Message:

• Added: New project and files templates.

File:

• trunk/IDE/UProject.pas (modified) (5 diffs)

trunk/IDE/UProject.pas

@@ -65 +65 @@
     procedure LoadFromXMLNode(Node: TDOMNode);
     function SearchFile(FileName: string): TProjectFile;
-    procedure AddFile(FileName: string);
+    function AddFile(FileName: string): TProjectFile;
   end;
 
@@ -91 +91 @@
   end;
 
+  { TProjectTemplate }
+
+  TProjectTemplate = class
+    Name: string;
+    Description: TStringList;
+    procedure InitProject(Project: TProject); virtual;
+    constructor Create; virtual;
+    destructor Destroy; override;
+  end;
+
+  { TProjectTemplateList }
+
+  TProjectTemplateList = class(TListObject)
+    procedure AddTemplate(Template: TProjectTemplate);
+  end;
+
+
 implementation
 
+resourcestring
+  SNewProject = 'New project';
+
+{ TProjectTemplateList }
+
+procedure TProjectTemplateList.AddTemplate(Template: TProjectTemplate);
+begin
+  Add(Template);
+end;
+
+{ TProjectTemplate }
+
+procedure TProjectTemplate.InitProject(Project: TProject);
+begin
+  Project.Active := False;
+  Project.Active := True;
+  Project.FileName := SNewProject;
+end;
+
+constructor TProjectTemplate.Create;
+begin
+  Description := TStringList.Create;
+end;
+
+destructor TProjectTemplate.Destroy;
+begin
+  Description.Free;
+  inherited Destroy;
+end;
+
 { TProjectPackageList }
 
@@ -114 +161 @@
 
 end;
-
-
 
 { TProjectGroup }
@@ -184 +229 @@
 end;
 
-procedure TProjectFileList.AddFile(FileName: string);
-var
-  NewFile: TProjectFile;
-begin
-  NewFile := TProjectFile(AddNew(TProjectFile.Create));
-  NewFile.Parent := Parent;
-  NewFile.FileName := FileName;
+function TProjectFileList.AddFile(FileName: string): TProjectFile;
+begin
+  Result := TProjectFile(AddNew(TProjectFile.Create));
+  Result.Parent := Parent;
+  Result.FileName := FileName;
 end;
 
@@ -234 +277 @@
       FileName := UTF8Encode(NewNode.TextContent);
   end;
-  if FileExistsUTF8(FileName) then Load;
+  if FileExistsUTF8(ExtractFileDir(Parent.FileName) + DirectorySeparator + FileName) then Load;
 end;