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

Timestamp:

Nov 9, 2010, 2:08:55 PM (14 years ago)

Author:

george

Message:

• Modified: Project saving.

File:

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

trunk/IDE/Forms/UMainForm.pas

@@ -54 +54 @@
     procedure AProjectOpenExecute(Sender: TObject);
     procedure AProjectSaveAsExecute(Sender: TObject);
+    procedure AProjectSaveExecute(Sender: TObject);
     procedure ComboBox1Change(Sender: TObject);
     procedure ComboBoxProducerChange(Sender: TObject);
@@ -292 +293 @@
   if SaveDialog1.Execute then begin
     Project.SaveToFile(SaveDialog1.FileName);
-  end;
+    Project.Save;
+  end;
+end;
+
+procedure TMainForm.AProjectSaveExecute(Sender: TObject);
+begin
+  Project.Save;
 end;