Changeset 29 for trunk/Form/UFormOperation.pas

Timestamp:

Apr 7, 2016, 11:08:31 PM (8 years ago)

Author:

chronos

Message:

• Added: Random data pattern write operation.
• Modified: Reversed list of operations so new ones are placed at top of the list.
• Fixed: Error on openning recent file which not exists.

File:

• trunk/Form/UFormOperation.pas (modified) (5 diffs)

trunk/Form/UFormOperation.pas

@@ -16 +16 @@
     ButtonOk: TButton;
     ButtonCancel: TButton;
+    CheckBoxRandomPattern: TCheckBox;
     ComboBoxRunMode: TComboBox;
     EditPattern: TEdit;
@@ -23 +24 @@
     SpinEditFirstSector: TSpinEdit;
     SpinEditLastSector: TSpinEdit;
+    procedure CheckBoxRandomPatternChange(Sender: TObject);
+    procedure ComboBoxRunModeChange(Sender: TObject);
     procedure SpinEditFirstSectorChange(Sender: TObject);
     procedure SpinEditLastSectorChange(Sender: TObject);
   private
     procedure UpdateMaxValues;
+    procedure UpdateWritePattern;
   public
     procedure Load(DriveScan: TDriveScanProfile);
@@ -46 +50 @@
 end;
 
+procedure TFormOperation.ComboBoxRunModeChange(Sender: TObject);
+begin
+  UpdateWritePattern;
+end;
+
+procedure TFormOperation.CheckBoxRandomPatternChange(Sender: TObject);
+begin
+  UpdateWritePattern;
+end;
+
 procedure TFormOperation.SpinEditLastSectorChange(Sender: TObject);
 begin
@@ -57 +71 @@
 end;
 
+procedure TFormOperation.UpdateWritePattern;
+begin
+  CheckBoxRandomPattern.Enabled := (ComboBoxRunMode.ItemIndex = Integer(rmWrite));
+  EditPattern.Enabled := not CheckBoxRandomPattern.Checked and (ComboBoxRunMode.ItemIndex = Integer(rmWrite));
+end;
+
 procedure TFormOperation.Load(DriveScan: TDriveScanProfile);
 begin
+  CheckBoxRandomPattern.Checked := DriveScan.WritePatternRandom;
+  UpdateWritePattern;
   ComboBoxRunMode.ItemIndex := Integer(DriveScan.Mode);
   EditPattern.Text := '$' + IntToHex(DriveScan.WritePattern, 2);
@@ -73 +95 @@
   DriveScan.SectorStart := SpinEditFirstSector.Value;
   DriveScan.SectorEnd := SpinEditLastSector.Value;
+  DriveScan.WritePatternRandom := CheckBoxRandomPattern.Checked;
 end;