Changeset 18 for trunk/Form/UFormMain.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/Form/UFormMain.pas (modified) (2 diffs)

trunk/Form/UFormMain.pas

@@ -197 +197 @@
   Selected: Boolean);
 begin
-  Core.Project.CurrentScan := TDriveScan(Item.Data);
-  Redraw;
-  ReloadOperationList;
+  if Selected then begin
+    Core.Project.CurrentScan := TDriveScan(Item.Data);
+    Redraw;
+    ReloadOperationList;
+  end;
 end;
 
@@ -243 +245 @@
   with Core.Project do begin
     CurrentScan.DriveName := DriveInfo.Path;
+    CurrentScan.SectorCount := DriveInfo.SectorCount;
     CurrentScan.SectorSize := DriveInfo.SectorSize;
     CurrentScan.Reset;