fmtmain.dfm

来自「Delphi Hard Disk - Check Disk and Format」· DFM 代码 · 共 161 行

object MainForm: TMainForm
  Left = 102
  Top = 93
  Width = 579
  Height = 502
  Caption = 
    'Testing ChkDsk and Format Disk - Magenta version 1.0 - 20th Octo' +
    'ber 2005'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 14
  object Log: TMemo
    Left = 0
    Top = 0
    Width = 571
    Height = 363
    Align = alClient
    ScrollBars = ssBoth
    TabOrder = 0
  end
  object Panel1: TPanel
    Left = 0
    Top = 363
    Width = 571
    Height = 112
    Align = alBottom
    TabOrder = 1
    object Label1: TLabel
      Left = 183
      Top = 55
      Width = 65
      Height = 14
      Caption = 'Volume Label'
    end
    object doChkDsk: TButton
      Left = 105
      Top = 80
      Width = 75
      Height = 25
      Caption = 'Check Disk'
      TabOrder = 0
      OnClick = doChkDskClick
    end
    object doExit: TButton
      Left = 465
      Top = 80
      Width = 75
      Height = 25
      Caption = 'Close'
      TabOrder = 1
      OnClick = doExitClick
    end
    object DriveBox: TDriveComboBox
      Left = 10
      Top = 55
      Width = 145
      Height = 20
      TabOrder = 2
    end
    object OptCorrectErrors: TCheckBox
      Left = 10
      Top = 25
      Width = 91
      Height = 17
      Caption = 'Correct Errors'
      TabOrder = 3
    end
    object OptVerbose: TCheckBox
      Left = 105
      Top = 25
      Width = 71
      Height = 17
      Caption = 'Verbose'
      TabOrder = 4
    end
    object OptCheckDirty: TCheckBox
      Left = 185
      Top = 25
      Width = 86
      Height = 17
      Caption = 'Check if Dirty'
      TabOrder = 5
    end
    object OptScanDrive: TCheckBox
      Left = 275
      Top = 25
      Width = 81
      Height = 17
      Caption = 'Scan Drive'
      TabOrder = 6
    end
    object OptQuickFmt: TCheckBox
      Left = 360
      Top = 25
      Width = 86
      Height = 16
      Caption = 'Quick Format'
      TabOrder = 7
    end
    object doAbort: TButton
      Left = 375
      Top = 80
      Width = 75
      Height = 25
      Caption = 'Abort'
      TabOrder = 8
      OnClick = doAbortClick
    end
    object doFrmtDsk: TButton
      Left = 200
      Top = 80
      Width = 75
      Height = 25
      Caption = 'Format Disk'
      TabOrder = 9
      OnClick = doFrmtDskClick
    end
    object ProgressBar: TProgressBar
      Left = 10
      Top = 5
      Width = 531
      Height = 13
      Min = 0
      Max = 100
      Step = 1
      TabOrder = 10
    end
    object FileSystem: TComboBox
      Left = 455
      Top = 23
      Width = 56
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      ItemIndex = 0
      TabOrder = 11
      Text = 'NTFS'
      Items.Strings = (
        'NTFS'
        'FAT'
        'FAT32')
    end
    object VolumeLabel: TEdit
      Left = 260
      Top = 50
      Width = 121
      Height = 22
      TabOrder = 12
    end
  end
end