main.dfm

界面精美

object Fmain: TFmain
  Left = 190
  Top = 103
  Width = 622
  Height = 459
  Caption = #30913#30424#32500#25252#24037#20855
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010002002020100000000000E80200002600000010101000000000002801
    00000E0300002800000020000000400000000100040000000000800200000000
    0000000000000000000000000000000000000000800000800000008080008000
    00008000800080800000C0C0C000808080000000FF0000FF000000FFFF00FF00
    0000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFCCCCCCCCCCFFFFFFFFFFFFFFF
    FFFFFFCCCCCCCCCCCCFFFFFFFFFFFFFFFFFFFCCCCCCCCCCCCCCFFFFFFFFFFFFF
    FFFFCCCCCCCCCCCCCCCCFCCFFFFFFFFFFFFCCCCCCFFFFFFCCCCCCCCCFFFFFFFF
    FFCCCCCCFFFFFFFFCCCCCCCFFFFFFFFFFCCCCCCFFFFFFFFFFCCCCCFFFFFFFFFF
    CCCCCCFFFFFFFFFFCCCCCFFFFFFFFFFCCCCCCFFFFFFFFFFFCCCCFFFFCFFFFFCC
    CCCCFFCCCCCCCCCCCCCFFFFCCCFFFCCCCCCFFFCCCCCCCCCCCFFFFFCCCCCFCCCC
    CCFFFFCCCCCCCCCCCCFFFFCCCCCCCCCCCFFFFFCCCFFFFFFCCCFFFFFCCCCCCCCC
    FFFFFFCCCFFFFFFCCCFFFFFFCCCCCCCFFFFFFFCCCFFFFFCCCCFFFFFFFCCCCCCF
    FFFFFFCCCCCCCCCCCFFFFFFFFCCCCCCFFFFFFFCCCCCCCCCCFFFFFFFFFCCCCCCF
    FFFFFFCCCFFFFFCCCFFFFFFFFCCCCCCCFFFFFFCCCFFFFFCCCFFFFFFFCCCCCCCC
    CFFFFFCCCFFFFFCCCFFFFFFCCCCCCCCCCCFFFFCCCCCCCCCCCFFFFFCCCCCCFCCC
    CCCFFFCCCCCCCCCCFFFFFCCCCCCFFFCCCCCCFFCCCCCCCCCCFFFFCCCCCCFFFFFC
    CCCCCFFFFFFFFFFFFFFCCCCCCFFFFFFFCCCCCCFFFFFFFFFFFFCCCCCCFFFFFFFF
    FCCCCCCFFFFFFFFFFCCCCCCFFFFFFFFFFFCCCCCCFFFFFFFFCCCCCCFFFFFFFFFF
    FFFCCCCCCFFFFFFCCCCCCFFFFFFFFFFFFFFFCCCCCCCCCCCCCCCCFFFFFFFFFFFF
    FFFFFCCCCCCCCCCCCCCFFFFFFFFFFFFFFFFFFFCCCCCCCCCCCCFFFFFFFFFFFFFF
    FFFFFFFCCCCCCCCCCFFFFFFFFFFF000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000280000001000000020000000010004000000
    0000C00000000000000000000000000000000000000000000000000080000080
    000000808000800000008000800080800000C0C0C000808080000000FF0000FF
    000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0000000CCCCCC000000000
    CCFFFFCCF600000CCFFFFFFFFF0000CCFFCCCCFFFC000CCFFCFFFFFFCCC6CCFF
    CFFCCFFCCCFCCFFCCFFCCFFCCFFCCFFCCFFFFFFCCFFCCFFCCFFFFFFCCFFCCFFC
    CFFCCFFCCFFCCCFFCFFCCFFCFFCC0CCFFCFFFFCFFCC000CCFFCCCCFFCC00000C
    CFFFFFFCC0000000CCFFFFCC000000000CCCCCC00000F81F0000F0030000E003
    0000C00300008000000000000000000000000000000000000000000000000000
    000080010000C0030000E0070000F00F0000F81F0000}
  Menu = MainMenu1
  OldCreateOrder = False
  PopupMenu = PopupMenu1
  Position = poDefault
  Scaled = False
  Visible = True
  OnCreate = FormCreate
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 614
    Height = 29
    EdgeBorders = [ebTop, ebBottom]
    Flat = True
    Images = ImageList1
    TabOrder = 0
    object TBtnMBR: TToolButton
      Left = 0
      Top = 0
      Hint = #35835#21462#20027#24341#23548#35760#24405'(MBR)'
      Caption = 'TBtnMBR'
      ImageIndex = 25
      ParentShowHint = False
      ShowHint = True
      OnClick = MItemReadMBRClick
    end
    object ToolButton8: TToolButton
      Left = 23
      Top = 0
      Width = 9
      Caption = ' '
      Style = tbsDivider
    end
    object TBtnOpen: TToolButton
      Left = 32
      Top = 0
      Hint = #23548#20986#25152#20445#23384#30340#25159#21306#20869#23481
      Caption = 'TBtnOpen'
      ImageIndex = 8
      ParentShowHint = False
      ShowHint = True
      OnClick = TBtnOpenClick
    end
    object TBtnSave: TToolButton
      Left = 55
      Top = 0
      Hint = #20445#23384#24403#21069#25159#21306#20869#23481
      ImageIndex = 26
      ParentShowHint = False
      ShowHint = True
      OnClick = TBtnSaveClick
    end
    object TBtnWrite: TToolButton
      Left = 78
      Top = 0
      Hint = #20889#20837#24403#21069#25159#21306#20869#23481
      Caption = 'TBtnWrite'
      ImageIndex = 4
      ParentShowHint = False
      ShowHint = True
      OnClick = MItemWriteClick
    end
    object ToolButton1: TToolButton
      Left = 101
      Top = 0
      Width = 9
      Caption = 'ToolButton1'
      ImageIndex = 11
      Style = tbsDivider
    end
    object TBtnDPT: TToolButton
      Left = 110
      Top = 0
      Hint = #30913#30424#20998#21306#34920'(DPT)'#20449#24687
      Caption = 'TBtnDPT'
      Enabled = False
      ImageIndex = 22
      ParentShowHint = False
      ShowHint = True
      OnClick = MItemHDInfoClick
    end
    object TBtnBoot: TToolButton
      Left = 133
      Top = 0
      Hint = #35835#21462#36923#36753#20998#21306#21551#21160#35760#24405'(Boots) '
      Caption = 'TBtnBoot'
      ImageIndex = 29
      ParentShowHint = False
      ShowHint = True
      OnClick = MItemReadBootClick
    end
    object TBtnCheckSys: TToolButton
      Left = 156
      Top = 0
      Hint = #25226#25351#23450#30828#30424#30340#26576#19968#25159#21306#35835#20837#21040#20869#23384#24182#26174#31034#20986#26469
      ImageIndex = 17
      ParentShowHint = False
      ShowHint = True
      OnClick = MItemHardDiskInfoClick
    end
    object ToolButton5: TToolButton
      Left = 179
      Top = 0
      Width = 8
      Caption = 'ToolButton5'
      ImageIndex = 11
      Style = tbsSeparator
    end
    object ToolButton4: TToolButton
      Left = 187
      Top = 0
      Hint = #20320#25152#38656#30340#24110#21161#20449#24687
      Caption = 'ToolButton4'
      ImageIndex = 10
      ParentShowHint = False
      ShowHint = True
      OnClick = MItemShutDownClick
    end
    object TBtnAbout: TToolButton
      Left = 210
      Top = 0
      Caption = 'TBtnAbout'
      ImageIndex = 32
      OnClick = MItemHelp1Click
    end
    object ToolButton6: TToolButton
      Left = 233
      Top = 0
      Width = 8
      Caption = 'ToolButton6'
      ImageIndex = 11
      Style = tbsSeparator
    end
  end
  object StaBarShow: TStatusBar
    Left = 0
    Top = 388
    Width = 614
    Height = 25
    Panels = <
      item
        Width = 400
      end
      item
        Width = 300
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object PnlCHS: TPanel
    Left = 0
    Top = 319
    Width = 614
    Height = 69
    Align = alBottom
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    object GroupBox4: TGroupBox
      Left = 1
      Top = 1
      Width = 304
      Height = 67
      Align = alLeft
      Caption = 'C-H-S:'
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      object Label28: TLabel
        Left = 8
        Top = 15
        Width = 95
        Height = 13
        Caption = #26609#38754'(&Cylins)'#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label29: TLabel
        Left = 101
        Top = 15
        Width = 88
        Height = 13
        Caption = #30913#22836'(&Heads)'#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label30: TLabel
        Left = 194
        Top = 15
        Width = 102
        Height = 13
        Caption = #25159#21306'(&Sectors)'#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object SEditCylins: TSpinEdit
        Left = 9
        Top = 32
        Width = 73
        Height = 22
        MaxValue = 1023
        MinValue = 0
        TabOrder = 0
        Value = 0
        OnChange = SEditCylinsChange
      end
      object SEditHeads: TSpinEdit
        Left = 103
        Top = 33
        Width = 73
        Height = 22
        MaxValue = 254
        MinValue = 0
        TabOrder = 1
        Value = 0
        OnChange = SEditCylinsChange
      end
      object SEditSectors: TSpinEdit
        Left = 195
        Top = 33
        Width = 73
        Height = 22
        MaxValue = 63
        MinValue = 1
        TabOrder = 2
        Value = 1
        OnChange = SEditCylinsChange
      end
    end
    object GroupBox5: TGroupBox
      Left = 305
      Top = 1
      Width = 151
      Height = 67
      Align = alClient
      Caption = 'AbsAddress:'
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      object Label27: TLabel
        Left = 8
        Top = 15
        Width = 117
        Height = 13
        Caption = #25159#21306#32477#23545#29289#29702#22320#22336#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Edit1: TEdit
        Left = 7
        Top = 35
        Width = 98
        Height = 21
        Enabled = False
        TabOrder = 0
        Text = '0'
      end
    end
    object GroupBox6: TGroupBox
      Left = 456
      Top = 1
      Width = 157
      Height = 67
      Align = alRight
      Caption = 'DiskInfo:'
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      object Label31: TLabel
        Left = 8
        Top = 15