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

Timestamp:

Dec 24, 2017, 3:54:08 PM (7 years ago)

Author:

chronos

Message:

• Added: Open recent files menu action.
• Added: Generate BNF and EBNF output separately.
• Added: Allow to hide main toolbar.

File:

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

branches/generator/Forms/UFormMain.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  Menus, ActnList, ComCtrls, UPersistentForm, UGrammer;
+  Menus, ActnList, ComCtrls, UPersistentForm, ULastOpenedList, UGrammer,
+  XMLConf;
 
 type
@@ -15 +16 @@
   TFormMain = class(TForm)
     ABuildCompiler: TAction;
+    AToolbarVisible: TAction;
+    AProjectOpenRecent: TAction;
     AProjectClose: TAction;
     AGrammerSettings: TAction;
@@ -25 +28 @@
     ActionList1: TActionList;
     CoolBar1: TCoolBar;
+    LastOpenedList1: TLastOpenedList;
     MainMenu1: TMainMenu;
     MemoEbnf: TMemo;
@@ -34 +38 @@
     MenuItem13: TMenuItem;
     MenuItem2: TMenuItem;
+    MenuItemRecent: TMenuItem;
+    MenuItemToolbar: TMenuItem;
     MenuItem4: TMenuItem;
     MenuItem5: TMenuItem;
@@ -42 +48 @@
     OpenDialog1: TOpenDialog;
     PageControl1: TPageControl;
+    PopupMenuOpenRecent: TPopupMenu;
     SaveDialog1: TSaveDialog;
     TabSheetRules: TTabSheet;
@@ -47 +54 @@
     TabSheetEbnf: TTabSheet;
     ToolBar1: TToolBar;
+    ToolButton1: TToolButton;
     ToolButton2: TToolButton;
     ToolButton3: TToolButton;
@@ -53 +61 @@
     ToolButton6: TToolButton;
     procedure ABuildCompilerExecute(Sender: TObject);
+    procedure AToolbarVisibleExecute(Sender: TObject);
     procedure AExitExecute(Sender: TObject);
     procedure AGrammerSettingsExecute(Sender: TObject);
@@ -58 +67 @@
     procedure AProjectNewExecute(Sender: TObject);
     procedure AProjectOpenExecute(Sender: TObject);
+    procedure AProjectOpenRecentExecute(Sender: TObject);
     procedure AProjectCloseExecute(Sender: TObject);
     procedure AProjectSaveAsExecute(Sender: TObject);
@@ -64 +74 @@
     procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
     procedure FormShow(Sender: TObject);
+    procedure LastOpenedList1Change(Sender: TObject);
   private
-    procedure ReloadMemo;
-    procedure UpdateInterface;
     procedure GrammerChange(Sender: TObject);
     procedure GrammerDestroy(Sender: TObject);
   public
-    { public declarations }
+    procedure ReloadMemo;
+    procedure UpdateInterface;
+    procedure ProjectOpen(FileName: string);
+    procedure ProjectNew;
+    procedure LoadConfig(XmlConfig: TXmlConfig);
+    procedure SaveConfig(XmlConfig: TXmlConfig);
   end;
 
@@ -108 +122 @@
   SaveDialog1.FileName := ExtractFileName(Core.Grammer.FileName);
   if SaveDialog1.Execute then begin
-    Core.LastOpenedFile := SaveDialog1.FileName;
+    LastOpenedList1.AddItem(SaveDialog1.FileName);
     Core.Grammer.SaveToXmlFile(SaveDialog1.FileName);
     UpdateInterface;
@@ -123 +137 @@
 begin
   Core.PersistentForm1.Save(Self);
+  Core.Finalize;
 end;
 
@@ -145 +160 @@
 end;
 
+procedure TFormMain.LastOpenedList1Change(Sender: TObject);
+begin
+  LastOpenedList1.LoadToMenuItem(MenuItemRecent, AProjectOpenRecentExecute);
+  LastOpenedList1.LoadToMenuItem(PopupMenuOpenRecent.Items, AProjectOpenRecentExecute);
+end;
+
 procedure TFormMain.ReloadMemo;
 begin
   if Assigned(Core.Grammer) then begin
