Changeset 48 for trunk/IDE/Forms

Timestamp:

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

Author:

chronos

Message:

• Added: New project and files templates.

Location:

trunk/IDE/Forms

Files:

• UFormMain.lfm (modified) (1 diff)
• UFormMain.lrt (modified) (1 diff)
• UFormMain.pas (modified) (9 diffs)
• UFormProjectNew.lfm (added)
• UFormProjectNew.lrt (added)
• UFormProjectNew.pas (added)

trunk/IDE/Forms/UFormMain.lfm

@@ -629 +629 @@
     object AProjectNew: TAction
       Category = 'Project'
-      Caption = 'New'
+      Caption = 'New...'
       Hint = 'Create new project'
       ImageIndex = 10

trunk/IDE/Forms/UFormMain.lrt

@@ -16 +16 @@
 TFORMMAIN.MENUITEM22.CAPTION=-
 TFORMMAIN.MENUITEM9.CAPTION=Help
-TFORMMAIN.APROJECTNEW.CAPTION=New
+TFORMMAIN.APROJECTNEW.CAPTION=New...
 TFORMMAIN.APROJECTNEW.HINT=Create new project
 TFORMMAIN.APROJECTOPEN.CAPTION=Open...

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;