PC World Komputer 1998 January/Pcwk0198.iso/Wtestowe/CALYPSO/_SETUP.1/Tools.dll/0/RCDATA/TSYSFORM/TSYSFORM.txt

Text File | 1997-07-17 | 38KB | 1,348 lines

object SysForm: TSysForm
  Left = 284
  Top = 182
  ActiveControl = MainPageControl
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'Sight && Sound Instant System Information'
  ClientHeight = 280
  ClientWidth = 442
  Font.Color = clBlack
  Font.Height = -12
  Font.Name = 'Arial'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  KeyPreview = True
  Position = poScreenCenter
  Scaled = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 15
  object MainPageControl: TExtPageControl
    Left = 0
    Top = 0
    Width = 442
    Height = 244
    ActivePage = tsMemRes
    Align = alClient
    TabOrder = 0
    OnChange = MainPageControlChange
    TabActiveColor = clBtnFace
    TabActiveFont.Color = clWindowText
    TabActiveFont.Height = -12
    TabActiveFont.Name = 'Arial'
    TabActiveFont.Style = []
    TabInactiveColor = 10789024
    TabInactiveFont.Color = clWindowText
    TabInactiveFont.Height = -12
    TabInactiveFont.Name = 'Arial'
    TabInactiveFont.Style = []
    object tsMemRes: TTabSheet
      Tag = 4
      Caption = '&Memory/Resources'
      object sbMemRes: TScrollBox
        Left = 0
        Top = 0
        Width = 434
        Height = 214
        HorzScrollBar.Visible = False
        Align = alClient
        TabOrder = 0
        object Label18: TLabel
          Left = 8
          Top = 23
          Width = 72
          Height = 15
          Caption = 'Memory total:'
        end
        object Label27: TLabel
          Left = 8
          Top = 42
          Width = 84
          Height = 15
          Caption = 'Memory usage:'
        end
        object Label28: TLabel
          Left = 8
          Top = 61
          Width = 93
          Height = 15
          Caption = 'Swap file setting:'
        end
        object Label29: TLabel
          Left = 8
          Top = 80
          Width = 78
          Height = 15
          Caption = 'Swap file size:'
        end
        object Label30: TLabel
          Left = 8
          Top = 100
          Width = 91
          Height = 15
          Caption = 'Swap file usage:'
        end
        object Label33: TLabel
          Left = 8
          Top = 4
          Width = 98
          Height = 15
          Caption = 'Memory available:'
        end
        object lbMemAvailable: TLabel
          Left = 144
          Top = 4
          Width = 86
          Height = 15
          Caption = 'lbMemAvailable'
          Font.Color = clNavy
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object lbMemTotal: TLabel
          Left = 144
          Top = 23
          Width = 64
          Height = 15
          Caption = 'lbMemTotal'
          Font.Color = clNavy
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object lbSwapFileSetting: TLabel
          Left = 144
          Top = 61
          Width = 99
          Height = 15
          Caption = 'lbSwapFileSetting'
          Font.Color = clNavy
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object lbSwapFileSize: TLabel
          Left = 144
          Top = 80
          Width = 84
          Height = 15
          Caption = 'lbSwapFileSize'
          Font.Color = clNavy
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object dgSwapFileUsage: TDragGauge
          Left = 144
          Top = 99
          Width = 280
          Height = 16
          AllowUserDrag = False
          BorderStyle = bsSimple
          CurValue = 35
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          MaxValue = 100
          ParentFont = False
        end
        object dgMemUsage: TDragGauge
          Left = 144
          Top = 41
          Width = 280
          Height = 16
          AllowUserDrag = False
          BorderStyle = bsSimple
          CurValue = 35
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          MaxValue = 100
          ParentFont = False
        end
        object ntPanel: TPanel
          Left = 0
          Top = 121
          Width = 430
          Height = 89
          Align = alBottom
          BevelOuter = bvNone
          TabOrder = 2
          object Label31: TLabel
            Left = 8
            Top = 55
            Width = 130
            Height = 15
            Caption = 'Free system resources:'
          end
          object Label32: TLabel
            Left = 8
            Top = 30
            Width = 111
            Height = 15
            Caption = 'Free GDI resources:'
          end
          object Label34: TLabel
            Left = 8
            Top = 5
            Width = 117
            Height = 15
            Caption = 'Free User resources:'
          end
          object dgFreeSystemRes: TDragGauge
            Left = 143
            Top = 55
            Width = 280
            Height = 16
            AllowUserDrag = False
            BarColor = clGreen
            BorderStyle = bsSimple
            CurValue = 35
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            MaxValue = 100
            ParentFont = False
          end
          object dgFreeGDIRes: TDragGauge
            Left = 143
            Top = 30
            Width = 280
            Height = 16
            AllowUserDrag = False
            BarColor = clGreen
            BorderStyle = bsSimple
            CurValue = 35
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            MaxValue = 100
            ParentFont = False
          end
          object dgFreeUserRes: TDragGauge
            Left = 143
            Top = 5
            Width = 280
            Height = 16
            AllowUserDrag = False
            BarColor = clGreen
            BorderStyle = bsSimple
            CurValue = 35
            Font.Color = clBlack
            Font.Height = -11
            Font.Name = 'Arial'
            Font.Style = []
            MaxValue = 100
            ParentFont = False
          end
        end
      end
    end
    object tsWindows: TTabSheet
      Tag = 2
      Caption = '&Windows'
      object sbWindows: TScrollBox
        Left = 0
        Top = 0
        Width = 434
        Height = 214
        HorzScrollBar.Visible = False
        Align = alClient
        TabOrder = 0
        object Label2: TLabel
          Left = 5
          Top = 25
          Width = 139
          Height = 15
          Caption = ' Registered organisation:'
        end
        object Label3: TLabel
          Left = 5
          Top = 45
          Width = 82
          Height = 15
          Caption = ' Windows type:'
        end
        object Label4: TLabel
          Left = 5
          Top = 65
          Width = 100
          Height = 15
          Caption = ' Windows version:'
        end
        object Label5: TLabel
          Left = 5
          Top = 85
          Width = 87
          Height = 15
          Caption = ' Windows build:'
        end
        object Label6: TLabel
          Left = 5
          Top = 145
          Width = 120
          Height = 15
          Caption = ' Windows install date:'
        end
        object Label7: TLabel
          Left = 5
          Top = 105
          Width = 84
          Height = 15
          Caption = ' Windows path:'
        end
        object Label8: TLabel
          Left = 5
          Top = 125
          Width = 142
          Height = 15
          Caption = ' Windows temporary path:'
        end
        object Label1: TLabel
          Left = 5
          Top = 5
          Width = 104
          Height = 15
          Caption = ' Registered owner:'
        end
        object lbRegOwner: TLabel
          Left = 155
          Top = 5
          Width = 69
          Height = 15
          Caption = 'lbRegOwner'
          Font.Color = clNavy
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
        end
        object lbRegOrganisation: TLabel
          Left = 155
          Top = 25
          Width = 104
          Height = 15
          Caption = 'lbRegOrganisation'
          Font.Color = clNavy
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
        end
        object lbWinType: TLabel
          Left = 155
          Top = 45
          Width = 57
          Height = 15
          Caption = 'lbWinType'
          Font.Color = clNavy
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
        end
        object lbWinVersion: TLabel
          Left = 155
          Top = 65
          Width = 73
          Height = 15
          Caption = 'lbWinVersion'
          Font.Color = clNavy
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
        end
        object lbWinBuild: TLabel
          Left = 155
          Top = 85
          Width = 59
          Height = 15
          Caption = 'lbWinBuild'
          Font.Color = clNavy
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
        end
        object lbWinInstallDate: TLabel
          Left = 155
          Top = 145
          Width = 90
          Height = 15
          Caption = 'lbWinInstallDate'
          Font.Color = clNavy
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
        end
        object lbWinPath: TLabel
          Left = 155
          Top = 105
          Width = 56
          Height = 15
          Caption = 'lbWinPath'
          Font.Color = clNavy
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
        end
        object lbWinTempPath: TLabel
          Left = 155
          Top = 125
          Width = 88
          Height = 15
          Caption = 'lbWinTempPath'
          Font.Color = clNavy
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
        end
        object Label12: TLabel
          Left = 5
          Top = 165
          Width = 102
          Height = 15
          Caption = ' Windows running:'
        end
        object lbWindowsRunning: TLabel
          Left = 155
          Top = 165
          Width = 108
          Height = 15
          Caption = 'lbWindowsRunning'
          Font.Color = clNavy
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
        end
      end
    end
    object tsHardware: TTabSheet
      Tag = 1
      Caption = '&Hardware'
      object sbHardware: TScrollBox
        Left = 0
        Top = 0
        Width = 434
        Height = 214
        HorzScrollBar.Visible = False
        Align = alClient
        TabOrder = 0
        object Label9: TLabel
          Left = 8
          Top = 21
          Width = 80
          Height = 15
          Caption = 'Keyboard type:'
        end
        object Label13: TLabel
          Left = 8
          Top = 71
          Width = 80
          Height = 15
          Caption = 'Default printer:'
        end
        object Label17: TLabel
          Left = 8
          Top = 4
          Width = 54
          Height = 15
          Caption = 'CPU type:'
        end
        object lbCPUType: TLabel
          Left = 120
          Top = 4
          Width = 62
          Height = 15
          Caption = 'lbCPUType'
          Font.Color = clNavy
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
        end
        object lbKeybrdType: TLabel
          Left = 120
          Top = 21
          Width = 74
          Height = 15
          Caption = 'lbKeybrdType'
          Font.Color = clNavy
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
        end
        object lbDefaultPrinter: TLabel
          Left = 120
          Top = 71
          Width = 85
          Height = 15
          Caption = 'lbDefaultPrinter'
          Font.Color = clNavy
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
        end
        object Label14: TLabel
          Left = 8
          Top = 54
          Width = 32
          Height = 15
          Caption = 'Ports:'
        end
        object lbPorts: TLabel
          Left = 120
          Top = 54
          Width = 39
          Height = 15
          Caption = 'lbPorts'
          Font.Color = clNavy
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
        end
        object Label15: TLabel
          Left = 8
          Top = 88
          Width = 89
          Height = 15
          Caption = 'Display adapter:'
        end
        object lbDisplayAdapter: TLabel
          Left = 120
          Top = 88
          Width = 93
          Height = 15
          Caption = 'lbDisplayAdapter'
          Font.Color = clNavy
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
        end
        object Label10: TLabel
          Left = 8
          Top = 105
          Width = 102
          Height = 15
          Caption = 'Display resolution:'
        end
        object lbDisplayRes: TLabel
          Left = 120
          Top = 105
          Width = 74
          Height = 15
          Caption = 'lbDisplayRes'
          Font.Color = clNavy
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
        end
        object Label26: TLabel
          Left = 8
          Top = 38
          Width = 90
          Height = 15
          Caption = 'Keyboard layout:'
        end
        object lbKeyboardLayout: TLabel
          Left = 120
          Top = 38
          Width = 98
          Height = 15
          Caption = 'lbKeyboardLayout'
          Font.Color = clNavy
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
        end
        object Label35: TLabel
          Left = 8
          Top = 122
          Width = 43
          Height = 15
          Caption = 'Monitor:'
        end
        object lbMonitor: TLabel
          Left = 120
          Top = 122
          Width = 50
          Height = 15
          Caption = 'lbMonitor'
          Font.Color = clNavy
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
        end
        object Label36: TLabel
          Left = 8
          Top = 139
          Width = 65
          Height = 15
          Caption = 'Mouse type:'
        end
        object lbMouseType: TLabel
          Left = 120
          Top = 139
          Width = 73
          Height = 15
          Caption = 'lbMouseType'
          Font.Color = clNavy
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
        end
        object Label37: TLabel
          Left = 8
          Top = 155
          Width = 76
          Height = 15
          Caption = 'SCSI adapter:'
        end
        object lbSCSIAdapter: TLabel
          Left = 120
          Top = 155
          Width = 80
          Height = 15
          Caption = 'lbSCSIAdapter'
          Font.Color = clNavy
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
        end
        object Label38: TLabel
          Left = 8
          Top = 172
          Width = 69
          Height = 15
          Caption = 'Modem type:'
        end
        object lbModemType: TLabel
          Left = 120
          Top = 172
          Width = 77
          Height = 15
          Caption = 'lbModemType'
          Font.Color = clNavy
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
        end
        object Label39: TLabel
          Left = 8
          Top = 189
          Width = 84
          Height = 15
          Caption = 'Sound adapter:'
        end
        object lbSoundAdapter: TLabel
          Left = 120
          Top = 189
          Width = 88
          Height = 15
          Caption = 'lbSoundAdapter'
          Font.Color = clNavy
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
        end
      end
    end
    object tsNetwork: TTabSheet
      Tag = 3
      Caption = '&Network'
      object sbNetwork: TScrollBox
        Left = 0
        Top = 0
        Width = 434
        Height = 214
        HorzScrollBar.Visible = False
        Align = alClient
        TabOrder = 0
        object Label11: TLabel
          Left = 8
          Top = 5
          Width = 111
          Height = 15
          Caption = 'Network user name:'
        end
        object Label20: TLabel
          Left = 8
          Top = 25
          Width = 138
          Height = 15
          Caption = 'Network computer name:'
        end
        object lbNetComputerName: TLabel
          Left = 175
          Top = 25
          Width = 118
          Height = 15
          Caption = 'lbNetComputerName'
          Font.Color = clNavy
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
        end
        object lbNetUserName: TLabel
          Left = 175
          Top = 5
          Width = 90
          Height = 15
          Caption = 'lbNetUserName'
          Font.Color = clNavy
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
        end
        object Label16: TLabel
          Left = 8
          Top = 45
          Width = 158
          Height = 15
          Caption = 'Network computer comment:'
        end
        object lbNetComputerComment: TLabel
          Left = 175
          Top = 45
          Width = 118
          Height = 15
          Caption = 'lbNetComputerName'
          Font.Color = clNavy
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
        end
        object Label19: TLabel
          Left = 8
          Top = 65
          Width = 109
          Height = 15
          Caption = 'Network workgroup:'
        end
        object lbNetWorkgroup: TLabel
          Left = 175
          Top = 65
          Width = 89
          Height = 15
          Caption = 'lbNetWorkgroup'
          Font.Color = clNavy
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
        end
        object Label21: TLabel
          Left = 8
          Top = 85
          Width = 83
          Height = 15
          Caption = 'Network share:'
        end
        object lbNetSharing: TLabel
          Left = 175
          Top = 85
          Width = 72
          Height = 15
          Caption = 'lbNetSharing'
          Font.Color = clNavy
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
        end
        object Label22: TLabel
          Left = 8
          Top = 105
          Width = 128
          Height = 15
          Caption = 'Network adapter name:'
        end
        object lbNetAdapterName: TLabel
          Left = 175
          Top = 105
          Width = 105
          Height = 15
          Caption = 'lbNetAdapterName'
          Font.Color = clNavy
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
        end
        object Label23: TLabel
          Left = 8
          Top = 125
          Width = 80
          Height = 15
          Caption = 'Network client:'
        end
        object lbNetClient: TLabel
          Left = 175
          Top = 125
          Width = 61
          Height = 15
          Caption = 'lbNetClient'
          Font.Color = clNavy
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
        end
        object Label24: TLabel
          Left = 8
          Top = 145
          Width = 136
          Height = 15
          Caption = 'Network dial-up provider:'
        end
        object lbNetDialUpProvider: TLabel
          Left = 175
          Top = 145
          Width = 112
          Height = 15
          Caption = 'lbNetDialUpProvider'
          Font.Color = clNavy
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
        end
        object Label25: TLabel
          Left = 8
          Top = 165
          Width = 152
          Height = 15
          Caption = 'Network dial-up user name:'
        end
        object lbNetDialUpUsername: TLabel
          Left = 175
          Top = 165
          Width = 126
          Height = 15
          Caption = 'lbNetDialUpUsername'
          Font.Color = clNavy
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
        end
      end
    end
    object tsDrives: TTabSheet
      Tag = 5
      Caption = '&Disks'
      object DriveStatGroupBox: TGroupBox
        Left = 214
        Top = 0
        Width = 219
        Height = 208
        Caption = ' Disk statistics: '
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        object Label40: TLabel
          Left = 59
          Top = 48
          Width = 52
          Height = 15
          Alignment = taRightJustify
          Caption = 'Available:'
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object lbAvailableBytes: TLabel
          Left = 115
          Top = 48
          Width = 89
          Height = 15
          Caption = 'lbAvailableBytes'
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
        end
        object Label41: TLabel
          Left = 61
          Top = 31
          Width = 50
          Height = 15
          Alignment = taRightJustify
          Caption = 'Capacity:'
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object Label42: TLabel
          Left = 58
          Top = 64
          Width = 53
          Height = 15
          Alignment = taRightJustify
          Caption = 'Disk type:'
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object lbDriveCapacity: TLabel
          Left = 115
          Top = 31
          Width = 85
          Height = 15
          Caption = 'lbDriveCapacity'
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
        end
        object lbDriveType: TLabel
          Left = 115
          Top = 64
          Width = 64
          Height = 15
          Caption = 'lbDriveType'
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
        end
        object Label43: TLabel
          Left = 66
          Top = 14
          Width = 45
          Height = 15
          Alignment = taRightJustify
          Caption = 'Volume:'
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object lbVolume: TLabel
          Left = 115
          Top = 14
          Width = 52
          Height = 15
          Caption = 'lbVolume'
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
        end
        object DrvSpaceGauge: TGauge
          Left = 6
          Top = 86
          Width = 207
          Height = 6
          ShowText = False
          BorderStyle = bsNone
          ForeColor = clRed
          BackColor = clGreen
          Progress = 100
        end
        object Label44: TLabel
          Left = 5
          Top = 100
          Width = 106
          Height = 15
          Alignment = taRightJustify
          Caption = 'Sectors per cluster:'
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object Label45: TLabel
          Left = 20
          Top = 118
          Width = 91
          Height = 15
          Alignment = taRightJustify
          Caption = 'Bytes per sector:'
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object Label46: TLabel
          Left = 36
          Top = 135
          Width = 75
          Height = 15
          Alignment = taRightJustify
          Caption = 'Free clusters:'
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object Label47: TLabel
          Left = 34
          Top = 153
          Width = 77
          Height = 15
          Alignment = taRightJustify
          Caption = 'Total clusters:'
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object Label48: TLabel
          Left = 36
          Top = 170
          Width = 75
          Height = 15
          Alignment = taRightJustify
          Caption = 'Cluster bytes:'
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object lbSectorsPerCluster: TLabel
          Left = 115
          Top = 100
          Width = 111
          Height = 15
          Caption = 'lbSectorsPerCluster'
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
        end
        object lbBytesPerSector: TLabel
          Left = 115
          Top = 118
          Width = 94
          Height = 15
          Caption = 'lbBytesPerSector'
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
        end
        object lbFreeClusters: TLabel
          Left = 115
          Top = 135
          Width = 82
          Height = 15
          Caption = 'lbFreeClusters'
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
        end
        object lbTotalClusters: TLabel
          Left = 115
          Top = 153
          Width = 84
          Height = 15
          Caption = 'lbTotalClusters'
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
        end
        object lbClusterBytes: TLabel
          Left = 115
          Top = 170
          Width = 80
          Height = 15
          Caption = 'lbClusterBytes'
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          ShowAccelChar = False
        end
      end
      object lbDrives: TEnhDriveListBox
        Left = 3
        Top = 6
        Width = 207
        Height = 202
        ExtraOptions = [ShowAll, ShowVolName, ShowBitmaps]
        TextCase = tcUpperCase
        OnChange = lbDrivesClick
        IntegralHeight = True
        TabOrder = 1
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 244
    Width = 442
    Height = 36
    Align = alBottom
    BevelInner = bvLowered
    BevelOuter = bvLowered
    BorderWidth = 2
    TabOrder = 1
    object ledRefresh: TLED
      Left = 12
      Top = 10
      LEDFarbe = Rot
      LEDEinAus = Ein
    end
    object cbAutoRefresh: TCheckBox
      Left = 115
      Top = 9
      Width = 184
      Height = 17
      Caption = '&Autorefresh every 2 seconds'
      State = cbChecked
      TabOrder = 0
      OnClick = cbAutoRefreshClick
    end
    object btnRefresh: TOfficeButton
      Left = 35
      Top = 8
      Width = 75
      Height = 20
      Caption = '&Refresh'
      Options = [boMonoDisplay, boPopupMark, boShowBevel]
      OnClick = btnRefreshClick
      IBitmap = {}
    end
    object btnHelp: TOfficeButton
      Left = 331
      Top = 8
      Width = 75
      Height = 20
      Caption = 'H&elp'
      Options = [boMonoDisplay, boPopupMark, boShowBevel]
      OnClick = btnHelpClick
      IBitmap = {}
    end
    object OfficeButton1: TOfficeButton
      Left = 409
      Top = 8
      Width = 22
      Height = 20
      Bitmap.Data = {
        8A050000424D8A05000000000000360400002800000013000000110000000100
        0800000000005401000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
        A600000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00070707070707
        0707070707070707070707070700070707070707070707070707070707070707
        0700070707070707000007070707070707070707070007070707070700000707
        0707070707070707070007070707070000070707070404040707070707000700
        0707070000070707070404040707070707000700000700000707070707070707
        07070707070007000000000007070707070404F8070707070700070000000000
        00000007070404F8070707070700070000000000000007070707040407070707
        0700070000000000000707070707070404F8070707000700000000000707F804
        040707F80404F807070007000000000707070404F80707070404040707000700
        0000070707070404F807070704040407070007000007070707070704040707F8
        0404F8070700070007070707070707070404040404F807070700070707070707
        0707070707070707070707070700}
      Options = [boPopupMark, boShowBevel]
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      OnClick = OfficeButton1Click
      ParentFont = False
      IBitmap = {
        424D8A0500000000000036040000280000001300000011000000010008000000
        0000540100000000000000000000000000000000000000000000000080000080
        000000808000800000008000800080800000C0C0C000C0DCC000F0CAA6000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000F0FBFF00A4A0A000808080000000FF0000FF
        000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0007070707070707070707
        0707070707070707070707070707070707070707070707070707070707070707
        0707070700000707070707070707070707070707070707070000070707070707
        0707070707070707070707000007070707F8F8F8070707070700070007070700
        0007070707F8F8F8070707070700070000070000070707070707070707070707
        07000700000000000707070707F8F8FF07070707070007000000000000000007
        07F8F8FF070707070700070000000000000007070707F8F80707070707000700
        0000000000070707070707F8F8FF070707000700000000000707FFF8F80707FF
        F8F8FF0707000700000000070707F8F8FF070707F8F8F8070707070000000707
        0707F8F8FF070707F8F8F8070707070000070707070707F8F80707FFF8F8FF07
        070707000707070707070707F8F8F8F8F8FF0707070707070707070707070707
        07070707070707070707}
    end
  end
  object MainSysInfo: TSysInfo
    Left = 74
    Top = 39
  end
  object SYSTimer: TTimer
    Interval = 2000
    OnTimer = SYSTimerTimer
    Left = 24
    Top = 40
  end
  object MSOfficeCaption1: TMSOfficeCaption
    AppNameText.Caption = 'Program -'
    AppNameText.FontKind = fkSystemB
    AppNameText.Visible = False
    CaptionText.Caption = 'Instant System Information'
    CaptionText.FontKind = fkSystem
    CaptionText.Visible = True
    CompanyText.Caption = 'Sight && Sound'
    CompanyText.Font.Color = clWindowText
    CompanyText.Font.Height = -11
    CompanyText.Font.Name = 'Arial'
    CompanyText.Font.Pitch = fpVariable
    CompanyText.Font.Style = [fsBold, fsItalic]
    CompanyText.FontKind = fkCustom
    CompanyText.Visible = True
    Enabled = geWhenActive
    Left = 50
    Top = 76
  end
end