Changeset 24 for trunk/UDriveScan.pas

Timestamp:

Apr 4, 2016, 10:05:30 PM (8 years ago)

Author:

chronos

Message:

• Modified: List of scan operations are now automatically enlarged if entire windows is enlarged. Also added splitter between.

File:

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

trunk/UDriveScan.pas

@@ -12 +12 @@
   TDriveScan = class;
 
-  TRunMode = (rmRead, rmWrite);
+  TRunMode = (rmRead, rmWrite, rmNone);
   TExceptionEvent = procedure (Sender: TObject; E: Exception) of object;
 
@@ -296 +296 @@
 function TDriveScan.GetName: string;
 begin
-  if Mode = rmRead then Result := 'Read'
+  if Mode = rmNone then Result := 'None'
+  else if Mode = rmRead then Result := 'Read'
   else if Mode = rmWrite then Result := 'Write pattern $' + IntToHex(WritePattern, 2)
   else Result := '';
@@ -326 +327 @@
   Terminated := True;
   Reset;
+  Mode := rmNone;
 end;