Changeset 65 for trunk/Forms

Timestamp:

Dec 5, 2014, 8:34:59 PM (10 years ago)

Author:

chronos

Message:

• Added: Confirmation dialog for closing and saving file.

File:

• trunk/Forms/UFormMain.pas (modified) (8 diffs)

trunk/Forms/UFormMain.pas

@@ -180 +180 @@
   SDone = 'Done';
   SChanged = 'Changed';
+  SUnsavedChanges = 'Unsaved changes';
+  SDoYouWantToSaveProject = 'There are unsaved changes in project. Do you want to save them?';
+  SCloseProjectFirst = 'Project need to be closed before it can be openned';
 
 { TMainForm }
@@ -259 +262 @@
 procedure TMainForm.ProjectOpen(FileName: string);
 begin
-  AProjectClose.Execute;
+  if Core.Project.Openned then
+    raise Exception.Create(SCloseProjectFirst);
   FormSourceCode.MemoSource.Lines.LoadFromFile(UTF8Decode(FileName));
   Core.LastOpenedList.AddItem(FileName);
@@ -455 +459 @@
 procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: boolean);
 begin
-  if Core.Project.Modified then AProjectSaveAs.Execute;
+  if Core.Project.Modified then begin
+    AProjectClose.Execute;
+    if Core.Project.Openned then CanClose := False;
+  end;
 end;
 
@@ -564 +571 @@
 
 procedure TMainForm.AProjectCloseExecute(Sender: TObject);
-begin
-  if Core.Project.Modified then AProjectSaveAs.Execute;
-  AProgramStop.Execute;
-  Core.Project.Openned := False;
-  FormSourceCode.MemoSource.Clear;
-  UpdateInterface;
+var
+  DialogResult: TModalResult;
+begin
+  DialogResult := mrNo;
+  if Core.Project.Modified then begin
+    DialogResult := MessageDlg(SUnsavedChanges, SDoYouWantToSaveProject, mtConfirmation, [mbYes, mbNo, mbCancel], 0);
+    if DialogResult = mrYes then begin
+      AProjectSave.Execute;
+    end;
+  end;
+  if (DialogResult = mrNo) or (DialogResult = mrYes) then begin
+    AProgramStop.Execute;
+    Core.Project.Openned := False;
+    FormSourceCode.MemoSource.Clear;
+    UpdateInterface;
+  end;
 end;
 
@@ -575 +592 @@
 begin
   AProjectClose.Execute;
+  if Core.Project.Openned then Exit;
   Core.Project.FileName := 'Examples' + DirectorySeparator + SNewProject + '.b';
   FormSourceCode.MemoSource.Clear;
@@ -584 +602 @@
 procedure TMainForm.AProjectOpenRecentExecute(Sender: TObject);
 begin
+  AProjectClose.Execute;
+  if Core.Project.Openned then Exit;
   ProjectOpen(Core.LastOpenedList.Items[TMenuItem(Sender).MenuIndex]);
 end;
@@ -589 +609 @@
 procedure TMainForm.AProjectOpenExecute(Sender: TObject);
 begin
-  AProjectClose.Execute;
   if Core.LastOpenedList.Items.Count > 0 then
     OpenDialog1.FileName := Core.LastOpenedList.Items[0]
@@ -595 +614 @@
   OpenDialog1.InitialDir := ExtractFileDir(OpenDialog1.FileName);
   if OpenDialog1.Execute then begin
+    AProjectClose.Execute;
+    if Core.Project.Openned then Exit;
     ProjectOpen(OpenDialog1.FileName);
   end;