Changeset 29 for trunk/Form

Timestamp:

Apr 7, 2016, 11:08:31 PM (10 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.

Location:

trunk/Form

Files:

• UFormMain.lfm (modified) (1 diff)
• UFormMain.pas (modified) (2 diffs)
• UFormOperation.lfm (modified) (3 diffs)
• UFormOperation.pas (modified) (5 diffs)

trunk/Form/UFormMain.lfm

@@ -283 +283 @@
           item
             Caption = 'Name'
-            Width = 100
+            Width = 200
           end        
           item
             Caption = 'Time start'
-            Width = 100
+            Width = 150
           end        
           item
             Caption = 'Time end'
-            Width = 100
+            Width = 150
           end        
           item

trunk/Form/UFormMain.pas

@@ -176 +176 @@
   LoadConfig;
   Core.PersistentForm1.Load(Self);
-  if (LastOpenedList1.Items.Count > 0) then
+  if (LastOpenedList1.Items.Count > 0) and FileExists(LastOpenedList1.Items[0]) then
     ProjectOpen(LastOpenedList1.Items[0])
   else begin
@@ -195 +195 @@
   with Core.Project do
   if (Item.Index >= 0) and (Item.Index < Scans.Count) then
-  with TDriveScan(Scans[Item.Index]) do begin
+  with TDriveScan(Scans[Scans.Count - 1 - Item.Index]) do begin
     Item.Caption := GetName;
-    Item.Data := TDriveScan(Scans[Item.Index]);
+    Item.Data := TDriveScan(Scans[Scans.Count - 1 - Item.Index]);
     Item.SubItems.Add(DateTimeToStr(TimeStart));
     Item.SubItems.Add(DateTimeToStr(TimeEnd));

trunk/Form/UFormOperation.lfm

@@ -37 +37 @@
       'Write test'
     )
+    OnChange = ComboBoxRunModeChange
     Style = csDropDownList
     TabOrder = 2
@@ -42 +43 @@
   end
   object Label9: TLabel
-    Left = 285
+    Left = 16
     Height = 24
-    Top = 23
-    Width = 121
-    Caption = 'Data pattern:'
+    Top = 200
+    Width = 172
+    Caption = 'Write byte pattern:'
     ParentColor = False
   end
   object EditPattern: TEdit
-    Left = 439
+    Left = 232
     Height = 34
-    Top = 16
+    Top = 192
     Width = 80
     TabOrder = 3
@@ -93 +94 @@
     ParentColor = False
   end
+  object CheckBoxRandomPattern: TCheckBox
+    Left = 16
+    Height = 28
+    Top = 160
+    Width = 174
+    Caption = 'Random pattern'
+    OnChange = CheckBoxRandomPatternChange
+    TabOrder = 6
+  end
 end

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;