Changeset 6 for trunk/UFormMain.pas

Timestamp:

Mar 30, 2016, 10:50:22 PM (8 years ago)

Author:

chronos

Message:

• Modified: TBlockMap reworked to sparse map using list of value changes. Now much less memory is required to keep sector map of high capacity drives. Also drawing of map is much faster.

File:

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

trunk/UFormMain.pas

@@ -120 +120 @@
   DriveScan.Drive := EditDrive.Text;
   DriveScan.SectorSize := Project.SectorSize;
-  DriveScan.Terminated := False;
   DriveScan.Mode := TRunMode(ComboBoxRunMode.ItemIndex);
   DriveScan.WritePattern := StrToInt(EditPattern.Text);
@@ -145 +144 @@
 procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
 begin
-  DriveScan.Terminated := True;
 end;
 
 procedure TFormMain.FormDestroy(Sender: TObject);
 begin
+  Timer1.Enabled := False;
   FreeAndNil(Project);
   FreeAndNil(DriveScan);
@@ -208 +207 @@
 procedure TFormMain.UpdateInterface;
 begin
-  AScanStart.Enabled := DriveScan.Terminated = True;
-  AScanStop.Enabled := DriveScan.Terminated = False;
+  if Assigned(DriveScan) then begin
+    AScanStart.Enabled := DriveScan.Terminated = True;
+    AScanStop.Enabled := DriveScan.Terminated = False;
+  end;
 end;