Changeset 18 for trunk/UDriveScan.pas

Timestamp:

Apr 2, 2016, 9:15:35 PM (10 years ago)

Author:

chronos

Message:

• Added: Mark written sectors with write flag and blue color.

File:

• trunk/UDriveScan.pas (modified) (1 diff)

trunk/UDriveScan.pas

@@ -212 +212 @@
           BlockMap.Sectors[FSectorCurrent] := bsDamaged;
           Inc(DamagedBlockCount);
-        end else BlockMap.Sectors[FSectorCurrent] := bsOk;
+        end else begin
+          if Mode = rmRead then BlockMap.Sectors[FSectorCurrent] := bsRead
+            else if Mode = rmWrite then BlockMap.Sectors[FSectorCurrent] := bsWrite;
+        end;
         Inc(FSectorCurrent);
         if Terminated then Break;