Changeset 54 for trunk/IDE/UCore.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/UCore.pas (modified) (3 diffs)

trunk/IDE/UCore.pas

@@ -36 +36 @@
     procedure ProjectTemplatesInit;
     procedure ProjectOpen(FileName: string);
+    procedure ProjectNew;
     procedure CompilerDebugLog(Text: string);
     procedure LoadFromRegistry(Root: HKEY; Key: string);
@@ -55 +56 @@
 procedure TCore.ProjectOpen(FileName: string);
 begin
-  Project.Active := True;
+  ProjectNew;
   Project.LoadFromFile(FileName);
   LastOpenedFiles.AddItem(FileName);
   FormMain.UpdateInterface;
+end;
+
+procedure TCore.ProjectNew;
+begin
+  if Assigned(Project) then FreeAndNil(Project);
+  Project := TProject.Create;
+  Project.FileName := SNewProject;
 end;
 
@@ -97 +105 @@
 begin
   LastOpenedFiles.LoadToMenuItem(FormMain.MenuItemOpenRecent,
+    FormMain.OpenRecentClick);
+  LastOpenedFiles.LoadToMenuItem(FormMain.PopupMenu1.Items,
     FormMain.OpenRecentClick);
 end;