home *** CD-ROM | disk | FTP | other *** search
- object FormFormatCD: TFormFormatCD
- Left = 405
- Top = 492
- BorderIcons = []
- BorderStyle = bsDialog
- Caption = 'Erase CD/DVD'
- ClientHeight = 217
- ClientWidth = 364
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object PanelBottom: TPanel
- Left = 0
- Top = 176
- Width = 364
- Height = 41
- Align = alBottom
- BevelOuter = bvNone
- TabOrder = 0
- object Bevel1: TBevel
- Left = 0
- Top = 0
- Width = 364
- Height = 4
- Align = alTop
- Shape = bsTopLine
- end
- object BtnCancel: TButton
- Left = 265
- Top = 9
- Width = 75
- Height = 25
- Cancel = True
- Caption = 'Close'
- TabOrder = 0
- OnClick = BtnCancelClick
- end
- object BtnErase: TButton
- Left = 176
- Top = 9
- Width = 75
- Height = 25
- Caption = 'Erase'
- TabOrder = 1
- OnClick = BtnEraseClick
- end
- end
- object Notebook1: TNotebook
- Left = 0
- Top = 0
- Width = 364
- Height = 176
- Align = alClient
- PageIndex = 1
- TabOrder = 1
- object TPage
- Left = 0
- Top = 0
- Caption = 'tsParms'
- object PanelEraseParameters: TPanel
- Left = 0
- Top = 0
- Width = 364
- Height = 176
- Align = alClient
- BevelOuter = bvNone
- TabOrder = 0
- object PanelTop: TPanel
- Left = 0
- Top = 0
- Width = 364
- Height = 49
- Align = alTop
- BevelOuter = bvNone
- Color = clBtnHighlight
- TabOrder = 0
- DesignSize = (
- 364
- 49)
- object Label5: TLabel
- Left = 11
- Top = 10
- Width = 86
- Height = 13
- Caption = 'Erase CD/DVD'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label6: TLabel
- Left = 111
- Top = 9
- Width = 237
- Height = 26
- Anchors = [akLeft, akTop, akRight]
- AutoSize = False
- Caption =
- 'To format a CD-RW, DVD-RW or DVD+RW disc, select the options and' +
- ' press Erase.'
- WordWrap = True
- end
- end
- object PanelSelectDrive: TPanel
- Left = 0
- Top = 49
- Width = 361
- Height = 127
- BevelOuter = bvNone
- TabOrder = 1
- object Label2: TLabel
- Left = 22
- Top = 23
- Width = 56
- Height = 13
- Caption = 'Select drive'
- end
- object Label3: TLabel
- Left = 22
- Top = 75
- Width = 55
- Height = 13
- Caption = 'Format type'
- end
- object Label4: TLabel
- Left = 22
- Top = 99
- Width = 31
- Height = 13
- Caption = 'Speed'
- end
- object Bevel2: TBevel
- Left = 0
- Top = 0
- Width = 361
- Height = 4
- Align = alTop
- Shape = bsTopLine
- end
- object Label1: TLabel
- Left = 22
- Top = 49
- Width = 52
- Height = 13
- Caption = 'Media type'
- end
- object cbDrives: TComboBox
- Left = 87
- Top = 19
- Width = 236
- Height = 21
- Style = csDropDownList
- ItemHeight = 0
- TabOrder = 0
- end
- object cbFormatType: TComboBox
- Left = 87
- Top = 71
- Width = 122
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- ItemIndex = 0
- TabOrder = 1
- Text = 'Quick'
- Items.Strings = (
- 'Quick'
- 'Complete')
- end
- object cbSpeed: TComboBox
- Left = 87
- Top = 96
- Width = 122
- Height = 21
- Style = csDropDownList
- ItemHeight = 0
- TabOrder = 2
- end
- object stMedia: TStaticText
- Left = 87
- Top = 47
- Width = 236
- Height = 17
- Hint =
- 'Media Description|This is the media description of the Disk inse' +
- 'rted in the device'
- Alignment = taCenter
- AutoSize = False
- BorderStyle = sbsSunken
- Caption = 'Device Not Selected'
- TabOrder = 3
- end
- end
- end
- end
- object TPage
- Left = 0
- Top = 0
- Caption = 'tsProgress'
- object PanelErase: TPanel
- Left = 0
- Top = 0
- Width = 364
- Height = 176
- Align = alClient
- BevelOuter = bvNone
- TabOrder = 0
- DesignSize = (
- 364
- 176)
- object LblStatus: TLabel
- Left = 42
- Top = 140
- Width = 280
- Height = 13
- Alignment = taCenter
- Anchors = [akLeft, akTop, akRight]
- AutoSize = False
- Caption = 'CD/DVD has been erased.'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object ProgressBar: TProgressBar
- Left = 27
- Top = 91
- Width = 317
- Height = 16
- Anchors = [akLeft, akTop, akRight]
- Smooth = True
- TabOrder = 0
- end
- object Panel1: TPanel
- Left = 13
- Top = 113
- Width = 337
- Height = 45
- BevelOuter = bvNone
- TabOrder = 1
- object Label9: TLabel
- Left = 96
- Top = 29
- Width = 32
- Height = 13
- Caption = 'Label9'
- end
- object Label8: TLabel
- Left = 26
- Top = 29
- Width = 62
- Height = 13
- Caption = 'Approx Time:'
- end
- object Label7: TLabel
- Left = 55
- Top = 8
- Width = 33
- Height = 13
- Caption = 'Action:'
- end
- object Label10: TLabel
- Left = 96
- Top = 8
- Width = 38
- Height = 13
- Caption = 'Label10'
- end
- end
- object Animate1: TAnimate
- Left = 32
- Top = 16
- Width = 304
- Height = 60
- CommonAVI = aviDeleteFile
- StopFrame = 24
- end
- end
- end
- end
- object TimerStartup: TTimer
- Enabled = False
- Interval = 500
- OnTimer = TimerStartupTimer
- Left = 168
- Top = 8
- end
- end
-