Chip 2002 March/Chip_2002-03_cd1.bin/zkuste/delphi/kompon/d56/MSYSINFO.ZIP/Demos/GUI/ProcessProps.dfm

Text File | 2002-01-04 | 16.6 KB | 616 lines

object propProcess: TpropProcess
  Left = 0
  Top = 0
  Width = 391
  Height = 428
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  ParentFont = False
  TabOrder = 0
  object pc: TPageControl
    Left = 0
    Top = 0
    Width = 391
    Height = 428
    Cursor = crHandPoint
    ActivePage = tsGeneral
    Align = alClient
    HotTrack = True
    TabOrder = 0
    object tsGeneral: TTabSheet
      Caption = ' General '
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 383
        Height = 400
        Align = alClient
        BevelOuter = bvNone
        BorderWidth = 5
        TabOrder = 0
        object Image1: TImage
          Left = 20
          Top = 20
          Width = 32
          Height = 32
          AutoSize = True
          Center = True
          Picture.Data = {
            055449636F6E0000010001002020040000000000E80200001600000028000000
            2000000040000000010004000000000000020000000000000000000000000000
            0000000000000000000080000080000000808000800000008000800080800000
            80808000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000
            FFFFFF0000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000007077
            0000000000000000000000000000707707000000000000000000000000077BB8
            B770000007777777777777777777B8BB8B7700000000000000000000000B8B00
            B8B000000FFFFFFFFFFFFFFF0778B0FF0BB770000FFFFF7777F7777F077BB0FF
            0B8770000FFFFFFFFFFFFFFFF00B8B00B8B000000F000F7777F7777F7777B8BB
            8B7700000FFFFFFFFFFFFFFFFF077B8BB77000000FF0FFFFFFFFFFFFFF007077
            070000000F000F777777777777777077000000000FF0FFFFFFFFFFFFFFFFF000
            087000000FFFFF777777777777777777F07000000FF0FFFFFFFFFFFFFFFFFFFF
            F07000000F000F777777777777777777F07000000FF0FFFFFFFFFFFFFFFFFFFF
            F07000000FFFFF7777F7777F77777777F07000000FFFFFFFFFFFFFFFFFFFFFFF
            F07000000FFFFF7777F7777F77777777F07000000FFFFFFFFFFFFFFFFFFFFFFF
            F07000000F000F7777F7777F77777777F07000000FFFFFFFFFFFFFFFFFFFFFFF
            F07000000FF0FFFFFFFFFFFFFFFFFFFFF07000000F000F777777777777777777
            F07000000FF0FFFFFFFFFFFFFFFFFFFFF07000000FFFFFFFFFFFFFFFFFFFFFFF
            F070000000000000000000000000000000700000000000000000000000000000
            00000000FFFFFFFFFFFFFFFFFFFFF87FFFFFF01FFFFFC007FFFFC00780000003
            000000030000000100000001000000030000000300000007000000070000001F
            0000001F0000001F0000001F0000001F0000001F0000001F0000001F0000001F
            0000001F0000001F0000001F0000001F0000001F0000001F0000001F0000001F
            0000003F}
        end
        object Bevel1: TBevel
          Left = 9
          Top = 259
          Width = 364
          Height = 3
          Anchors = [akLeft, akTop, akRight]
          Shape = bsTopLine
        end
        object Bevel2: TBevel
          Left = 9
          Top = 178
          Width = 364
          Height = 3
          Anchors = [akLeft, akTop, akRight]
          Shape = bsTopLine
        end
        object Bevel3: TBevel
          Left = 10
          Top = 67
          Width = 364
          Height = 3
          Anchors = [akLeft, akTop, akRight]
          Shape = bsTopLine
        end
        object lPID: TLabel
          Left = 54
          Top = 87
          Width = 21
          Height = 13
          Alignment = taRightJustify
          Caption = 'PID:'
          FocusControl = stPID
        end
        object Label2: TLabel
          Left = 29
          Top = 117
          Width = 46
          Height = 13
          Alignment = taRightJustify
          Caption = 'Filename:'
          FocusControl = eFile
        end
        object lHandles: TLabel
          Left = 32
          Top = 235
          Width = 42
          Height = 13
          Alignment = taRightJustify
          Caption = 'Handles:'
          FocusControl = stHandles
        end
        object lThreads: TLabel
          Left = 31
          Top = 215
          Width = 43
          Height = 13
          Alignment = taRightJustify
          Caption = 'Threads:'
          FocusControl = stThreads
        end
        object lModules: TLabel
          Left = 31
          Top = 194
          Width = 43
          Height = 13
          Alignment = taRightJustify
          Caption = 'Modules:'
          FocusControl = stModules
        end
        object lPriority: TLabel
          Left = 36
          Top = 274
          Width = 38
          Height = 13
          Alignment = taRightJustify
          Caption = 'Priority:'
          FocusControl = stPriority
        end
        object lPPID: TLabel
          Left = 18
          Top = 294
          Width = 56
          Height = 13
          Alignment = taRightJustify
          Caption = 'Parent PID:'
          FocusControl = stPPID
        end
        object lHeapID: TLabel
          Left = 31
          Top = 314
          Width = 43
          Height = 13
          Alignment = taRightJustify
          Caption = ' HeapID:'
          FocusControl = stHeapID
        end
        object stHandles: TStaticText
          Left = 79
          Top = 235
          Width = 67
          Height = 17
          Caption = 'Not Available'
          TabOrder = 8
        end
        object stName: TEdit
          Left = 70
          Top = 28
          Width = 215
          Height = 17
          Anchors = [akLeft, akTop, akRight]
          BorderStyle = bsNone
          Font.Charset = EASTEUROPE_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentColor = True
          ParentFont = False
          ReadOnly = True
          TabOrder = 2
        end
        object stPID: TStaticText
          Left = 80
          Top = 87
          Width = 67
          Height = 17
          Caption = 'Not Available'
          TabOrder = 3
        end
        object stThreads: TStaticText
          Left = 79
          Top = 215
          Width = 67
          Height = 17
          Caption = 'Not Available'
          TabOrder = 4
        end
        object stModules: TStaticText
          Left = 79
          Top = 194
          Width = 67
          Height = 17
          Caption = 'Not Available'
          TabOrder = 5
        end
        object stPriority: TStaticText
          Left = 79
          Top = 274
          Width = 67
          Height = 17
          Caption = 'Not Available'
          TabOrder = 6
        end
        object stPPID: TStaticText
          Left = 79
          Top = 294
          Width = 67
          Height = 17
          Caption = 'Not Available'
          TabOrder = 7
        end
        object eFile: TEdit
          Left = 80
          Top = 113
          Width = 289
          Height = 21
          Anchors = [akLeft, akTop, akRight]
          Color = clBtnFace
          ParentShowHint = False
          ReadOnly = True
          ShowHint = True
          TabOrder = 0
          Text = 'Not Available'
        end
        object bProcProps: TButton
          Left = 292
          Top = 138
          Width = 78
          Height = 24
          Cursor = crHandPoint
          Anchors = [akTop, akRight]
          Caption = '&Properties...'
          TabOrder = 1
          OnClick = cmProcProps
        end
        object stHeapID: TStaticText
          Left = 79
          Top = 314
          Width = 67
          Height = 17
          Caption = 'Not Available'
          TabOrder = 9
        end
        object bKill: TButton
          Left = 292
          Top = 24
          Width = 78
          Height = 24
          Cursor = crHandPoint
          Anchors = [akTop, akRight]
          Caption = '&Terminate...'
          TabOrder = 10
          OnClick = cmKill
        end
      end
    end
    object tsPerformance: TTabSheet
      Caption = ' Performance '
      ImageIndex = 1
      object Panel2: TPanel
        Left = 0
        Top = 0
        Width = 383
        Height = 400
        Align = alClient
        BevelInner = bvLowered
        BevelOuter = bvNone
        BorderWidth = 5
        Caption = ' '
        TabOrder = 0
        object lvPerf: TListView
          Left = 6
          Top = 6
          Width = 371
          Height = 388
          Align = alClient
          BorderStyle = bsNone
          Columns = <
            item
              Caption = 'Item'
              Width = 150
            end
            item
              Alignment = taRightJustify
              Caption = 'Current Value'
              Width = 100
            end>
          ColumnClick = False
          HotTrackStyles = [htHandPoint, htUnderlineHot]
          ReadOnly = True
          RowSelect = True
          TabOrder = 0
          ViewStyle = vsReport
        end
      end
    end
    object tsMemory: TTabSheet
      Caption = ' Memory '
      ImageIndex = 2
      object Panel3: TPanel
        Left = 0
        Top = 0
        Width = 383
        Height = 400
        Align = alClient
        BevelInner = bvLowered
        BevelOuter = bvNone
        BorderWidth = 5
        Caption = ' '
        TabOrder = 0
        object Splitter1: TSplitter
          Left = 6
          Top = 224
          Width = 371
          Height = 3
          Cursor = crVSplit
          Align = alBottom
        end
        object lvMem: TListView
          Left = 6
          Top = 6
          Width = 371
          Height = 218
          Align = alClient
          BorderStyle = bsNone
          Columns = <
            item
              Caption = 'Item'
              Width = 125
            end
            item
              Alignment = taRightJustify
              Caption = 'Current Value'
              Width = 100
            end
            item
              Alignment = taRightJustify
              Caption = 'Peak'
              Width = 100
            end>
          ColumnClick = False
          HotTrackStyles = [htHandPoint, htUnderlineHot]
          ReadOnly = True
          RowSelect = True
          TabOrder = 0
          ViewStyle = vsReport
        end
        object lvHeap: TListView
          Left = 6
          Top = 227
          Width = 371
          Height = 167
          Align = alBottom
          BorderStyle = bsNone
          Columns = <
            item
              Caption = 'HeapID'
              Width = 100
            end
            item
              Caption = 'Status'
              Width = 100
            end>
          ColumnClick = False
          FlatScrollBars = True
          HideSelection = False
          HotTrackStyles = [htHandPoint, htUnderlineHot]
          ReadOnly = True
          TabOrder = 1
          ViewStyle = vsReport
        end
      end
    end
    object tsModules: TTabSheet
      Caption = ' Modules '
      ImageIndex = 3
      object Panel4: TPanel
        Left = 0
        Top = 0
        Width = 383
        Height = 365
        Align = alClient
        BevelInner = bvLowered
        BevelOuter = bvNone
        BorderWidth = 5
        Caption = ' '
        TabOrder = 0
        object lvMods: TListView
          Left = 6
          Top = 6
          Width = 371
          Height = 353
          Align = alClient
          BorderStyle = bsNone
          Columns = <
            item
              Caption = 'Name'
              Width = 100
            end
            item
              Caption = 'ID'
              Width = 75
            end
            item
              Alignment = taRightJustify
              Caption = 'Entry Point'
              Width = 80
            end
            item
              Alignment = taRightJustify
              Caption = 'Load Address'
              Width = 80
            end
            item
              Alignment = taRightJustify
              Caption = 'Image Size [B]'
              Width = 90
            end
            item
              Alignment = taRightJustify
              Caption = 'Base Size [B]'
              Width = 75
            end
            item
              Alignment = taRightJustify
              Caption = 'Handle'
            end
            item
              Alignment = taRightJustify
              Caption = 'Global Usage'
              Width = 75
            end
            item
              Alignment = taRightJustify
              Caption = 'Process Usage'
              Width = 90
            end
            item
              Caption = 'Filename'
              Width = 200
            end>
          ColumnClick = False
          HideSelection = False
          HotTrackStyles = [htHandPoint, htUnderlineHot]
          ReadOnly = True
          RowSelect = True
          TabOrder = 0
          ViewStyle = vsReport
          OnDblClick = cmModProps
        end
      end
      object Panel6: TPanel
        Left = 0
        Top = 365
        Width = 383
        Height = 35
        Align = alBottom
        BevelOuter = bvNone
        Caption = ' '
        TabOrder = 1
        object Panel7: TPanel
          Left = 220
          Top = 0
          Width = 172
          Height = 35
          Align = alRight
          BevelOuter = bvNone
          Caption = ' '
          TabOrder = 0
          object bModProps: TButton
            Left = 90
            Top = 5
            Width = 78
            Height = 24
            Cursor = crHandPoint
            Caption = '&Properties...'
            TabOrder = 0
            OnClick = cmModProps
          end
        end
        object ModsPanel: TPanel
          Left = 0
          Top = 0
          Width = 120
          Height = 35
          Align = alLeft
          BevelInner = bvLowered
          BevelOuter = bvNone
          BorderWidth = 8
          TabOrder = 1
        end
      end
    end
    object tsThread: TTabSheet
      Caption = ' Thread '
      ImageIndex = 4
      object Panel5: TPanel
        Left = 0
        Top = 0
        Width = 383
        Height = 365
        Align = alClient
        BevelInner = bvLowered
        BevelOuter = bvNone
        BorderWidth = 5
        Caption = ' '
        TabOrder = 0
        object lvThds: TListView
          Left = 6
          Top = 6
          Width = 371
          Height = 353
          Align = alClient
          BorderStyle = bsNone
          Columns = <
            item
              Caption = 'ID'
              Width = 40
            end
            item
              Alignment = taRightJustify
              Caption = 'Status'
              Width = 70
            end
            item
              Alignment = taRightJustify
              Caption = 'Priority Base'
              Width = 75
            end
            item
              Alignment = taRightJustify
              Caption = 'Priority Delta'
              Width = 75
            end
            item
              Caption = 'Wait Reason'
              Width = 100
            end
            item
              Alignment = taRightJustify
              Caption = 'Start Address'
              Width = 90
            end
            item
              Alignment = taRightJustify
              Caption = 'Context Switches'
              Width = 100
            end
            item
              Caption = 'CPU Time'
              Width = 70
            end
            item
              Alignment = taRightJustify
              Caption = 'Usage'
            end>
          ColumnClick = False
          HotTrackStyles = [htHandPoint, htUnderlineHot]
          ReadOnly = True
          RowSelect = True
          TabOrder = 0
          ViewStyle = vsReport
        end
      end
      object Panel8: TPanel
        Left = 0
        Top = 365
        Width = 383
        Height = 35
        Align = alBottom
        BevelOuter = bvNone
        Caption = ' '
        TabOrder = 1
        object Panel9: TPanel
          Left = 299
          Top = 0
          Width = 84
          Height = 35
          Align = alRight
          BevelOuter = bvNone
          Caption = ' '
          TabOrder = 0
        end
        object ThdsPanel: TPanel
          Left = 0
          Top = 0
          Width = 120
          Height = 35
          Align = alLeft
          BevelInner = bvLowered
          BevelOuter = bvNone
          BorderWidth = 8
          TabOrder = 1
        end
      end
    end
  end
end