home *** CD-ROM | disk | FTP | other *** search
- object StatusForm: TStatusForm
- Left = 106
- Top = 58
- ActiveControl = CancelBtn
- BorderIcons = []
- BorderStyle = bsSingle
- Caption = 'Formatting'
- ClientHeight = 122
- ClientWidth = 305
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- PixelsPerInch = 96
- Position = poScreenCenter
- TextHeight = 13
- object Label1: TLabel
- Left = 11
- Top = 14
- Width = 128
- Height = 13
- Hint = 'Verification increases formatting time'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- end
- object Label2: TLabel
- Left = 12
- Top = 32
- Width = 129
- Height = 13
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Gauge1: TGauge
- Left = 12
- Top = 52
- Width = 279
- Height = 22
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ForeColor = clNavy
- ParentFont = False
- Progress = 0
- end
- object CancelBtn: TBitBtn
- Left = 108
- Top = 80
- Width = 89
- Height = 33
- Hint = 'Cancel formatting'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- OnClick = CancelBtnClick
- Kind = bkCancel
- end
- end
-