Changeset 13 for trunk/Form/UFormMain.lfm

Timestamp:

Apr 2, 2016, 1:06:34 PM (8 years ago)

Author:

chronos

Message:

• Modified: All drive dimensions are now stored in project file.
• Added: Confirmation dialog for saving project on application exit.
• Modified: ComboBox for selection of current drive now behaves correctly to update project parameters.

File:

• trunk/Form/UFormMain.lfm (modified) (12 diffs)

trunk/Form/UFormMain.lfm

@@ -9 +9 @@
   Menu = MainMenu1
   OnClose = FormClose
+  OnCloseQuery = FormCloseQuery
   OnCreate = FormCreate
   OnDestroy = FormDestroy
@@ -14 +15 @@
   LCLVersion = '1.7'
   object ButtonScan: TButton
-    Left = 120
+    Left = 16
     Height = 25
-    Top = 56
+    Top = 104
     Width = 75
     Action = AScanStart
@@ -23 +24 @@
   object Image1: TImage
     Left = 592
-    Height = 878
-    Top = 10
+    Height = 848
+    Top = 40
     Width = 1092
     Anchors = [akTop, akLeft, akRight, akBottom]
@@ -37 +38 @@
     ParentColor = False
   end
-  object LabelBlockSize: TLabel
+  object LabelSectorSize: TLabel
     Left = 256
     Height = 24
@@ -45 +46 @@
     ParentColor = False
   end
-  object LabelBlockCount: TLabel
+  object LabelSectorCount: TLabel
     Left = 256
     Height = 24
@@ -158 +159 @@
   end
   object ButtonScan1: TButton
-    Left = 17
+    Left = 440
     Height = 25
-    Top = 56
-    Width = 93
+    Top = 48
+    Width = 120
     Action = AProjectOptions
     TabOrder = 1
   end
   object ButtonScan2: TButton
-    Left = 200
+    Left = 104
     Height = 25
-    Top = 56
+    Top = 104
     Width = 75
     Action = AScanStop
@@ -190 +191 @@
   end
   object Button2: TButton
-    Left = 286
+    Left = 192
     Height = 25
-    Top = 56
+    Top = 104
     Width = 107
     Action = AScanContinue
@@ -235 +236 @@
   end
   object Button3: TButton
-    Left = 16
+    Left = 312
     Height = 25
-    Top = 96
-    Width = 187
+    Top = 104
+    Width = 112
     Action = AOperationOptions
-    Caption = 'Options options'
     TabOrder = 5
   end
   object ComboBoxDrive: TComboBox
-    Left = 15
+    Left = 8
     Height = 38
-    Top = 8
-    Width = 464
+    Top = 40
+    Width = 416
     ItemHeight = 0
     OnChange = ComboBoxDriveChange
@@ -253 +253 @@
     TabOrder = 6
   end
+  object ToolBar1: TToolBar
+    Left = 0
+    Height = 26
+    Top = 0
+    Width = 1703
+    Caption = 'ToolBar1'
+    Images = ImageList1
+    TabOrder = 7
+    object ToolButton1: TToolButton
+      Left = 1
+      Top = 2
+      Action = AScanStart
+    end
+    object ToolButton2: TToolButton
+      Left = 24
+      Top = 2
+      Action = AScanStop
+    end
+    object ToolButton3: TToolButton
+      Left = 47
+      Top = 2
+      Action = AScanContinue
+    end
+  end
   object Timer1: TTimer
     Interval = 500
@@ -274 +298 @@
       OnExecute = AProjectOptionsExecute
     end
-    object ABrowseDisk: TAction
+    object ADriveSelect: TAction
       Caption = 'Select...'
     end
@@ -319 +343 @@
   end
   object MainMenu1: TMainMenu
+    Images = ImageList1
     left = 672
     top = 504
@@ -374 +399 @@
     top = 160
   end
+  object ImageList1: TImageList
+    left = 672
+    top = 573
+  end
 end