Changeset 36 for trunk/IDE/Forms/UMainForm.pas

Timestamp:

Feb 13, 2012, 4:07:34 PM (12 years ago)

Author:

chronos

Message:

• Modified: Partialy solved project open/close/save management.

Location:

trunk/IDE

Files:

• . (modified) (1 prop)
• Forms/UMainForm.pas (modified) (11 diffs)

trunk/IDE

@@ -4 +4 @@
 Transpascal.lps
 Transpascal.exe
+heaptrclog.trc

@@ -4 +4 @@
 Transpascal.lps
 Transpascal.exe
+heaptrclog.trc

trunk/IDE/Forms/UMainForm.pas

@@ -119 +119 @@
     procedure LoadFromRegistry(Root: HKEY; Key: string);
     procedure SaveToRegistry(Root: HKEY; Key: string);
-    procedure OpenProject(FileName: string);
+    procedure ProjectOpen(FileName: string);
     procedure UpdateMenu;
   public
@@ -235 +235 @@
   AProgramStop.Enabled := Project.Active and (BrainFuckInterpreter.State <> rsStopped);*)
   UpdateMenu;
+  CodeForm.UpdateInterface;
+  ProjectManager.UpdateInterface;
 end;
 
@@ -332 +334 @@
 end;
 
-procedure TMainForm.OpenProject(FileName: string);
+procedure TMainForm.ProjectOpen(FileName: string);
 begin
   Project.LoadFromFile(FileName);
@@ -382 +384 @@
 procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
 begin
-  Project.Save;
+  AProjectClose.Execute;
   SaveToRegistry(RegistryRootKey, ApplicationInfo.RegistryKey);
 end;
@@ -413 +415 @@
 begin
   if Sender is TMenuItem then
-     OpenProject(StringReplace(TMenuItem(Sender).Caption, '&', '', [rfReplaceAll]));
+    ProjectOpen(StringReplace(TMenuItem(Sender).Caption, '&', '', [rfReplaceAll]));
 end;
 
@@ -424 +426 @@
 
   if ReopenLastOpenedFile and (LastOpenedFiles.Count > 0) then begin
-    OpenProject(LastOpenedFiles[0]);
+    ProjectOpen(LastOpenedFiles[0]);
   end;
 
@@ -438 +440 @@
 begin
   if OpenDialog1.Execute then begin
-    OpenProject(OpenDialog1.FileName);
+    ProjectOpen(OpenDialog1.FileName);
   end;
 end;
@@ -444 +446 @@
 procedure TMainForm.AProjectCloseExecute(Sender: TObject);
 begin
+  //if Project.Modified then ;
+  Project.Active := False;
+  UpdateInterface;
+end;
+
+procedure TMainForm.AExitExecute(Sender: TObject);
+begin
   Close;
 end;
 
-procedure TMainForm.AExitExecute(Sender: TObject);
-begin
-  Close;
-end;
-
 procedure TMainForm.AAboutExecute(Sender: TObject);
 begin
@@ -464 +468 @@
 procedure TMainForm.AProjectNewExecute(Sender: TObject);
 begin
-  Project.Clear;
+  AProjectClose.Execute;
+  Project.Active := True;
   Project.Name := SNewProject;
-  ProjectManager.UpdateProjectTree;
-  Caption := ApplicationInfo.Name + ' - ' + Project.Name;
+  UpdateInterface;
 end;
 
@@ -473 +477 @@
 begin
   if SaveDialog1.Execute then begin
+    Project.Active := True;
     Project.SaveToFile(SaveDialog1.FileName);
     CodeForm.Save;
     Project.Save;
+    UpdateInterface;
+    LastOpenedFiles.AddItem(SaveDialog1.FileName);
+    LastOpenedFiles.ReloadMenu;
   end;
 end;
@@ -482 +490 @@
 begin
   CodeForm.Save;
-  Project.SaveToFile(Project.GetDir(True) + Project.Name + '.tppr');
+  if not FileExistsUTF8(Project.FileName) then AProjectSaveAs.Execute
+    else Project.SaveToFile(Project.FileName);
 end;
 

@@ -4 +4 @@
 Transpascal.lps
 Transpascal.exe
+heaptrclog.trc