Changeset 19 for trunk/UProject.pas

Timestamp:

Apr 2, 2016, 10:01:11 PM (8 years ago)

Author:

chronos

Message:

• Modified: Parameters for next scan operation is not stored separatelly from scans itself. So changing parameters will not affect current selected scan item.

File:

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

trunk/UProject.pas

@@ -24 +24 @@
     Scans: TDriveScanList;
     DriveInfo: TDriveInfo;
+    ScanProfile: TDriveScanProfile;
     constructor Create;
     destructor Destroy; override;
@@ -56 +57 @@
   Scans := TDriveScanList.Create;
   DriveInfo := TDriveInfo.Create;
+  ScanProfile := TDriveScanProfile.Create;
 end;
 
 destructor TProject.Destroy;
 begin
+  FreeAndNil(ScanProfile);
   FreeAndNil(DriveInfo);
   FreeAndNil(Scans);
@@ -82 +85 @@
       WriteString(RootNode, 'DrivePath', DriveInfo.Path);
       WriteInt64(RootNode, 'DriveSize', DriveInfo.Size);
+
+      NewNode := OwnerDocument.CreateElement('ScanProfile');
+      AppendChild(NewNode);
+      WriteInteger(NewNode, 'SectorStart', ScanProfile.SectorStart);
+      WriteInteger(NewNode, 'SectorEnd', ScanProfile.SectorEnd);
+      WriteInteger(NewNode, 'WritePattern', ScanProfile.WritePattern);
+      WriteInteger(NewNode, 'Mode', Integer(ScanProfile.Mode));
 
       NewNode := OwnerDocument.CreateElement('Scans');
@@ -111 +121 @@
       DriveInfo.SectorSize := ReadInteger(RootNode, 'SectorSize', 4096);
       DriveInfo.SectorCount := ReadInteger(RootNode, 'SectorCount', 0);
+      ScanProfile.SectorCount := DriveInfo.SectorCount;
       DriveInfo.Model := ReadString(RootNode, 'DriveName', '');
       DriveInfo.Path := ReadString(RootNode, 'DrivePath', '');
       DriveInfo.Size := ReadInt64(RootNode, 'DriveSize', 0);
+
+      NewNode := FindNode('ScanProfile');
+      if Assigned(NewNode) then begin
+        ScanProfile.SectorStart := ReadInteger(NewNode, 'SectorStart', 0);
+        ScanProfile.SectorEnd := ReadInteger(NewNode, 'SectorEnd', ScanProfile.SectorCount - 1);
+        ScanProfile.WritePattern := ReadInteger(NewNode, 'WritePattern', 0);
+        ScanProfile.Mode := TRunMode(ReadInteger(NewNode, 'Mode', 0));
+      end;
 
       NewNode := FindNode('Scans');