Changeset 75 for trunk/IDE/Forms/FormProjectNew.pas

Timestamp:

Jun 4, 2024, 12:22:49 AM (4 months ago)

Author:

chronos

Message:

• Modified: Removed U prefix from unit names.
• Modified: Updated Common package.

File:

• trunk/IDE/Forms/FormProjectNew.pas (moved) (moved from trunk/IDE/Forms/UFormProjectNew.pas ) (4 diffs)

trunk/IDE/Forms/FormProjectNew.pas

@@ -1 @@
-unit UFormProjectNew;
-
-{$mode delphi}
+unit FormProjectNew;
 
 interface
@@ -23 +21 @@
     procedure ListView1SelectItem(Sender: TObject; Item: TListItem;
       Selected: Boolean);
-  private
-    { private declarations }
   public
     procedure UpdateInterface;
   end;
-
-var
-  FormProjectNew: TFormProjectNew;
 
 
@@ -36 +29 @@
 
 uses
-  UCore, UFormMain, UProject;
+  Core, FormMain, Project;
 
 {$R *.lfm}
@@ -72 +65 @@
     ListView1.BeginUpdate;
     ListView1.Items.Clear;
-    with Core do
+    with Core.Core do
     for I := 0 to ProjectTemplates.Count - 1 do
     with TProjectTemplate(ProjectTemplates[I]) do
-    if (not Assigned(Core.Project) and IsProject) or Assigned(Core.Project) then begin
+    if (not Assigned(Core.Core.Project) and IsProject) or
+    Assigned(Core.Core.Project) then begin
       NewItem := ListView1.Items.Add;
       NewItem.Caption := Name;