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

Timestamp:

Nov 10, 2010, 9:42:27 AM (14 years ago)

Author:

george

Message:

• Added: Parsing type parameters.
• Fixed: Saving edited files.

File:

• trunk/IDE/Forms/UMainForm.pas (modified) (7 diffs)

trunk/IDE/Forms/UMainForm.pas

@@ -7 +7 @@
 uses
   SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, StdCtrls, UCompiler, Registry,
+  Dialogs, StdCtrls, UCompiler, Registry, Contnrs,
   ComCtrls, ExtCtrls, SynEdit, SynHighlighterPas,
   UProject, FileUtil, Menus, ActnList, UCoolDocking,
@@ -52 +52 @@
     ToolBar1: TToolBar;
     procedure AProjectCloseExecute(Sender: TObject);
+    procedure AProjectNewExecute(Sender: TObject);
     procedure AProjectOpenExecute(Sender: TObject);
     procedure AProjectSaveAsExecute(Sender: TObject);
@@ -91 +92 @@
 procedure TMainForm.ABuildExecute(Sender: TObject);
 begin
+  CodeForm.Save;
+
   // Compile project file
   if (ComboBoxAnalyzer.Items.Count > 0) and (ComboBoxAnalyzer.ItemIndex <> -1) and
@@ -208 +211 @@
 begin
   Project.LoadFromFile(FileName);
-  LastOpenedFiles.Add(FileName);
+  LastOpenedFiles.AddItem(FileName);
   LastOpenedFiles.ReloadMenu;
   ProjectManager.UpdateProjectTree;
@@ -235 +238 @@
   for I := 0 to Compiler.Producers.Count - 1 do
     ComboBoxProducer.AddItem(Compiler.Producers[I].Name, nil);
+
   ComboBoxAnalyzer.Clear;
   for I := 0 to Compiler.Analyzers.Count - 1 do
@@ -289 +293 @@
 end;
 
+procedure TMainForm.AProjectNewExecute(Sender: TObject);
+begin
+  Project.Clear;
+  Project.Name := 'New project';
+  ProjectManager.UpdateProjectTree;
+  Caption := ApplicationInfo.Name + ' - ' + Project.Name;
+end;
+
 procedure TMainForm.AProjectSaveAsExecute(Sender: TObject);
 begin
   if SaveDialog1.Execute then begin
     Project.SaveToFile(SaveDialog1.FileName);
+    CodeForm.Save;
     Project.Save;
   end;
@@ -299 +312 @@
 procedure TMainForm.AProjectSaveExecute(Sender: TObject);
 begin
+  CodeForm.Save;
   Project.SaveToFile(Project.GetDir(True) + Project.Name + '.tppr');
 end;