Changeset 48 for trunk/IDE/Forms/UFormMain.pas

Timestamp:

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

Author:

chronos

Message:

• Added: New project and files templates.

File:

• trunk/IDE/Forms/UFormMain.pas (modified) (9 diffs)

trunk/IDE/Forms/UFormMain.pas

@@ -141 +141 @@
   private
     LastOpenedFiles: TLastOpenedList;
+    procedure ProjectTemplatesInit;
     procedure CompilerDebugLog(Text: string);
     procedure MenuItemTargetClick(Sender: TObject);
@@ -153 +154 @@
     LogParsing: Boolean;
     Project: TProject;
+    ProjectTemplates: TProjectTemplateList;
     TargetProject: TProject;
     Compiler: TCustomCompiler;
@@ -169 +171 @@
 uses
   UFormMessages, UFormSourceCode, UFormProject, UCommon, UFormAbout, UFormOptions,
-  UFormTargets, UTarget, UAnalyzer, UProducer, UExecutor;
+  UFormTargets, UTarget, UAnalyzer, UProducer, UExecutor, UFormProjectNew,
+  UProjectTemplates;
 
 resourcestring
@@ -239 +242 @@
       Compiler.Compile;
     end;
-    //FormProject.TreeViewProjectChange(Self, FormProject.TreeViewProject.Selected);
+    FormProject.TreeViewProjectChange(Self, FormProject.TreeViewProject.Selected);
     FormMessages.Reload;
 end;
@@ -483 +486 @@
   Compiler := TCustomCompiler.Create;
   Project := TProject.Create;
+  ProjectTemplates := TProjectTemplateList.Create;
   TargetProject := TProject.Create;
   LastOpenedFiles := TLastOpenedList.Create;
@@ -491 +495 @@
 procedure TFormMain.FormDestroy(Sender: TObject);
 begin
+  ProjectTemplates.Free;
   LastOpenedFiles.Free;
   TargetProject.Free;
@@ -497 +502 @@
 end;
 
+procedure TFormMain.ProjectTemplatesInit;
+begin
+  ProjectTemplates.AddTemplate(TProjectTemplateConsoleApp.Create);
+  ProjectTemplates.AddTemplate(TProjectTemplateGUIApp.Create);
+  ProjectTemplates.AddTemplate(TProjectTemplatePackage.Create);
+  ProjectTemplates.AddTemplate(TProjectTemplateUnit.Create);
+end;
+
 procedure TFormMain.CompilerDebugLog(Text: string);
 begin
@@ -514 +527 @@
   LoadFromRegistry(RegistryRootKey, ApplicationInfo.RegistryKey);
   DockInit;
+  ProjectTemplatesInit;
 
   if ReopenLastOpenedFile and (LastOpenedFiles.Count > 0) then begin
@@ -560 +574 @@
   NewFile: TProjectFile;
 begin
-  AProjectClose.Execute;
-  Project.Active := True;
-  Project.FileName := SNewProject;
-  Project.Files.AddFile('Unit1.pas');
+  if FormProjectNew.ShowModal = mrOk then begin
+    if Assigned(FormProjectNew.ListView1.Selected) then
+      TProjectTemplate(FormProjectNew.ListView1.Selected.Data).InitProject(Project);
+  end;
   UpdateInterface;
 end;