object FormMain: TFormMain Left = 221 Height = 1108 Top = 169 Width = 1654 Caption = 'CoolDisk' ClientHeight = 1074 ClientWidth = 1654 DesignTimePPI = 144 Menu = MainMenu1 OnClose = FormClose OnCloseQuery = FormCloseQuery OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow LCLVersion = '2.0.0.4' object ToolBar1: TToolBar Left = 0 Height = 39 Top = 0 Width = 1654 Images = Core.ImageList1 ParentFont = False TabOrder = 0 object ToolButton1: TToolButton Left = 1 Top = 2 Action = AScanStart end object ToolButton2: TToolButton Left = 36 Top = 2 Action = AScanStop end object ToolButton3: TToolButton Left = 71 Top = 2 Action = AScanContinue end end object Panel2: TPanel Left = 0 Height = 1035 Top = 39 Width = 888 Align = alLeft BevelOuter = bvNone ClientHeight = 1035 ClientWidth = 888 ParentFont = False TabOrder = 1 object Panel3: TPanel Left = 0 Height = 568 Top = 0 Width = 888 Align = alTop BevelOuter = bvNone ClientHeight = 568 ClientWidth = 888 ParentFont = False TabOrder = 0 object Label1: TLabel Left = 24 Height = 26 Top = 268 Width = 96 Caption = 'Sector size:' ParentColor = False ParentFont = False end object LabelSectorSize: TLabel Left = 386 Height = 26 Top = 268 Width = 10 Caption = ' ' ParentColor = False ParentFont = False end object LabelSectorCount: TLabel Left = 386 Height = 26 Top = 312 Width = 10 Caption = ' ' ParentColor = False ParentFont = False end object Label2: TLabel Left = 24 Height = 26 Top = 312 Width = 113 Caption = 'Sector count:' ParentColor = False ParentFont = False end object LabelBlockCurrent: TLabel Left = 386 Height = 26 Top = 360 Width = 10 Caption = ' ' ParentColor = False ParentFont = False end object Label3: TLabel Left = 24 Height = 26 Top = 360 Width = 127 Caption = 'Current sector:' ParentColor = False ParentFont = False end object Label4: TLabel Left = 24 Height = 26 Top = 408 Width = 154 Caption = 'Damaged sectors:' ParentColor = False ParentFont = False end object LabelBlockDamaged: TLabel Left = 386 Height = 26 Top = 402 Width = 10 Caption = ' ' ParentColor = False ParentFont = False end object Label5: TLabel Left = 24 Height = 26 Top = 450 Width = 115 Caption = 'Elapsed time:' ParentColor = False ParentFont = False end object LabelElapsedTime: TLabel Left = 386 Height = 26 Top = 444 Width = 10 Caption = ' ' ParentColor = False ParentFont = False end object Label6: TLabel Left = 24 Height = 26 Top = 492 Width = 135 Caption = 'Estimated time:' ParentColor = False ParentFont = False end object LabelEstimatedTime: TLabel Left = 387 Height = 26 Top = 486 Width = 10 Caption = ' ' ParentColor = False ParentFont = False end object Label7: TLabel Left = 24 Height = 26 Top = 222 Width = 153 Caption = 'Sectors per Block:' ParentColor = False ParentFont = False end object LabelSectorPerBlock: TLabel Left = 386 Height = 26 Top = 216 Width = 10 Caption = ' ' ParentColor = False ParentFont = False end object LabelIOSpeed: TLabel Left = 386 Height = 26 Top = 528 Width = 10 Caption = ' ' ParentColor = False ParentFont = False end object Label8: TLabel Left = 24 Height = 26 Top = 534 Width = 88 Caption = 'I/O speed:' ParentColor = False ParentFont = False end object Label10: TLabel Left = 24 Height = 26 Top = 174 Width = 38 Caption = 'Size:' ParentColor = False ParentFont = False end object LabelSize: TLabel Left = 386 Height = 26 Top = 168 Width = 10 Caption = ' ' ParentColor = False ParentFont = False end object ButtonScan: TButton Left = 24 Height = 38 Top = 108 Width = 112 Action = AScanStart ParentFont = False TabOrder = 0 end object ButtonScan1: TButton Left = 696 Height = 38 Top = 36 Width = 180 Action = AProjectOptions Anchors = [akTop, akRight] ParentFont = False TabOrder = 1 end object ButtonScan2: TButton Left = 156 Height = 38 Top = 108 Width = 112 Action = AScanStop ParentFont = False TabOrder = 2 end object Button2: TButton Left = 288 Height = 38 Top = 108 Width = 160 Action = AScanContinue ParentFont = False TabOrder = 3 end object Button3: TButton Left = 468 Height = 38 Top = 108 Width = 168 Action = AOperationOptions ParentFont = False TabOrder = 4 end object ComboBoxDrive: TComboBox Left = 12 Height = 42 Top = 24 Width = 660 Anchors = [akTop, akLeft, akRight] ItemHeight = 0 OnChange = ComboBoxDriveChange ParentFont = False Style = csDropDownList TabOrder = 5 end end object Splitter2: TSplitter Cursor = crVSplit Left = 0 Height = 8 Top = 568 Width = 888 Align = alTop ResizeAnchor = akTop end object Panel4: TPanel Left = 0 Height = 459 Top = 576 Width = 888 Align = alClient BevelOuter = bvNone ClientHeight = 459 ClientWidth = 888 ParentFont = False TabOrder = 2 object ListView1: TListView Left = 24 Height = 313 Top = 72 Width = 854 Anchors = [akTop, akLeft, akRight, akBottom] Columns = < item Caption = 'Name' Width = 300 end item Caption = 'Time start' Width = 225 end item Caption = 'Time end' Width = 225 end item Caption = 'First sector' Width = 150 end item Caption = 'Last sector' Width = 520 end> OwnerData = True ParentFont = False PopupMenu = PopupMenu1 ReadOnly = True RowSelect = True TabOrder = 0 ViewStyle = vsReport OnData = ListView1Data OnSelectItem = ListView1SelectItem end object Label11: TLabel Left = 24 Height = 26 Top = 24 Width = 100 Caption = 'Operations:' ParentColor = False ParentFont = False end object Button1: TButton Left = 28 Height = 38 Top = 401 Width = 156 Action = AOperationAdd Anchors = [akLeft, akBottom] ParentFont = False TabOrder = 1 end object Button4: TButton Left = 216 Height = 38 Top = 401 Width = 172 Action = AOperationRemove Anchors = [akLeft, akBottom] ParentFont = False TabOrder = 2 end end end object Splitter1: TSplitter Left = 888 Height = 1035 Top = 39 Width = 8 end object PageControl1: TPageControl Left = 896 Height = 1035 Top = 39 Width = 758 ActivePage = TabSheetSpeed Align = alClient ParentFont = False TabIndex = 1 TabOrder = 3 object TabSheetSectors: TTabSheet Caption = 'Sector map' ClientHeight = 995 ClientWidth = 748 ParentFont = False object Image1: TImage Left = 4 Height = 964 Top = 4 Width = 1092 Align = alClient BorderSpacing.Around = 6 OnResize = Image1Resize end end object TabSheetSpeed: TTabSheet Caption = 'Transfer speed' ClientHeight = 995 ClientWidth = 748 ParentFont = False object ChartSpeed: TChart Left = 6 Height = 983 Top = 6 Width = 736 AxisList = < item Marks.Format = '%0:.9g MB/s' Marks.LabelBrush.Style = bsClear Marks.Style = smsCustom Minors = <> Range.UseMin = True Title.LabelFont.Orientation = 900 Title.LabelBrush.Style = bsClear end item Alignment = calBottom Marks.LabelBrush.Style = bsClear Minors = <> Title.LabelBrush.Style = bsClear end> Foot.Brush.Color = clBtnFace Foot.Font.Color = clBlue Title.Brush.Color = clBtnFace Title.Font.Color = clBlue Title.Text.Strings = ( 'TAChart' ) Align = alClient BorderSpacing.Around = 6 object ChartSpeedLineSeriesAvg: TLineSeries LinePen.Color = clGreen end object ChartSpeedLineSeriesMin: TLineSeries LinePen.Color = clBlue end object ChartSpeedLineSeriesMax: TLineSeries LinePen.Color = clRed end end end end object Timer1: TTimer Interval = 500 OnTimer = Timer1Timer left = 1008 top = 336 end object ActionList1: TActionList Images = Core.ImageList1 left = 1008 top = 437 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 object AShowAbout: TAction Caption = 'About' OnExecute = AShowAboutExecute end object AShowSettings: TAction Caption = 'Settings' OnExecute = AShowSettingsExecute end end object OpenDialog1: TOpenDialog left = 1008 top = 540 end object SaveDialog1: TSaveDialog left = 1008 top = 648 end object MainMenu1: TMainMenu Images = Core.ImageList1 left = 1008 top = 756 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 object MenuItem22: TMenuItem Caption = 'Tools' object MenuItem23: TMenuItem Action = AShowSettings end end object MenuItem20: TMenuItem Caption = 'Help' object MenuItem21: TMenuItem Action = AShowAbout end end end object LastOpenedList1: TLastOpenedList MaxCount = 10 left = 1008 top = 216 end object PopupMenu1: TPopupMenu left = 432 top = 792 object MenuItem18: TMenuItem Action = AOperationAdd end object MenuItem19: TMenuItem Action = AOperationRemove end end end