msi_overview.dfm

MSIC, source code for delphi

object frmMSI_Overview: TfrmMSI_Overview
  Left = 353
  Top = 360
  BorderStyle = bsDialog
  Caption = 'MiTeC System Information'
  ClientHeight = 525
  ClientWidth = 394
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 488
    Width = 394
    Height = 37
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 0
    object Panel2: TPanel
      Left = 228
      Top = 0
      Width = 166
      Height = 37
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 0
      object bRefresh: TButton
        Left = 4
        Top = 4
        Width = 75
        Height = 25
        Cursor = crHandPoint
        Caption = 'Refresh'
        TabOrder = 0
        OnClick = cmRefresh
      end
      object bOK: TButton
        Left = 85
        Top = 4
        Width = 75
        Height = 25
        Cursor = crHandPoint
        Cancel = True
        Caption = 'OK'
        Default = True
        ModalResult = 1
        TabOrder = 1
        OnClick = cmClose
      end
    end
    object bReport: TButton
      Left = 8
      Top = 4
      Width = 75
      Height = 25
      Cursor = crHandPoint
      Caption = 'Report...'
      TabOrder = 1
      OnClick = cmReportClick
    end
    object bES: TButton
      Left = 86
      Top = 4
      Width = 100
      Height = 25
      Cursor = crHandPoint
      Caption = 'Exception Stack...'
      TabOrder = 2
      OnClick = bESClick
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 0
    Width = 394
    Height = 488
    Align = alClient
    BevelOuter = bvNone
    BorderWidth = 5
    TabOrder = 1
    object pc: TPageControl
      Left = 5
      Top = 5
      Width = 384
      Height = 478
      Cursor = crHandPoint
      ActivePage = tsProcesses
      Align = alClient
      MultiLine = True
      TabIndex = 18
      TabOrder = 0
      object tsWksta: TTabSheet
        Caption = ' Machine '
        object pNumLock: TPanel
          Left = 124
          Top = 370
          Width = 77
          Height = 20
          BorderStyle = bsSingle
          Caption = 'Num Lock'
          Color = clSilver
          TabOrder = 0
        end
        object pCapsLock: TPanel
          Left = 206
          Top = 370
          Width = 77
          Height = 20
          BorderStyle = bsSingle
          Caption = 'Caps Lock'
          TabOrder = 1
        end
        object pScrollLock: TPanel
          Left = 288
          Top = 370
          Width = 77
          Height = 20
          BorderStyle = bsSingle
          Caption = 'Scroll Lock'
          TabOrder = 2
        end
        object eMachine: TEdit
          Left = 16
          Top = 8
          Width = 350
          Height = 21
          ReadOnly = True
          TabOrder = 3
        end
        object pcMachine: TPageControl
          Left = 11
          Top = 35
          Width = 359
          Height = 324
          Cursor = crHandPoint
          ActivePage = tsMachineSMBIOS
          TabIndex = 1
          TabOrder = 4
          object tsMachineGeneral: TTabSheet
            Caption = ' General '
            object gbMID: TGroupBox
              Left = 13
              Top = 7
              Width = 325
              Height = 70
              Caption = ' Identification '
              TabOrder = 0
              object Label1: TLabel
                Left = 68
                Top = 19
                Width = 70
                Height = 13
                Alignment = taRightJustify
                Caption = 'Machine name'
              end
              object Label2: TLabel
                Left = 87
                Top = 45
                Width = 51
                Height = 13
                Alignment = taRightJustify
                Caption = 'User name'
              end
              object Image1: TImage
                Left = 14
                Top = 24
                Width = 32
                Height = 32
                AutoSize = True
                Center = True
                Picture.Data = {
                  055449636F6E0000010009003030100001000400680600009600000020201000