Changeset 10 for trunk/UProject.pas

Timestamp:

Apr 2, 2016, 12:02:59 AM (10 years ago)

Author:

chronos

Message:

• Added support for continue previous stopped scan.
• Modified: Allow to scan only part of drive by specifiing start and end sector.
• Added: Table showing list of operations in project.
• Added: Allow to create new project and close project.

File:

• trunk/UProject.pas (modified) (3 diffs)

trunk/UProject.pas

@@ -15 +15 @@
     Name: string;
     FileName: string;
-    FirstSector: Integer;
-    LastSector: Integer;
     SectorSize: Integer;
     SectorCount: Integer;
     Modified: Boolean;
     Scans: TDriveScanList;
+    DriveName: string;
     constructor Create;
     destructor Destroy; override;
@@ -61 +60 @@
     with RootNode do begin
       WriteInteger(RootNode, 'SectorSize', SectorSize);
+      WriteInteger(RootNode, 'SectorCount', SectorCount);
+      WriteString(RootNode, 'DriveName', DriveName);
 
       NewNode := OwnerDocument.CreateElement('Scans');
@@ -89 +90 @@
     with RootNode do begin
       SectorSize := ReadInteger(RootNode, 'SectorSize', 4096);
+      SectorCount := ReadInteger(RootNode, 'SectorCount', 0);
+      DriveName := ReadString(RootNode, 'DriveName', '');
 
       NewNode := FindNode('Scans');