Changeset 8 for trunk/UFormMain.pas

Timestamp:

Apr 1, 2016, 12:04:16 AM (8 years ago)

Author:

chronos

Message:

• Added: Reopen last openned project file.

File:

• trunk/UFormMain.pas (modified) (9 diffs)

trunk/UFormMain.pas

@@ -8 +8 @@
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
   Menus, ComCtrls, ExtCtrls, ActnList, dateutils, syncobjs, UProject,
-  UDriveScan, UPrefixMultiplier;
+  UDriveScan, UPrefixMultiplier, XMLConf;
 
 type
@@ -62 +62 @@
     SaveDialog1: TSaveDialog;
     Timer1: TTimer;
+    XMLConfig1: TXMLConfig;
     procedure ABrowseDiskExecute(Sender: TObject);
     procedure AExitExecute(Sender: TObject);
@@ -79 +80 @@
     LastBlockPos: Integer;
     RedrawPending: Boolean;
+    LastProjectFileName: string;
+    procedure ProjectOpen(FileName: string);
     procedure DriveScanChange(Sender: TObject);
     procedure DriveScanTerminate(Sender: TObject);
@@ -87 +90 @@
     DriveScan: TDriveScan;
     Project: TProject;
+    procedure SaveConfig;
+    procedure LoadConfig;
     procedure Detect;
     procedure ShowBuffer(Buffer: array of Byte);
@@ -105 +110 @@
 procedure TFormMain.FormShow(Sender: TObject);
 begin
+  LoadConfig;
+  if FileExists(LastProjectFileName) then
+    ProjectOpen(LastProjectFileName);
   Redraw;
   UpdateInterface;
@@ -123 +131 @@
   DriveScan.OnTerminate := DriveScanTerminate;
   EditDrive.Text := '/dev/sdb';
+  XMLConfig1.Filename := 'config.xml';
 end;
 
@@ -169 +178 @@
   OpenDialog1.DefaultExt := '.cdp';
   if OpenDialog1.Execute then begin
-    Project.LoadFromFile(OpenDialog1.FileName);
+    ProjectOpen(OpenDialog1.FileName);
   end;
 end;
@@ -184 +193 @@
 procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
 begin
+  SaveConfig;
 end;
 
@@ -252 +262 @@
 end;
 
+procedure TFormMain.SaveConfig;
+begin
+  XMLConfig1.SetValue('DriveName', EditDrive.Text);
+  XMLConfig1.SetValue('LastProjectFileName', LastProjectFileName);
+end;
+
+procedure TFormMain.LoadConfig;
+begin
+  EditDrive.Text := XMLConfig1.GetValue('DriveName', '/dev/sda');
+  LastProjectFileName := XMLConfig1.GetValue('LastProjectFileName', '');
+end;
+
 procedure TFormMain.Timer1Timer(Sender: TObject);
 begin
   Redraw;
+end;
+
+procedure TFormMain.ProjectOpen(FileName: string);
+begin
+  Project.LoadFromFile(FileName);
+  LastProjectFileName := FileName;
 end;