Changeset 18 for trunk/UBlockMap.pas

Timestamp:

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

Author:

chronos

Message:

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

File:

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

trunk/UBlockMap.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, Graphics, Math, Contnrs, Dialogs, DOM, XMLRead, XMLWrite,
-  UXMLUtils;
+  Classes, SysUtils, Graphics, Math, Contnrs, Dialogs, DOM, UXMLUtils;
 
 type
-  TSectorState = (bsNone, bsOk, bsDamaged);
+  TSectorState = (bsNone, bsRead, bsDamaged, bsWrite);
 
   TChange = class
@@ -270 +269 @@
     while (ChangeIndex < FChanges.Count) and
      (TChange(FChanges[ChangeIndex]).Index <= EndIndex) do begin
-      if (Result = bsNone) and (TChange(FChanges[ChangeIndex]).Value = bsOk) then Result := bsOk
+      if (Result <> bsDamaged) and (TChange(FChanges[ChangeIndex]).Value = bsRead) then Result := bsRead
+        else if (Result <> bsDamaged) and (TChange(FChanges[ChangeIndex]).Value = bsWrite) then Result := bsWrite
         else if TChange(FChanges[ChangeIndex]).Value = bsDamaged then Result := bsDamaged;
       Inc(ChangeIndex);
@@ -296 +296 @@
         (I div ItemsCount.X) * BlockSize.Y, BlockSize.X - 1, BlockSize.Y - 1);
       BlockState := GetCombinedSectors(I * SectorPerBlock, (I + 1) * SectorPerBlock);
-      if BlockState = bsOk then Canvas.Brush.Color := clGreen
+      if BlockState = bsRead then Canvas.Brush.Color := clGreen
         else if BlockState = bsDamaged then Canvas.Brush.Color := clRed
+        else if BlockState = bsWrite then Canvas.Brush.Color := clBlue
         else Canvas.Brush.Color := clSilver;
       Canvas.FillRect(Rect);