Changeset 13 for trunk/UDriveScan.pas

Timestamp:

Apr 2, 2016, 1:06:34 PM (8 years ago)

Author:

chronos

Message:

• Modified: All drive dimensions are now stored in project file.
• Added: Confirmation dialog for saving project on application exit.
• Modified: ComboBox for selection of current drive now behaves correctly to update project parameters.

File:

• trunk/UDriveScan.pas (modified) (4 diffs)

trunk/UDriveScan.pas

@@ -39 +39 @@
     Lock: TCriticalSection;
     BlockMap: TBlockMap;
-    SectorSize: Integer;
     TimeStart: TDateTime;
     TimeEnd: TDateTime;
@@ -46 +45 @@
     Mode: TRunMode;
     WritePattern: Byte;
+    SectorSize: Integer;
     SectorStart: Integer;
     SectorEnd: Integer;
@@ -257 +257 @@
     WriteDateTime(Node, 'TimeStart', TimeStart);
     WriteDateTime(Node, 'TimeEnd', TimeEnd);
+    WriteInteger(Node, 'SectorSize', SectorSize);
+    WriteInteger(Node, 'SectorCount', SectorCount);
     WriteInteger(Node, 'SectorStart', SectorStart);
     WriteInteger(Node, 'SectorEnd', SectorEnd);
@@ -277 +279 @@
     TimeStart := ReadDateTime(Node, 'TimeStart', 0);
     TimeEnd := ReadDateTime(Node, 'TimeEnd', 0);
-    FSectorCurrent := ReadInteger(Node, 'SectorCurrent', 0);
+    SectorSize := ReadInteger(Node, 'SectorSize', 512);
+    SectorCount := ReadInteger(Node, 'SectorCount', 0);
     SectorStart := ReadInteger(Node, 'SectorStart', 0);
     SectorEnd := ReadInteger(Node, 'SectorEnd', SectorCount - 1);
+    FSectorCurrent := ReadInteger(Node, 'SectorCurrent', 0);
 
     NewNode := FindNode('SectorMap');