Changeset 10 for trunk/UFormMain.lfm

Timestamp:

Apr 2, 2016, 12:02:59 AM (8 years ago)

Author:

chronos

Message:

• Added support for continue previous stopped scan.
• Modified: Allow to scan only part of drive by specifiing start and end sector.
• Added: Table showing list of operations in project.
• Added: Allow to create new project and close project.

File:

• trunk/UFormMain.lfm (modified) (13 diffs)

trunk/UFormMain.lfm

@@ -13 +13 @@
   OnShow = FormShow
   LCLVersion = '1.7'
-  object ListView1: TListView
-    Left = 16
-    Height = 390
-    Top = 136
-    Width = 552
-    Columns = <    
-      item
-      end    
-      item
-        Width = 482
-      end>
-    TabOrder = 0
-  end
   object ButtonScan: TButton
     Left = 120
@@ -32 +19 @@
     Width = 75
     Action = AScanStart
-    TabOrder = 1
+    TabOrder = 0
   end
   object Image1: TImage
@@ -175 +162 @@
     Top = 56
     Width = 93
-    Action = AScanOptions
-    TabOrder = 2
+    Action = AProjectOptions
+    TabOrder = 1
   end
   object ButtonScan2: TButton
@@ -184 +171 @@
     Width = 75
     Action = AScanStop
-    TabOrder = 3
+    TabOrder = 2
   end
   object Button1: TButton
@@ -192 +179 @@
     Width = 91
     Action = ABrowseDisk
-    TabOrder = 4
+    TabOrder = 3
   end
   object EditDrive: TEdit
@@ -199 +186 @@
     Top = 8
     Width = 448
-    TabOrder = 5
-  end
-  object ComboBoxRunMode: TComboBox
-    Left = 17
-    Height = 34
-    Top = 88
-    Width = 247
-    ItemHeight = 0
-    ItemIndex = 0
-    Items.Strings = (
-      'Read test'
-      'Write test'
-    )
-    Style = csDropDownList
-    TabOrder = 6
-    Text = 'Read test'
-  end
-  object Label9: TLabel
-    Left = 286
-    Height = 24
-    Top = 95
-    Width = 121
-    Caption = 'Data pattern:'
-    ParentColor = False
-  end
-  object EditPattern: TEdit
-    Left = 440
-    Height = 34
-    Top = 88
-    Width = 80
-    TabOrder = 7
-    Text = '0xff'
+    TabOrder = 4
   end
   object Label10: TLabel
@@ -247 +203 @@
     Caption = '  '
     ParentColor = False
+  end
+  object Button2: TButton
+    Left = 286
+    Height = 25
+    Top = 56
+    Width = 107
+    Action = AScanContinue
+    TabOrder = 5
+  end
+  object ListView1: TListView
+    Left = 17
+    Height = 414
+    Top = 168
+    Width = 567
+    Columns = <    
+      item
+        Caption = 'Name'
+      end    
+      item
+        Caption = 'Time start'
+      end    
+      item
+        Caption = 'Time end'
+      end    
+      item
+        Caption = 'First sector'
+      end    
+      item
+        Caption = 'Last sector'
+        Width = 347
+      end>
+    OwnerData = True
+    ReadOnly = True
+    RowSelect = True
+    TabOrder = 6
+    ViewStyle = vsReport
+    OnData = ListView1Data
+  end
+  object Label11: TLabel
+    Left = 17
+    Height = 24
+    Top = 141
+    Width = 107
+    Caption = 'Operations:'
+    ParentColor = False
+  end
+  object Button3: TButton
+    Left = 16
+    Height = 25
+    Top = 96
+    Width = 187
+    Action = AOperationOptions
+    Caption = 'Options options'
+    TabOrder = 7
   end
   object Timer1: TTimer
@@ -265 +275 @@
       OnExecute = AScanStopExecute
     end
-    object AScanOptions: TAction
+    object AProjectOptions: TAction
       Caption = 'Options'
-      OnExecute = AScanOptionsExecute
+      OnExecute = AProjectOptionsExecute
     end
     object ABrowseDisk: TAction
@@ -282 +292 @@
     end
     object AFileOpen: TAction
-      Caption = 'Open'
+      Caption = 'Open...'
       OnExecute = AFileOpenExecute
     end
@@ -289 +299 @@
       OnExecute = AFileSaveExecute
     end
+    object AScanContinue: TAction
+      Caption = 'Continue'
+      OnExecute = AScanContinueExecute
+    end
+    object AFileNew: TAction
+      Caption = 'New'
+      OnExecute = AFileNewExecute
+    end
+    object AFileClose: TAction
+      Caption = 'Close'
+      OnExecute = AFileCloseExecute
+    end
+    object AOperationOptions: TAction
+      Caption = 'Options'
+      OnExecute = AOperationOptionsExecute
+    end
   end
   object OpenDialog1: TOpenDialog
@@ -303 +329 @@
     object MenuItem1: TMenuItem
       Caption = 'File'
+      object MenuItem10: TMenuItem
+        Action = AFileNew
+      end
       object MenuItem2: TMenuItem
         Action = AFileOpen
@@ -311 +340 @@
       object MenuItem3: TMenuItem
         Action = AFileSaveAs
+      end
+      object MenuItem11: TMenuItem
+        Action = AFileClose
+      end
+      object MenuItem15: TMenuItem
+        Action = AProjectOptions
+      end
+      object MenuItem12: TMenuItem
+        Caption = '-'
       end
       object MenuItem4: TMenuItem
@@ -324 +362 @@
         Action = AScanStop
       end
+      object MenuItem13: TMenuItem
+        Action = AScanContinue
+      end
+      object MenuItem14: TMenuItem
+        Caption = '-'
+      end
       object MenuItem8: TMenuItem
-        Action = AScanOptions
+        Action = AOperationOptions
       end
     end