Changeset 19 for trunk/UDriveScan.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/UDriveScan.pas (modified) (3 diffs)

trunk/UDriveScan.pas

@@ -25 +25 @@
     procedure Execute; override;
     property OnException: TExceptionEvent read FOnException write FOnException;
+  end;
+
+  TDriveScanProfile = class
+    SectorCount: Integer;
+    SectorStart: Integer;
+    SectorEnd: Integer;
+    Mode: TRunMode;
+    WritePattern: Byte;
   end;
 
@@ -61 +69 @@
     procedure Start;
     procedure Stop;
+    procedure LoadProfile(Profile: TDriveScanProfile);
     constructor Create;
     destructor Destroy; override;
@@ -253 +262 @@
 end;
 
+procedure TDriveScan.LoadProfile(Profile: TDriveScanProfile);
+begin
+  SectorStart := Profile.SectorStart;
+  SectorEnd := Profile.SectorEnd;
+  Mode := Profile.Mode;
+  WritePattern := Profile.WritePattern;
+end;
+
 constructor TDriveScan.Create;
 begin