Changeset 57 for trunk/IDE/UCore.pas

Timestamp:

Jul 16, 2012, 4:11:47 PM (12 years ago)

Author:

chronos

Message:

• Modified: Testing interpretter.

File:

• trunk/IDE/UCore.pas (modified) (3 diffs)

trunk/IDE/UCore.pas

@@ -28 +28 @@
     procedure LastOpenedFilesChange(Sender: TObject);
   private
+    procedure ProjectChange(Sender: TObject);
   public
     ReopenLastOpenedFile: Boolean;
@@ -68 +69 @@
   Project := TProject.Create;
   Project.FileName := SNewProject;
+  Project.OnChange := ProjectChange;
 end;
 
@@ -109 +111 @@
   LastOpenedFiles.LoadToMenuItem(FormMain.PopupMenu1.Items,
     FormMain.OpenRecentClick);
+end;
+
+procedure TCore.ProjectChange(Sender: TObject);
+begin
+  FormMain.UpdateInterface;
 end;