Changeset 61 for trunk/IDE/Forms/UFormProjectNew.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/Forms/UFormProjectNew.pas (modified) (1 diff)

trunk/IDE/Forms/UFormProjectNew.pas

@@ -74 +74 @@
     with Core do
     for I := 0 to ProjectTemplates.Count - 1 do
-    with TProjectTemplate(ProjectTemplates[I]) do begin
+    with TProjectTemplate(ProjectTemplates[I]) do
+    if (not Assigned(Core.Project) and IsProject) or Assigned(Core.Project) then begin
       NewItem := ListView1.Items.Add;
       NewItem.Caption := Name;