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

branches/generator/UCore.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FileUtil, Controls, ActnList, URules, UPersistentForm;
+  Classes, SysUtils, XMLConf, FileUtil, Controls, ActnList, URules, DOM,
+  UPersistentForm;
 
 type
@@ -15 +16 @@
     ImageList1: TImageList;
     PersistentForm1: TPersistentForm;
+    XMLConfig1: TXMLConfig;
     procedure DataModuleCreate(Sender: TObject);
     procedure DataModuleDestroy(Sender: TObject);
@@ -20 +22 @@
     { private declarations }
   public
+    LastOpenedFile: string;
+    ReopenLastFile: Boolean;
     Grammer: TGrammer;
+    procedure LoadConfig;
+    procedure SaveConfig;
+    procedure Initialize;
   end;
 
@@ -30 +37 @@
 {$R *.lfm}
 
+uses
+  UFormMain;
+
 { TCore }
 
 procedure TCore.DataModuleCreate(Sender: TObject);
 begin
-  Grammer := TGrammer.Create;
-  Grammer.LoadFromXmlFile('pascal.grm');
+  ForceDirectories(GetAppConfigDir(False));
+  XMLConfig1.Filename := GetAppConfigDir(False) + 'Config.xml';
+  LoadConfig;
 end;
 
 procedure TCore.DataModuleDestroy(Sender: TObject);
 begin
-  Grammer.SaveToXmlFile('pascal.grm');
-  FreeAndNil(Grammer);
+  SaveConfig;
+end;
+
+procedure TCore.LoadConfig;
+begin
+  with XMLConfig1 do begin
+    LastOpenedFile := string(GetValue('LastOpenedFile', 'pascal.grm'));
+    ReopenLastFile := GetValue('ReopenLastFile', True);
+  end;
+end;
+
+procedure TCore.SaveConfig;
+begin
+  with XMLConfig1 do begin
+    SetValue('LastOpenedFile', DOMString(LastOpenedFile));
+    SetValue('ReopenLastFile', ReopenLastFile);
+    Flush;
+  end;
+end;
+
+procedure TCore.Initialize;
+begin
+  FormMain.AProjectNew.Execute;
+  if ReopenLastFile and FileExists(LastOpenedFile) then
+    Grammer.LoadFromXmlFile(LastOpenedFile)
 end;