Changeset 126 for branches/generator/Forms/UFormMain.pas

Timestamp:

Nov 30, 2017, 12:02:32 AM (7 years ago)

Author:

chronos

Message:

• Added: New project Close action.
• Added: Track project Modified flag and offer project save if modified project is closed.
• Added: Remember last opened project file.

File:

• branches/generator/Forms/UFormMain.pas (modified) (10 diffs)

branches/generator/Forms/UFormMain.pas

@@ -15 +15 @@
   TFormMain = class(TForm)
     ABuildCompiler: TAction;
+    AProjectClose: TAction;
     AGrammerSettings: TAction;
-    ANew: TAction;
-    ASave: TAction;
+    AProjectNew: TAction;
+    AProjectSave: TAction;
     AExit: TAction;
-    AOpen: TAction;
-    ASaveAs: TAction;
+    AProjectOpen: TAction;
+    AProjectSaveAs: TAction;
     ARules: TAction;
     ActionList1: TActionList;
@@ -30 +31 @@
     MenuItem11: TMenuItem;
     MenuItem12: TMenuItem;
+    MenuItem13: TMenuItem;
     MenuItem2: TMenuItem;
     MenuItem3: TMenuItem;
@@ -46 +48 @@
     procedure AExitExecute(Sender: TObject);
     procedure AGrammerSettingsExecute(Sender: TObject);
-    procedure ANewExecute(Sender: TObject);
-    procedure AOpenExecute(Sender: TObject);
     procedure ARulesExecute(Sender: TObject);
-    procedure ASaveAsExecute(Sender: TObject);
-    procedure ASaveExecute(Sender: TObject);
+    procedure AProjectNewExecute(Sender: TObject);
+    procedure AProjectOpenExecute(Sender: TObject);
+    procedure AProjectCloseExecute(Sender: TObject);
+    procedure AProjectSaveAsExecute(Sender: TObject);
+    procedure AProjectSaveExecute(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
+    procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
     procedure FormShow(Sender: TObject);
   private
@@ -71 +75 @@
   UFormRules, UCore, UFormGrammer;
 
-{ TFormMain }
+resourcestring
+  SUnsavedChanges = 'Unsaved changes';
+  SDoYouWantToSaveProject = 'There are unsaved changes in project. Do you want to save them?';
+  SNewGrammer = 'New grammer.xtg';
+
+  { TFormMain }
 
 procedure TFormMain.ARulesExecute(Sender: TObject);
@@ -81 +90 @@
   FormRules.ShowModal;
   ReloadMemo;
+  UpdateInterface;
   FreeAndNil(FormRules);
 end;
 
-procedure TFormMain.ASaveAsExecute(Sender: TObject);
+procedure TFormMain.AProjectSaveAsExecute(Sender: TObject);
 begin
   SaveDialog1.FileName := Core.Grammer.FileName;
   if SaveDialog1.Execute then begin
+    Core.LastOpenedFile := SaveDialog1.FileName;
     Core.Grammer.SaveToXmlFile(SaveDialog1.FileName);
     UpdateInterface;
@@ -93 +104 @@
 end;
 
-procedure TFormMain.ASaveExecute(Sender: TObject);
+procedure TFormMain.AProjectSaveExecute(Sender: TObject);
 begin
   Core.Grammer.SaveToXmlFile(Core.Grammer.FileName);
@@ -104 +115 @@
 end;
 
+procedure TFormMain.FormCloseQuery(Sender: TObject; var CanClose: boolean);
+begin
+  AProjectClose.Execute;
+  if Assigned(Core.Grammer) then CanClose := False;
+end;
+
 procedure TFormMain.FormShow(Sender: TObject);
 begin
   Core.PersistentForm1.Load(Self, True);
+  Core.Initialize;
   ReloadMemo;
   UpdateInterface;
@@ -113 +131 @@
 procedure TFormMain.ReloadMemo;
 begin
-  MemoBNF.Lines.Text := Core.Grammer.GetString;
+  if Assigned(Core.Grammer) then
+    MemoBNF.Lines.Text := Core.Grammer.GetString
+    else MemoBNF.Lines.Clear;
 end;
 
 procedure TFormMain.UpdateInterface;
-begin
-  Caption := Core.Grammer.FileName + ' - ' + Application.Title;
+var
+  NewTitle: string;
+begin
+  NewTitle := Application.Title;
+  if Assigned(Core.Grammer) then begin
+    NewTitle := ExtractFileNameWithoutExt(ExtractFileName(Core.Grammer.FileName)) + ' - ' + NewTitle;
+    if Core.Grammer.Modified then NewTitle := NewTitle + '*';
+  end;
+  Caption := NewTitle;
+  AProjectClose.Enabled := Assigned(Core.Grammer);
+  AProjectSave.Enabled := Assigned(Core.Grammer) and Core.Grammer.Modified;
+  AProjectSaveAs.Enabled := Assigned(Core.Grammer);
+  AGrammerSettings.Enabled := Assigned(Core.Grammer);
+  ABuildCompiler.Enabled := Assigned(Core.Grammer);
+  ARules.Enabled := Assigned(Core.Grammer);
 end;
 
@@ -134 +167 @@
   if FormGrammer.ShowModal = mrOk then begin
     FormGrammer.SaveData(Core.Grammer);
+    UpdateInterface;
   end;
   FreeAndNil(FormGrammer);
 end;
 
-procedure TFormMain.ANewExecute(Sender: TObject);
-begin
-  Core.Grammer.Rules.Clear;
-  ReloadMemo;
-  UpdateInterface;
+procedure TFormMain.AProjectNewExecute(Sender: TObject);
+begin
+  AProjectClose.Execute;
+  if not Assigned(Core.Grammer) then begin
+    Core.Grammer := TGrammer.Create;
+    Core.Grammer.FileName := SNewGrammer;
+    ReloadMemo;
+    UpdateInterface;
+  end;
 end;
 
@@ -150 +188 @@
 end;
 
-procedure TFormMain.AOpenExecute(Sender: TObject);
-begin
-  OpenDialog1.FileName := Core.Grammer.FileName;
-  if OpenDialog1.Execute then begin
-    Core.Grammer.LoadFromXmlFile(OpenDialog1.FileName);
+procedure TFormMain.AProjectOpenExecute(Sender: TObject);
+begin
+  AProjectClose.Execute;
+  if not Assigned(Core.Grammer) then begin
+    OpenDialog1.FileName := Core.LastOpenedFile;
+    if OpenDialog1.Execute then begin
+      Core.LastOpenedFile := OpenDialog1.FileName;
+      Core.Grammer := TGrammer.Create;
+      Core.Grammer.LoadFromXmlFile(OpenDialog1.FileName);
+      ReloadMemo;
+      UpdateInterface;
+    end;
+  end;
+end;
+
+procedure TFormMain.AProjectCloseExecute(Sender: TObject);
+var
+  DialogResult: TModalResult;
+begin
+  if not Assigned(Core.Grammer) then Exit;
+
+  DialogResult := mrNo;
+  if Core.Grammer.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
+    FreeAndNil(Core.Grammer);
     ReloadMemo;
     UpdateInterface;