DOS/V Power Report 2001 January/VPR0101A.BIN/APP_DEMO/DI4DEMO/UTILITY/WINDOWS/PartInNT.exe/0/RCDATA/TDISKINSPECTOR/TDISKINSPECTOR.txt

Text File | 2000-09-08 | 16KB | 645 lines

object DiskInspector: TDiskInspector
  Left = 314
  Top = 262
  Width = 635
  Height = 460
  Caption = 'Partition Info'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = True
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object TLabel
    Left = 260
    Top = -344
    Width = 56
    Height = 13
    Caption = 'Cylinders:'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object TLabel
    Left = 372
    Top = -344
    Width = 41
    Height = 13
    Caption = 'Heads:'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object TLabel
    Left = 457
    Top = -344
    Width = 87
    Height = 13
    Caption = 'Sectors/Track:'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object pnlAllBackground: TPanel
    Left = 0
    Top = 0
    Width = 627
    Height = 414
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 0
    object pnlTop: TPanel
      Left = 0
      Top = 0
      Width = 627
      Height = 73
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 0
      object pnlTopClient: TPanel
        Left = 0
        Top = 0
        Width = 209
        Height = 59
        Align = alLeft
        BevelOuter = bvNone
        TabOrder = 0
        object Label4: TLabel
          Left = 10
          Top = 2
          Width = 86
          Height = 13
          Caption = 'Physical &Drive:'
          FocusControl = HardDiskComboBox
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          Transparent = True
        end
        object SizeMB: TLabel
          Left = 14
          Top = 29
          Width = 44
          Height = 13
          Alignment = taRightJustify
          Caption = '2437.3 '
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label9: TLabel
          Left = 59
          Top = 29
          Width = 66
          Height = 13
          Caption = 'MB Total Size'
          Transparent = True
        end
        object HardDiskComboBox: TComboBox
          Left = 101
          Top = -1
          Width = 107
          Height = 21
          Style = csDropDownList
          ItemHeight = 13
          TabOrder = 0
          OnClick = HardDiskComboBoxClick
          OnEnter = HardDiskComboBoxEnter
        end
      end
      object pnlTopLower: TPanel
        Left = 0
        Top = 59
        Width = 627
        Height = 14
        Align = alBottom
        BevelOuter = bvNone
        TabOrder = 1
        object Label6: TLabel
          Left = 8
          Top = -2
          Width = 119
          Height = 13
          Caption = 'Partition Information:'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          Transparent = True
        end
      end
      object pnlTopRight: TPanel
        Left = 616
        Top = 0
        Width = 11
        Height = 59
        Align = alRight
        BevelOuter = bvNone
        TabOrder = 3
      end
      object ErrorMsgBox: TMemo
        Left = 265
        Top = 0
        Width = 351
        Height = 59
        TabStop = False
        Align = alClient
        Color = clInfoBk
        Lines.Strings = (
          'ErrorMsgBox')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 2
      end
      object Panel1: TPanel
        Left = 209
        Top = 0
        Width = 56
        Height = 59
        Align = alLeft
        BevelOuter = bvNone
        TabOrder = 4
        object Label1: TLabel
          Left = 13
          Top = 1
          Width = 40
          Height = 39
          Caption = 'Disk && partition errors:'
          WordWrap = True
        end
      end
    end
    object pnlBottom: TPanel
      Left = 0
      Top = 373
      Width = 627
      Height = 41
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 2
      object pnlBottomRight: TPanel
        Left = 6
        Top = 0
        Width = 621
        Height = 41
        Align = alRight
        BevelOuter = bvNone
        TabOrder = 0
        object CopyToClipboard: TButton
          Left = 182
          Top = 7
          Width = 105
          Height = 26
          Caption = 'Cop&y to Clipboard'
          TabOrder = 2
          OnClick = CopyToClipboardClick
        end
        object Button7: TButton
          Left = 297
          Top = 7
          Width = 76
          Height = 26
          Caption = 'Save &As...'
          TabOrder = 3
          OnClick = SaveAsClick
        end
        object Button6: TButton
          Left = 382
          Top = 8
          Width = 75
          Height = 25
          Caption = 'Printer F&ont...'
          TabOrder = 4
          OnClick = FontClick
        end
        object Button5: TButton
          Left = 467
          Top = 8
          Width = 62
          Height = 25
          Caption = '&Print...'
          TabOrder = 5
          OnClick = PrintClick
        end
        object Button2: TButton
          Left = 540
          Top = 8
          Width = 71
          Height = 25
          Caption = '&Close'
          TabOrder = 6
          OnClick = CloseClick
        end
        object BootRecord: TButton
          Left = 0
          Top = 8
          Width = 89
          Height = 25
          Caption = '&Boot Record...'
          Enabled = False
          TabOrder = 0
          OnClick = BootRecordClick
        end
        object PreviewBtn: TButton
          Left = 96
          Top = 8
          Width = 75
          Height = 25
          Caption = 'Pre&view...'
          TabOrder = 1
          OnClick = PreviewBtnClick
        end
      end
    end
    object pnlRight: TPanel
      Left = 617
      Top = 73
      Width = 10
      Height = 300
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 3
    end
    object pnlLeft: TPanel
      Left = 0
      Top = 73
      Width = 10
      Height = 300
      Align = alLeft
      BevelOuter = bvNone
      TabOrder = 4
    end
    object pnlMiddle: TPanel
      Left = 10
      Top = 73
      Width = 607
      Height = 300
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object PartInfoListView: TListView
        Left = 0
        Top = 0
        Width = 607
        Height = 132
        Align = alClient
        Columns = <
          item
            Caption = 'Volume'
            Width = 113
          end
          item
            Alignment = taRightJustify
            Caption = 'Errors'
            Width = -2
            WidthType = (
              -2)
          end
          item
            Caption = 'PartType'
            Width = 65
          end
          item
            Caption = 'Status'
            Width = 63
          end
          item
            Alignment = taRightJustify
            Caption = 'Size (MB)'
            Width = 60
          end
          item
            Alignment = taRightJustify
            Caption = 'PartSect'
            Width = 78
          end
          item
            Alignment = taRightJustify
            Caption = '#'
            Width = 30
          end
          item
            Alignment = taRightJustify
            Caption = 'Start Sector'
            Width = 78
          end
          item
            Alignment = taRightJustify
            Caption = 'Total Sectors'
            Width = 78
          end
          item
            Alignment = taRightJustify
            Caption = 'UsedSects'
            Width = 78
          end
          item
            Alignment = taRightJustify
            Caption = 'FreeSects'
            Width = 78
          end>
        ReadOnly = True
        RowSelect = True
        TabOrder = 0
        ViewStyle = vsReport
        OnClick = PartInfoListViewClick
        OnEnter = PartInfoListViewEnter
        OnKeyUp = PartInfoListViewKeyUp
      end
      object pnlMiddleBottom: TPanel
        Left = 0
        Top = 132
        Width = 607
        Height = 168
        Align = alBottom
        BevelOuter = bvNone
        TabOrder = 1
        object Messages: TLabel
          Left = 2
          Top = 15
          Width = 154
          Height = 13
          Caption = 'Disk Geometry Information:'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label5: TLabel
          Left = 160
          Top = 15
          Width = 34
          Height = 13
          Caption = 'Disk: '
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object HardDisk: TLabel
          Left = 192
          Top = 15
          Width = 44
          Height = 13
          Caption = 'HardDisk'
        end
        object Label3: TLabel
          Left = 241
          Top = 15
          Width = 56
          Height = 13
          Caption = 'Cylinders:'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Cylinders: TLabel
          Left = 298
          Top = 15
          Width = 42
          Height = 13
          Caption = 'Cylinders'
        end
        object Label2: TLabel
          Left = 345
          Top = 15
          Width = 41
          Height = 13
          Caption = 'Heads:'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Heads: TLabel
          Left = 389
          Top = 15
          Width = 31
          Height = 13
          Caption = 'Heads'
        end
        object Label7: TLabel
          Left = 431
          Top = 15
          Width = 87
          Height = 13
          Caption = 'Sectors/Track:'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object SectorsPerTrack: TLabel
          Left = 520
          Top = 15
          Width = 80
          Height = 13
          Caption = 'SectorsPerTrack'
        end
        object PartTablesListView: TListView
          Left = 0
          Top = 32
          Width = 607
          Height = 136
          Align = alBottom
          Columns = <
            item
              Caption = 'Volume'
              Width = 97
            end
            item
              Alignment = taRightJustify
              Caption = 'Errors'
              Width = -2
              WidthType = (
                -2)
            end
            item
              Alignment = taRightJustify
              Caption = 'PartSect'
              Width = 72
            end
            item
              Alignment = taRightJustify
              Caption = '#'
              Width = 27
            end
            item
              Caption = 'Boot'
              Width = 34
            end
            item
              Alignment = taRightJustify
              Caption = 'BCyl'
              Width = 39
            end
            item
              Alignment = taRightJustify
              Caption = 'Head'
              Width = -2
              WidthType = (
                -2)
            end
            item
              Alignment = taRightJustify
              Caption = 'Sect'
              Width = -2
              WidthType = (
                -2)
            end
            item
              Alignment = taRightJustify
              Caption = 'FS'
              Width = 33
            end
            item
              Alignment = taRightJustify
              Caption = 'ECyl'
              Width = 39
            end
            item
              Alignment = taRightJustify
              Caption = 'Head'
              Width = -2
              WidthType = (
                -2)
            end
            item
              Alignment = taRightJustify
              Caption = 'Sect'
              Width = -2
              WidthType = (
                -2)
            end
            item
              Alignment = taRightJustify
              Caption = 'StartSect'
              Width = 72
            end
            item
              Alignment = taRightJustify
              Caption = 'NumSects'
              Width = 72
            end>
          ReadOnly = True
          RowSelect = True
          TabOrder = 0
          ViewStyle = vsReport
          OnClick = PartTablesListViewClick
          OnEnter = PartTablesListViewEnter
          OnKeyUp = PartTablesListViewKeyUp
        end
      end
    end
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'txt'
    Filter = 'Text files (*.txt)|*.txt|All files (*.*)|*.*'
    Left = 135
    Top = 409
  end
  object PrintDialog1: TPrintDialog
    Left = 175
    Top = 409
  end
  object PrinterSetupDialog1: TPrinterSetupDialog
    Left = 39
    Top = 402
  end
  object FontDialog1: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 78
    Top = 402
  end
  object MainMenu1: TMainMenu
    Left = 117
    Top = 411
    object File1: TMenuItem
      Caption = '&File'
      object BootRecord1: TMenuItem
        Caption = '&Boot Record...'
        OnClick = BootRecordClick
      end
      object Preview1: TMenuItem
        Caption = 'Pre&view...'
        OnClick = PreviewBtnClick
      end
      object CopyTo1: TMenuItem
        Caption = 'Cop&y to Clipboard'
        OnClick = CopyTo1Click
      end
      object SaveAs1: TMenuItem
        Caption = 'Save &As...'
        OnClick = SaveAs1Click
      end
      object Print1: TMenuItem
        Caption = '&Print...'
        OnClick = Print1Click
      end
      object PrinterSetup1: TMenuItem
        Caption = 'Printer &Setup...'
        OnClick = PrinterSetup1Click
      end
      object PrinterFont1: TMenuItem
        Caption = 'Printer F&ont...'
        OnClick = Font2Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object About1: TMenuItem
        Caption = 'Abou&t...'
        OnClick = About1Click
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = '&Close'
        OnClick = Exit1Click
      end
    end
  end
end