object dlgVolSegRelocate: TdlgVolSegRelocate Left = 204 Top = 227 BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'Move Segment to New Location' ClientHeight = 291 ClientWidth = 496 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnActivate = FormActivate OnDestroy = FormDestroy PixelsPerInch = 96 TextHeight = 13 object imgDrive: TImage Left = 392 Top = 4 Width = 16 Height = 16 AutoSize = True Picture.Data = {} Transparent = True Visible = False end object lblPhysicalDrives: TIntlLabel Left = 12 Top = 40 Width = 195 Height = 13 Caption = '&Disk:' FocusControl = cbxDrives end object lblDestInfo: TIntlLabel Left = 12 Top = 8 Width = 228 Height = 13 Caption = '(Select an unallocated space for the new location)' end object btnOK: TButton Left = 121 Top = 256 Width = 75 Height = 25 Caption = '&OK' Default = True TabOrder = 4 OnClick = btnOKClick end object btnCancel: TButton Left = 211 Top = 256 Width = 75 Height = 25 Cancel = True Caption = '&Cancel' TabOrder = 5 OnClick = btnCancelClick end object btnHelp: TButton Left = 300 Top = 256 Width = 75 Height = 25 Caption = '&Help' TabOrder = 6 OnClick = btnHelpClick end object cbxDrives: TComboBox Left = 12 Top = 56 Width = 146 Height = 21 Style = csOwnerDrawFixed Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 15 ParentFont = False TabOrder = 0 OnChange = cbxDrivesChange OnDrawItem = cbxDrivesDrawItem Items.Strings = ( 'Drive 1' 'Drive 2') end object pnlPartList: TPanel Left = 12 Top = 173 Width = 472 Height = 69 BevelOuter = bvNone BorderStyle = bsSingle TabOrder = 3 object lbxPartList: TColumnList Left = 0 Top = 17 Width = 468 Height = 48 TabStop = True Col1Position = 0 Col2Position = 200 Col2Align = claRight Col3Position = 248 Align = alClient BorderStyle = bsNone ItemHeight = 16 Items.Strings = ( 'Unallocated space|20,987.5') ParentColor = False Style = lbOwnerDrawFixed TabOrder = 0 OnClick = lbxPartListClick OnEnter = lbxPartListEnter OnExit = lbxPartListExit end object hdrPartList: THeaderControl Left = 0 Top = 0 Width = 468 Height = 17 DragReorder = False Enabled = False Sections = < item ImageIndex = -1 Text = 'Type' Width = 200 end item ImageIndex = -1 Text = 'Size MB' Width = 10000 end> end end object DestDiskMapPanel: TDiskMapPanel Left = 12 Top = 101 Width = 472 Height = 66 Cyl1024Hint = '1024 cylinder boundary' Cyl1024Visible = False Boot64KHint = '2 GB boot boundary' Boot64KVisible = False Color = clBtnFace BevelOuter = bvNone BorderWidth = 8 TabOrder = 2 end object gbxPosition: TGroupBox Left = 196 Top = 39 Width = 287 Height = 53 Caption = 'Position' TabOrder = 1 object rbtnBegin: TRadioButton Left = 8 Top = 16 Width = 185 Height = 17 Caption = '&Beginning of unallocated space' Checked = True TabOrder = 0 TabStop = True end object rbtnEnd: TRadioButton Left = 8 Top = 32 Width = 185 Height = 17 Caption = '&End of unallocated space' TabOrder = 1 end end end