Changeset 61 for trunk/IDE/UProjectTemplates.pas

Timestamp:

Jul 17, 2012, 9:15:42 AM (12 years ago)

Author:

chronos

Message:

• Added: Form with text output of executed external producer tool.
• Fixed: Template for new unit mustn't initialize new project but only add unit file to project.
• Added: Project manager file deletion and rename.

File:

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

trunk/IDE/UProjectTemplates.pas

@@ -41 +41 @@
 implementation
 
+resourcestring
+  SConsoleApplication = 'Console application';
+  SUnit = 'Unit';
+  SPackage = 'Package';
+  SGUIApplication = 'GUI application';
+
 { TProjectTemplateUnit }
 
@@ -46 +52 @@
 begin
   inherited Create;
-  Name := 'Unit';
+  Name := SUnit;
+  IsProject := False;
 end;
 
@@ -64 +71 @@
     Add('end.');
   end;
-  Project.MainSource := NewFile;
 end;
 
@@ -72 +78 @@
 begin
   inherited Create;
-  Name := 'Package';
+  Name := SPackage;
+  IsProject := True;
 end;
 
@@ -97 +104 @@
 begin
   inherited Create;
-  Name := 'GUI application';
+  Name := SGUIApplication;
+  IsProject := True;
 end;
 
@@ -128 +136 @@
 begin
   inherited Create;
-  Name := 'Console application';
+  Name := SConsoleApplication;
+  IsProject := True;
 end;