Changeset 54 for trunk/IDE/UProjectTemplates.pas

Timestamp:

Jun 26, 2012, 7:41:11 AM (12 years ago)

Author:

chronos

Message:

• Modified: Project instance is now freed in closed state.
• Added: Toolbar button Open now provide dropdown list of recent opened projects.

File:

• trunk/IDE/UProjectTemplates.pas (modified) (8 diffs)

trunk/IDE/UProjectTemplates.pas

@@ -14 +14 @@
   TProjectTemplateConsoleApp = class(TProjectTemplate)
     constructor Create; override;
-    procedure InitProject(Project: TProject); override;
+    procedure InitProject(var Project: TProject); override;
   end;
 
@@ -21 +21 @@
   TProjectTemplateGUIApp = class(TProjectTemplate)
     constructor Create; override;
-    procedure InitProject(Project: TProject); override;
+    procedure InitProject(var Project: TProject); override;
   end;
 
@@ -28 +28 @@
   TProjectTemplatePackage = class(TProjectTemplate)
     constructor Create; override;
-    procedure InitProject(Project: TProject); override;
+    procedure InitProject(var Project: TProject); override;
   end;
 
@@ -35 +35 @@
   TProjectTemplateUnit = class(TProjectTemplate)
     constructor Create; override;
-    procedure InitProject(Project: TProject); override;
+    procedure InitProject(var Project: TProject); override;
   end;
 
@@ -49 +49 @@
 end;
 
-procedure TProjectTemplateUnit.InitProject(Project: TProject);
+procedure TProjectTemplateUnit.InitProject(var Project: TProject);
 var
   NewFile: TProjectFile;
@@ -75 +75 @@
 end;
 
-procedure TProjectTemplatePackage.InitProject(Project: TProject);
+procedure TProjectTemplatePackage.InitProject(var Project: TProject);
 var
   NewFile: TProjectFile;
@@ -100 +100 @@
 end;
 
-procedure TProjectTemplateGUIApp.InitProject(Project: TProject);
+procedure TProjectTemplateGUIApp.InitProject(var Project: TProject);
 var
   NewFile: TProjectFile;
@@ -131 +131 @@
 end;
 
-procedure TProjectTemplateConsoleApp.InitProject(Project: TProject);
+procedure TProjectTemplateConsoleApp.InitProject(var Project: TProject);
 var
   NewFile: TProjectFile;