-    MemoBnf.Lines.Text := Core.Grammer.GetString;
-    MemoEbnf.Lines.Text := Core.Grammer.GetString;
+    MemoBnf.Lines.Text := Core.Grammer.ExportAsString(gnBnf);
+    MemoEbnf.Lines.Text := Core.Grammer.ExportAsString(gnEbnf);
   end else begin
     MemoBnf.Lines.Clear;
@@ -172 +193 @@
   ABuildCompiler.Enabled := Assigned(Core.Grammer);
   ARules.Enabled := Assigned(Core.Grammer);
+  CoolBar1.Visible := AToolbarVisible.Checked;
 end;
 
@@ -194 +216 @@
     FormRules.UpdateInterface;
   end;
+end;
+
+procedure TFormMain.ProjectOpen(FileName: string);
+begin
+  if Assigned(Core.Grammer) then FreeAndNil(Core.Grammer);
+  LastOpenedList1.AddItem(FileName);
+  Core.Grammer := TGrammer.Create;
+  Core.Grammer.OnChange := GrammerChange;
+  Core.Grammer.OnDestroy := GrammerDestroy;
+  Core.Grammer.LoadFromXmlFile(FileName);
+  Core.Grammer.Change;
+end;
+
+procedure TFormMain.ProjectNew;
+begin
+  if Assigned(Core.Grammer) then FreeAndNil(Core.Grammer);
+  Core.Grammer := TGrammer.Create;
+  Core.Grammer.OnChange := GrammerChange;
+  Core.Grammer.OnDestroy := GrammerDestroy;
+  Core.Grammer.FileName := SNewGrammer;
+  Core.Grammer.Change;
+end;
+
+procedure TFormMain.LoadConfig(XmlConfig: TXmlConfig);
+begin
+  AToolbarVisible.Checked := XmlConfig.GetValue('ToolbarVisible', True);
+  LastOpenedList1.LoadFromXMLConfig(XMLConfig, 'LastOpenedFiles');
+end;
+
+procedure TFormMain.SaveConfig(XmlConfig: TXmlConfig);
+begin
+  XmlConfig.SetValue('ToolbarVisible', AToolbarVisible.Checked);
+  LastOpenedList1.SaveToXMLConfig(XMLConfig, 'LastOpenedFiles');
 end;
 
@@ -214 +269 @@
 end;
 
+procedure TFormMain.AProjectOpenRecentExecute(Sender: TObject);
+begin
+  if Sender is TMenuItem then ProjectOpen(TMenuItem(Sender).Caption);
+end;
+
 procedure TFormMain.AProjectNewExecute(Sender: TObject);
 begin
   AProjectClose.Execute;
   if not Assigned(Core.Grammer) then begin
-    Core.Grammer := TGrammer.Create;
-    Core.Grammer.FileName := SNewGrammer;
-    Core.Grammer.OnChange := GrammerChange;
-    Core.Grammer.OnDestroy := GrammerDestroy;
-    Core.Grammer.Change;
+    ProjectNew;
   end;
 end;
@@ -239 +295 @@
 end;
 
+procedure TFormMain.AToolbarVisibleExecute(Sender: TObject);
+begin
+  UpdateInterface;
+end;
+
 procedure TFormMain.AProjectOpenExecute(Sender: TObject);
 begin
   AProjectClose.Execute;
   if not Assigned(Core.Grammer) then begin
-    OpenDialog1.InitialDir := ExtractFileDir(Core.LastOpenedFile);
-    OpenDialog1.FileName := ExtractFileName(Core.LastOpenedFile);
+    OpenDialog1.InitialDir := ExtractFileDir(LastOpenedList1.GetFirstFileName);
+    OpenDialog1.FileName := ExtractFileName(LastOpenedList1.GetFirstFileName);
     if OpenDialog1.Execute then begin
-      Core.LastOpenedFile := OpenDialog1.FileName;
-      Core.Grammer := TGrammer.Create;
-      Core.Grammer.OnChange := GrammerChange;
-      Core.Grammer.OnDestroy := GrammerDestroy;
-      Core.Grammer.LoadFromXmlFile(OpenDialog1.FileName);
-      Core.Grammer.Change;
+      ProjectOpen(OpenDialog1.FileName);
     end;
   end;