object FormMain: TFormMain Left = 433 Height = 1072 Top = 204 Width = 1703 Caption = 'CoolDisk' ClientHeight = 1040 ClientWidth = 1703 Menu = MainMenu1 OnClose = FormClose OnCloseQuery = FormCloseQuery OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow LCLVersion = '1.7' object ToolBar1: TToolBar Left = 0 Height = 26 Top = 0 Width = 1703 Caption = 'ToolBar1' Images = Core.ImageList1 TabOrder = 0 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 Panel1: TPanel Left = 597 Height = 1014 Top = 26 Width = 1106 Align = alClient BevelOuter = bvNone ClientHeight = 1014 ClientWidth = 1106 TabOrder = 1 object Image1: TImage Left = 8 Height = 998 Top = 8 Width = 1090 Align = alClient BorderSpacing.Around = 8 OnResize = Image1Resize end end object Panel2: TPanel Left = 0 Height = 1014 Top = 26 Width = 592 Align = alLeft BevelOuter = bvNone ClientHeight = 1014 ClientWidth = 592 TabOrder = 2 object Panel3: TPanel Left = 0 Height = 379 Top = 0 Width = 592 Align = alTop BevelOuter = bvNone ClientHeight = 379 ClientWidth = 592 TabOrder = 0 object Label1: TLabel Left = 16 Height = 24 Top = 179 Width = 101 Caption = 'Sector size:' ParentColor = False end object LabelSectorSize: TLabel Left = 257 Height = 24 Top = 179 Width = 10 Caption = ' ' ParentColor = False end object LabelSectorCount: TLabel Left = 257 Height = 24 Top = 208 Width = 10 Caption = ' ' ParentColor = False end object Label2: TLabel Left = 16 Height = 24 Top = 208 Width = 119 Caption = 'Sector count:' ParentColor = False end object LabelBlockCurrent: TLabel Left = 257 Height = 24 Top = 240 Width = 10 Caption = ' ' ParentColor = False end object Label3: TLabel Left = 16 Height = 24 Top = 240 Width = 136 Caption = 'Current sector:' ParentColor = False end object Label4: TLabel Left = 16 Height = 24 Top = 272 Width = 162 Caption = 'Damaged sectors:' ParentColor = False end object LabelBlockDamaged: TLabel Left = 257 Height = 24 Top = 268 Width = 10 Caption = ' ' ParentColor = False end object Label5: TLabel Left = 16 Height = 24 Top = 300 Width = 122 Caption = 'Elapsed time:' ParentColor = False end object LabelElapsedTime: TLabel Left = 257 Height = 24 Top = 296 Width = 10 Caption = ' ' ParentColor = False end object Label6: TLabel Left = 16 Height = 24 Top = 328 Width = 142 Caption = 'Estimated time:' ParentColor = False end object LabelEstimatedTime: TLabel Left = 258 Height = 24 Top = 324 Width = 10 Caption = ' ' ParentColor = False end object Label7: TLabel Left = 16 Height = 24 Top = 148 Width = 160 Caption = 'Sectors per Block:' ParentColor = False end object LabelSectorPerBlock: TLabel Left = 257 Height = 24 Top = 144 Width = 10 Caption = ' ' ParentColor = False end object LabelIOSpeed: TLabel Left = 257 Height = 24 Top = 352 Width = 10 Caption = ' ' ParentColor = False end object Label8: TLabel Left = 16 Height = 24 Top = 356 Width = 94 Caption = 'I/O speed:' ParentColor = False end object Label10: TLabel Left = 16 Height = 24 Top = 116 Width = 40 Caption = 'Size:' ParentColor = False end object LabelSize: TLabel Left = 257 Height = 24 Top = 112 Width = 10 Caption = ' ' ParentColor = False end object ButtonScan: TButton Left = 16 Height = 25 Top = 72 Width = 75 Action = AScanStart TabOrder = 0 end object ButtonScan1: TButton Left = 464 Height = 25 Top = 24 Width = 120 Action = AProjectOptions Anchors = [akTop, akRight] TabOrder = 1 end object ButtonScan2: TButton Left = 104 Height = 25 Top = 72 Width = 75 Action = AScanStop TabOrder = 2 end object Button2: TButton Left = 192 Height = 25 Top = 72 Width = 107 Action = AScanContinue TabOrder = 3 end object Button3: TButton Left = 312 Height = 25 Top = 72 Width = 112 Action = AOperationOptions TabOrder = 4 end object ComboBoxDrive: TComboBox Left = 8 Height = 38 Top = 16 Width = 440 Anchors = [akTop, akLeft, akRight] ItemHeight = 0 OnChange = ComboBoxDriveChange Style = csDropDownList TabOrder = 5 end end object Splitter2: TSplitter Cursor = crVSplit Left = 0 Height = 5 Top = 379 Width = 592 Align = alTop ResizeAnchor = akTop end object Panel4: TPanel Left = 0 Height = 630 Top = 384 Width = 592 Align = alClient BevelOuter = bvNone ClientHeight = 630 ClientWidth = 592 TabOrder = 2 object ListView1: TListView Left = 16 Height = 533 Top = 48 Width = 569 Anchors = [akTop, akLeft, akRight, akBottom] Columns = < item Caption = 'Name' Width = 100 end item Caption = 'Time start' Width = 100 end item Caption = 'Time end' Width = 100 end item Caption = 'First sector' Width = 100 end item Caption = 'Last sector' Width = 347 end> OwnerData = True PopupMenu = PopupMenu1 ReadOnly = True RowSelect = True TabOrder = 0 ViewStyle = vsReport OnData = ListView1Data OnSelectItem = ListView1SelectItem end object Label11: TLabel Left = 16 Height = 24 Top = 16 Width = 107 Caption = 'Operations:' ParentColor = False end object Button1: TButton Left = 19 Height = 25 Top = 592 Width = 104 Action = AOperationAdd Anchors = [akLeft, akBottom] TabOrder = 1 end object Button4: TButton Left = 144 Height = 25 Top = 592 Width = 115 Action = AOperationRemove Anchors = [akLeft, akBottom] TabOrder = 2 end end end object Splitter1: TSplitter Left = 592 Height = 1014 Top = 26 Width = 5 end object Timer1: TTimer Interval = 500 OnTimer = Timer1Timer left = 672 top = 224 end object ActionList1: TActionList Images = Core.ImageList1 left = 672 top = 291 object AScanStart: TAction Caption = 'Start' OnExecute = AScanStartExecute end object AScanStop: TAction Caption = 'Stop' OnExecute = AScanStopExecute end object AScanContinue: TAction Caption = 'Continue' OnExecute = AScanContinueExecute end object AProjectOptions: TAction Caption = 'Options' OnExecute = AProjectOptionsExecute end object ADriveSelect: TAction Caption = 'Select...' end object AExit: TAction Caption = 'Exit' OnExecute = AExitExecute end object AFileSaveAs: TAction Caption = 'Save as...' OnExecute = AFileSaveAsExecute end object AFileOpen: TAction Caption = 'Open...' OnExecute = AFileOpenExecute end object AFileSave: TAction Caption = 'Save' OnExecute = AFileSaveExecute end object AFileNew: TAction Caption = 'New' OnExecute = AFileNewExecute end object AFileClose: TAction Caption = 'Close' OnExecute = AFileCloseExecute end object AViewToolbar: TAction Caption = 'Toolbar' OnExecute = AViewToolbarExecute end object AOperationOptions: TAction Caption = 'Options' OnExecute = AOperationOptionsExecute end object AOperationRemove: TAction Caption = 'Remove' OnExecute = AOperationRemoveExecute end object AOperationAdd: TAction Caption = 'Add' OnExecute = AOperationAddExecute end end object OpenDialog1: TOpenDialog left = 672 top = 360 end object SaveDialog1: TSaveDialog left = 672 top = 432 end object MainMenu1: TMainMenu Images = Core.ImageList1 left = 672 top = 504 object MenuItem1: TMenuItem Caption = 'File' object MenuItem10: TMenuItem Action = AFileNew end object MenuItem2: TMenuItem Action = AFileOpen end object MenuItemOpenRecent: TMenuItem Caption = 'Open recent' end object MenuItem9: TMenuItem Action = AFileSave end 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 Action = AExit end end object MenuItem5: TMenuItem Caption = 'Scan' object MenuItem6: TMenuItem Action = AScanStart end object MenuItem7: TMenuItem Action = AScanStop end object MenuItem13: TMenuItem Action = AScanContinue end object MenuItem14: TMenuItem Caption = '-' end object MenuItem8: TMenuItem Action = AOperationOptions end end object MenuItem16: TMenuItem Caption = 'View' object MenuItem17: TMenuItem Action = AViewToolbar end end end object LastOpenedList1: TLastOpenedList MaxCount = 10 left = 672 top = 144 end object PopupMenu1: TPopupMenu left = 320 top = 664 object MenuItem18: TMenuItem Action = AOperationAdd end object MenuItem19: TMenuItem Action = AOperationRemove end end end