Changeset 8

Timestamp:

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

Author:

chronos

Message:

• Added: Reopen last openned project file.

Location:

trunk

Files:

• CoolDisk.lpi (modified) (1 diff)
• UDriveScan.pas (modified) (2 diffs)
• UFormMain.lfm (modified) (1 diff)
• UFormMain.pas (modified) (9 diffs)

trunk/CoolDisk.lpi

@@ -64 +64 @@
       </local>
     </RunParams>
-    <RequiredPackages Count="4">
+    <RequiredPackages Count="5">
       <Item1>
+        <PackageName Value="FCL"/>
+      </Item1>
+      <Item2>
         <PackageName Value="TemplateGenerics"/>
         <DefaultFilename Value="Packages/TemplateGenerics/TemplateGenerics.lpk" Prefer="True"/>
-      </Item1>
-      <Item2>
+      </Item2>
+      <Item3>
         <PackageName Value="Common"/>
         <DefaultFilename Value="Packages/Common/Common.lpk" Prefer="True"/>
-      </Item2>
-      <Item3>
-        <PackageName Value="tachartlazaruspkg"/>
       </Item3>
       <Item4>
+        <PackageName Value="tachartlazaruspkg"/>
+      </Item4>
+      <Item5>
         <PackageName Value="LCL"/>
-      </Item4>
+      </Item5>
     </RequiredPackages>
     <Units Count="8">

trunk/UDriveScan.pas

@@ -222 +222 @@
     WriteInteger(Node, 'WritePattern', WritePattern);
     WriteString(Node, 'DriveName', Drive);
+    WriteDateTime(Node, 'TimeStart', TimeStart);
+    WriteDateTime(Node, 'TimeEnd', TimeEnd);
 
     NewNode := OwnerDocument.CreateElement('SectorMap');
@@ -237 +239 @@
     WritePattern := ReadInteger(Node, 'WritePattern', 0);
     Drive := ReadString(Node, 'DriveName', '');
+    TimeStart := ReadDateTime(Node, 'TimeStart', 0);
+    TimeEnd := ReadDateTime(Node, 'TimeEnd', 0);
 
     NewNode := FindNode('SectorMap');

trunk/UFormMain.lfm

@@ -322 +322 @@
     end
   end
+  object XMLConfig1: TXMLConfig
+    StartEmpty = False
+    RootName = 'CONFIG'
+    ReadOnly = False
+    left = 672
+    top = 160
+  end
 end

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;