PC World 1999 February/PCWorld_1999-02_cd.bin/temacd/TaskInfo/TaskInfo.exe/0/RCDATA/TMAINFORM/TMAINFORM.txt

Text File | 1998-10-25 | 14.8 KB | 547 lines

object MainForm: TMainForm
  Left = 267
  Top = 104
  Width = 723
  Height = 444
  HelpContext = 1
  Caption = 'TaskInfo98'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  Position = poDefaultPosOnly
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnPaint = FormPaint
  PixelsPerInch = 96
  TextHeight = 13
  object VerticalSplitter: TSplitter
    Left = 414
    Top = 0
    Width = 4
    Height = 384
    Cursor = crHSplit
  end
  object ProcessesPanel: TPanel
    Left = 0
    Top = 0
    Width = 414
    Height = 384
    Align = alLeft
    TabOrder = 0
    object ProcessesScrollBox: TScrollBox
      Left = 1
      Top = 17
      Width = 412
      Height = 366
      HorzScrollBar.Tracking = True
      VertScrollBar.Tracking = True
      Align = alClient
      BorderStyle = bsNone
      Color = clWindow
      ParentColor = False
      TabOrder = 0
      OnMouseMove = StatusBlankMouseMove
      object ProcessesStringGrid: TStringGrid
        Left = 0
        Top = 0
        Width = 412
        Height = 344
        BorderStyle = bsNone
        ColCount = 4
        DefaultColWidth = 10
        DefaultRowHeight = 20
        FixedCols = 0
        FixedRows = 0
        Options = [goFixedVertLine, goFixedHorzLine, goRowSelect, goThumbTracking]
        PopupMenu = ProcessesPopupMenu
        ScrollBars = ssNone
        TabOrder = 0
        OnClick = ProcessesStringGridClick
        OnDblClick = ProcessesStringGridDblClick
        OnMouseMove = ProcessesStringGridMouseMove
        ColWidths = (
          10
          10
          10
          10)
      end
    end
    object ProcessesCaptionScrollBox: TScrollBox
      Left = 1
      Top = 1
      Width = 412
      Height = 16
      HorzScrollBar.Visible = False
      VertScrollBar.Visible = False
      Align = alTop
      BorderStyle = bsNone
      Color = clWindow
      ParentColor = False
      TabOrder = 1
      object ProcessListView: TListView
        Left = 0
        Top = 0
        Width = 412
        Height = 17
        ColumnClick = False
        Columns = <>
        ReadOnly = True
        HideSelection = False
        AllocBy = 10
        RowSelect = True
        OnMouseMove = StatusBlankMouseMove
        TabOrder = 0
        ViewStyle = vsReport
      end
    end
  end
  object RightPanel: TPanel
    Left = 418
    Top = 0
    Width = 297
    Height = 384
    Align = alClient
    TabOrder = 1
    object HorisontalSplitter: TSplitter
      Left = 1
      Top = 217
      Width = 295
      Height = 4
      Cursor = crVSplit
      Align = alTop
    end
    object ObjectsPageControl: TPageControl
      Left = 1
      Top = 221
      Width = 295
      Height = 162
      ActivePage = GenTabSheet
      Align = alClient
      TabOrder = 0
      OnChange = ObjectsPageControlChange
      OnMouseMove = StatusBlankMouseMove
      object GenTabSheet: TTabSheet
        Caption = 'General'
        object GenScrollBox: TScrollBox
          Left = 0
          Top = 0
          Width = 287
          Height = 134
          HorzScrollBar.Tracking = True
          VertScrollBar.Tracking = True
          Align = alClient
          BorderStyle = bsNone
          Color = clWindow
          ParentColor = False
          TabOrder = 0
          OnMouseMove = StatusBlankMouseMove
          object GenStringGrid: TStringGrid
            Left = 0
            Top = 0
            Width = 287
            Height = 120
            BorderStyle = bsNone
            ColCount = 4
            DefaultColWidth = 10
            DefaultRowHeight = 20
            FixedCols = 0
            FixedRows = 0
            Options = [goFixedVertLine, goFixedHorzLine, goThumbTracking]
            ScrollBars = ssNone
            TabOrder = 0
            OnClick = RollStringGridClick
            OnMouseMove = GenStringGridMouseMove
            ColWidths = (
              10
              10
              10
              10)
          end
        end
      end
      object ModulesTabSheet: TTabSheet
        Caption = 'Modules'
        object ModulesScrollBox: TScrollBox
          Left = 0
          Top = 0
          Width = 287
          Height = 134
          HorzScrollBar.Tracking = True
          VertScrollBar.Tracking = True
          Align = alClient
          BorderStyle = bsNone
          Color = clWindow
          ParentColor = False
          TabOrder = 0
          OnMouseMove = StatusBlankMouseMove
          object ModulesStringGrid: TStringGrid
            Left = 0
            Top = 0
            Width = 285
            Height = 120
            BorderStyle = bsNone
            ColCount = 4
            DefaultColWidth = 10
            DefaultRowHeight = 20
            FixedCols = 0
            FixedRows = 0
            Options = [goFixedVertLine, goFixedHorzLine, goThumbTracking]
            ScrollBars = ssNone
            TabOrder = 0
            OnClick = RollStringGridClick
            OnMouseMove = ModulesStringGridMouseMove
            ColWidths = (
              10
              10
              10
              10)
          end
        end
      end
      object ThreadRegsTabSheet: TTabSheet
        Caption = 'Regs'
        object ThreadInfoScrollBox: TScrollBox
          Left = 0
          Top = 0
          Width = 287
          Height = 134
          HorzScrollBar.Tracking = True
          VertScrollBar.Tracking = True
          Align = alClient
          BorderStyle = bsNone
          Color = clWindow
          ParentColor = False
          TabOrder = 0
          OnMouseMove = StatusBlankMouseMove
          object ThreadRegsStringGrid: TStringGrid
            Left = 0
            Top = 0
            Width = 359
            Height = 86
            BorderStyle = bsNone
            ColCount = 4
            DefaultColWidth = 10
            DefaultRowHeight = 20
            FixedCols = 0
            FixedRows = 0
            Options = [goFixedVertLine, goFixedHorzLine, goThumbTracking]
            ScrollBars = ssNone
            TabOrder = 0
            OnClick = RollStringGridClick
            OnMouseMove = ThreadRegsStringGridMouseMove
            ColWidths = (
              10
              10
              10
              10)
          end
        end
      end
      object FilesTabSheet: TTabSheet
        Caption = 'Files'
        object FilesScrollBox: TScrollBox
          Left = 0
          Top = 0
          Width = 287
          Height = 134
          HorzScrollBar.Tracking = True
          VertScrollBar.Tracking = True
          Align = alClient
          BorderStyle = bsNone
          Color = clWindow
          ParentColor = False
          TabOrder = 0
          OnMouseMove = StatusBlankMouseMove
          object FilesStringGrid: TStringGrid
            Left = 0
            Top = 0
            Width = 285
            Height = 120
            BorderStyle = bsNone
            ColCount = 4
            DefaultColWidth = 10
            DefaultRowHeight = 20
            FixedCols = 0
            FixedRows = 0
            Options = [goFixedVertLine, goFixedHorzLine, goThumbTracking]
            ScrollBars = ssNone
            TabOrder = 0
            OnClick = RollStringGridClick
            OnMouseMove = FilesStringGridMouseMove
            ColWidths = (
              10
              10
              10
              10)
          end
        end
      end
      object EnvTabSheet: TTabSheet
        Caption = 'Env'
        object EnvScrollBox: TScrollBox
          Left = 0
          Top = 0
          Width = 287
          Height = 134
          HorzScrollBar.Tracking = True
          VertScrollBar.Tracking = True
          Align = alClient
          BorderStyle = bsNone
          Color = clWindow
          ParentColor = False
          TabOrder = 0
          OnMouseMove = StatusBlankMouseMove
          object EnvStringGrid: TStringGrid
            Left = 0
            Top = 0
            Width = 285
            Height = 120
            BorderStyle = bsNone
            ColCount = 4
            DefaultColWidth = 10
            DefaultRowHeight = 20
            FixedCols = 0
            FixedRows = 0
            Options = [goFixedVertLine, goFixedHorzLine, goThumbTracking]
            ScrollBars = ssNone
            TabOrder = 0
            OnClick = RollStringGridClick
            OnMouseMove = EnvStringGridMouseMove
            ColWidths = (
              10
              10
              10
              10)
          end
        end
      end
    end
    object SysInfoPanel: TPanel
      Left = 1
      Top = 1
      Width = 295
      Height = 216
      Align = alTop
      TabOrder = 1
      object SysScrollBox: TScrollBox
        Left = 1
        Top = 1
        Width = 293
        Height = 214
        HorzScrollBar.Tracking = True
        VertScrollBar.Tracking = True
        Align = alClient
        Color = clWindow
        ParentColor = False
        TabOrder = 0
        OnMouseMove = StatusBlankMouseMove
        object SysInfoStringGrid: TStringGrid
          Left = 0
          Top = 0
          Width = 289
          Height = 169
          BorderStyle = bsNone
          ColCount = 4
          DefaultColWidth = 10
          DefaultRowHeight = 20
          FixedCols = 0
          FixedRows = 0
          Options = [goFixedVertLine, goFixedHorzLine, goThumbTracking]
          ScrollBars = ssNone
          TabOrder = 0
          OnClick = RollStringGridClick
          OnMouseMove = SysInfoStringGridMouseMove
          ColWidths = (
            10
            10
            10
            10)
        end
      end
    end
  end
  object StatusPanel: TPanel
    Left = 0
    Top = 384
    Width = 715
    Height = 14
    Align = alBottom
    Alignment = taLeftJustify
    BevelOuter = bvLowered
    TabOrder = 2
    OnMouseMove = StatusBlankMouseMove
  end
  object RefreshTimer: TTimer
    Enabled = False
    Interval = 500
    OnTimer = RefreshTimerTimer
    Left = 259
    Top = 56
  end
  object MainMenu1: TMainMenu
    Left = 189
    Top = 57
    object File: TMenuItem
      Caption = '&File'
      object ShutDown: TMenuItem
        Caption = '&ShutDown'
        Hint = 'Shut Down System ...'
        object ShutdownSystem1: TMenuItem
          Caption = '&Shut Down System'
          Hint =
            'Shuts Down System normally. Applications will have chance to sav' +
            'e data.'
          OnClick = ShutDounClick
        end
        object Reboot: TMenuItem
          Caption = '&Reboot'
          Hint =
            'Reboot System normally. Applications will have chance to save da' +
            'ta.'
          OnClick = RebootClick
        end
        object ForceReboot: TMenuItem
          Caption = '&Force Reboot'
          Hint =
            'Reboot System in emergency. Applications may lost unsaved data. ' +
            'But Shuts Down more often then two previous commands.'
          OnClick = ForceRebootClick
        end
      end
      object TerminateProcess1: TMenuItem
        Caption = '&Terminate Process'
        Hint =
          'Force terminates selected process.This command gives no chance t' +
          'o save data!'
        OnClick = TerminateProcess1Click
      end
      object SetProcessPri1: TMenuItem
        Caption = 'Set Process Priority'
        Hint = 'Set Selected Process Priority ...'
        object SetIdlePri2: TMenuItem
          Caption = 'Idle'
          Hint = 'Set Selected Process Priority to Idle'
          OnClick = SetPriClick
        end
        object SetNormPri2: TMenuItem
          Caption = 'Normal'
          Hint = 'Set Selected Process Priority to Normal'
          OnClick = SetPriClick
        end
        object SetHighPri2: TMenuItem
          Caption = 'High'
          Hint = 'Set Selected Process Priority to High'
          OnClick = SetPriClick
        end
        object SetRealTimePri2: TMenuItem
          Caption = 'RealTime'
          Hint = 'Set Selected Process Priority to Real Time'
          OnClick = SetPriClick
        end
      end
      object Run1: TMenuItem
        Caption = '&Run Application'
        Hint = 'Run Application. Show Standard Run Dialog Box.'
        OnClick = Run1Click
      end
      object Exit1: TMenuItem
        Caption = 'Exit TaskInfo'
        Hint = 'Quit TaskInfo.'
        OnClick = Exit1Click
      end
    end
    object View: TMenuItem
      Caption = '&View'
      object OnTop: TMenuItem
        Caption = '&Always on Top'
        Hint = 'Set TaskInfo Window topmost attribute.'
        OnClick = OnTopClick
      end
      object ViewAllThreads: TMenuItem
        Caption = 'View &All Threads'
        Hint = 'View All Threads in System.'
        OnClick = ViewAllThreadsClick
      end
      object ShowAllThreads2: TMenuItem
        Caption = 'Show All Threads'
        Hint = 'Show All Threads in System.'
        OnClick = ShowAllThreads1Click
      end
      object HideAllThreads2: TMenuItem
        Caption = 'Hide All Threads'
        Hint = 'Hide All Threads in System.'
        OnClick = HideAllThreads1Click
      end
    end
    object Help: TMenuItem
      Caption = '&Help'
      object Help1: TMenuItem
        Caption = '&Help'
        OnClick = Help1Click
      end
      object About1: TMenuItem
        Caption = '&About'
        OnClick = About1Click
      end
    end
  end
  object ProcessesPopupMenu: TPopupMenu
    Left = 113
    Top = 57
    object RunApplication1: TMenuItem
      Caption = 'Run Application'
      Hint = 'Run Application. Show Standard Run Dialog Box.'
      OnClick = Run1Click
    end
    object TerminateProcess2: TMenuItem
      Caption = 'Terminate Process'
      Hint =
        'Force terminates selected process.This command gives no chance t' +
        'o save data!'
      OnClick = TerminateProcess1Click
    end
    object SetProcessPri2: TMenuItem
      Caption = 'Set Process Priority'
      Hint = 'Set Selected Process Priority ...'
      object SetIdlePri1: TMenuItem
        Caption = 'Set Idle Priority'
        Hint = 'Set Selected Process Priority to Idle'
        OnClick = SetPriClick
      end
      object SetNormPri1: TMenuItem
        Caption = 'Set Normal Priority'
        Hint = 'Set Selected Process Priority to Normal'
        OnClick = SetPriClick
      end
      object SetHighPri1: TMenuItem
        Caption = 'Set High Priority'
        Hint = 'Set Selected Process Priority to High'
        OnClick = SetPriClick
      end
      object SetRealTimePri1: TMenuItem
        Caption = 'Set RealTime Priority'
        Hint = 'Set Selected Process Priority to Real Time'
        OnClick = SetPriClick
      end
    end
    object ViewAllThreads1: TMenuItem
      Caption = 'View &All Threads'
      Hint = 'View All Threads in System.'
      OnClick = ViewAllThreadsClick
    end
    object ShowAllThreads1: TMenuItem
      Caption = 'Show All Threads'
      Hint = 'Show All Threads in System.'
      OnClick = ShowAllThreads1Click
    end
    object HideAllThreads1: TMenuItem
      Caption = 'Hide All Threads'
      Hint = 'Hide All Threads in System.'
      OnClick = HideAllThreads1Click
    end
  end
end