Changeset 26 for trunk

Timestamp:

Apr 5, 2016, 11:01:24 PM (9 years ago)

Author:

chronos

Message:

• Modified: Start button now always adds new scan operation.

File:

• trunk/Form/UFormMain.pas (modified) (3 diffs)

trunk/Form/UFormMain.pas

@@ -261 +261 @@
   LastBlockPos := 0;
   with Core.Project do begin
+    Core.Project.Scans.Add(TDriveScan.Create);
+    Core.Project.CurrentScan := TDriveScan(Core.Project.Scans.Last);
     CurrentScan.DriveName := DriveInfo.Path;
     CurrentScan.SectorCount := DriveInfo.SectorCount;
@@ -309 +311 @@
   Core.Project.FileName := SNewProject;
   Core.Project.Modified := False;
-  Core.Project.Scans.Add(TDriveScan.Create);
-  Core.Project.CurrentScan := TDriveScan(Core.Project.Scans.Last);
 
   ComboBoxDrive.ItemIndex := Core.DriveList.IndexOf(Core.DriveList.FindByModel(Core.Project.DriveInfo.Model));
@@ -489 +489 @@
 begin
   with Core do begin
-  if Assigned(Project) and Assigned(Project.CurrentScan) then begin
-    AScanStart.Enabled := Project.CurrentScan.Terminated = True;
-    AScanStop.Enabled := Project.CurrentScan.Terminated = False;
-    AScanContinue.Enabled := (Project.CurrentScan.Terminated = True) and
+  if Assigned(Project) then begin
+    AScanStart.Enabled := (Assigned(Project.CurrentScan) and (Project.CurrentScan.Terminated = True)) or not Assigned(Project.CurrentScan);
+    AScanStop.Enabled := Assigned(Project.CurrentScan) and (Project.CurrentScan.Terminated = False);
+    AScanContinue.Enabled := Assigned(Project.CurrentScan) and (Project.CurrentScan.Terminated = True) and
       (Project.CurrentScan.SectorCurrent > Project.CurrentScan.SectorStart) and
       (Project.CurrentScan.SectorCurrent < Project.CurrentScan.SectorEnd);