Changeset 131 for branches/generator/UCore.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/UCore.pas (modified) (7 diffs)

branches/generator/UCore.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, XMLConf, FileUtil, Controls, ActnList, UGrammer, DOM,
-  UPersistentForm;
+  Classes, SysUtils, XMLConf, FileUtil, Controls, ActnList, UGrammer,
+  UPersistentForm, ULastOpenedList;
 
 type
@@ -22 +22 @@
     { private declarations }
   public
-    LastOpenedFile: string;
     ReopenLastFile: Boolean;
     Grammer: TGrammer;
@@ -28 +27 @@
     procedure SaveConfig;
     procedure Initialize;
+    procedure Finalize;
   end;
 
@@ -46 +46 @@
   ForceDirectories(GetAppConfigDir(False));
   XMLConfig1.Filename := GetAppConfigDir(False) + 'Config.xml';
-  LoadConfig;
 end;
 
 procedure TCore.DataModuleDestroy(Sender: TObject);
 begin
-  SaveConfig;
 end;
 
@@ -57 +55 @@
 begin
   with XMLConfig1 do begin
-    LastOpenedFile := string(GetValue('LastOpenedFile', 'pascal.grm'));
     ReopenLastFile := GetValue('ReopenLastFile', True);
   end;
@@ -65 +62 @@
 begin
   with XMLConfig1 do begin
-    SetValue('LastOpenedFile', DOMString(LastOpenedFile));
     SetValue('ReopenLastFile', ReopenLastFile);
     Flush;
@@ -73 +69 @@
 procedure TCore.Initialize;
 begin
-  FormMain.AProjectNew.Execute;
-  if ReopenLastFile and FileExists(LastOpenedFile) then
-    Grammer.LoadFromXmlFile(LastOpenedFile)
+  LoadConfig;
+  FormMain.LoadConfig(XMLConfig1);
+  if ReopenLastFile and FileExists(FormMain.LastOpenedList1.GetFirstFileName) then
+    FormMain.ProjectOpen(FormMain.LastOpenedList1.GetFirstFileName)
+    else FormMain.AProjectNew.Execute;
+end;
+
+procedure TCore.Finalize;
+begin
+  FormMain.SaveConfig(XMLConfig1);
+  SaveConfig;
 end;