main.dfm

East make Tray Icon in delphi

object MainForm: TMainForm
  Left = 191
  Top = 107
  ActiveControl = ProcessListView
  AutoScroll = False
  Caption = 'ToolHelp Viewer'
  ClientHeight = 404
  ClientWidth = 587
  Color = clBtnFace
  Constraints.MinHeight = 300
  Constraints.MinWidth = 400
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu
  OldCreateOrder = False
  Position = poDefault
  ShowHint = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 0
    Top = 234
    Width = 587
    Height = 3
    Cursor = crVSplit
    Align = alBottom
    MinSize = 70
    ResizeStyle = rsUpdate
  end
  object ProcessListView: TListView
    Left = 0
    Top = 26
    Width = 587
    Height = 208
    Align = alClient
    AllocBy = 32
    Columns = <
      item
        Caption = 'Process'
        Width = 110
      end
      item
        Caption = 'PID'
        MaxWidth = 65
        Width = 65
      end
      item
        Alignment = taRightJustify
        Caption = 'Priority'
        MaxWidth = 50
      end
      item
        Alignment = taRightJustify
        Caption = 'Threads'
        MaxWidth = 51
        Width = 51
      end
      item
        Caption = 'ExeType'
        MaxWidth = 55
        Width = 55
      end
      item
        Caption = 'FileName'
        Width = 250
      end
      item
        Caption = 'Parent Process'
        Width = 90
      end>
    GridLines = True
    HideSelection = False
    HotTrackStyles = []
    ReadOnly = True
    RowSelect = True
    PopupMenu = PopupMenu
    StateImages = PriorityImagesList
    TabOrder = 0
    ViewStyle = vsReport
    OnColumnClick = ProcessListViewColumnClick
    OnCompare = ProcessListViewCompare
    OnDblClick = ProcessListViewDblClick
    OnEnter = ProcessListViewEnter
    OnSelectItem = ProcessListViewSelectItem
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 385
    Width = 587
    Height = 19
    Panels = <
      item
        Width = 85
      end
      item
        Width = 400
      end
      item
        Width = 165
      end>
    SimplePanel = False
    OnResize = StatusBarResize
  end
  object BottomPanel: TPanel
    Left = 0
    Top = 237
    Width = 587
    Height = 148
    Align = alBottom
    BevelOuter = bvNone
    FullRepaint = False
    TabOrder = 2
    object Splitter2: TSplitter
      Left = 470
      Top = 0
      Width = 3
      Height = 148
      Cursor = crHSplit
      Align = alRight
      MinSize = 70
      ResizeStyle = rsUpdate
    end
    object ModulesListView: TListView
      Left = 0
      Top = 0
      Width = 470
      Height = 148
      Align = alClient
      AllocBy = 32
      Columns = <
        item
          Caption = 'Module'
          Width = 70
        end
        item
          Caption = 'MID'
          MaxWidth = 65
          Width = 65
        end
        item
          Caption = 'ImageBase'
          Width = 70
        end
        item
          Caption = 'Base'
          Width = 70
        end
        item
          Alignment = taRightJustify
          Caption = 'Size'
          MaxWidth = 80
          Width = 70
        end
        item
          Alignment = taRightJustify
          Caption = 'Global #'
          MaxWidth = 55
          Width = 55
        end
        item
          Alignment = taRightJustify
          Caption = 'Process #'
          MaxWidth = 60
          Width = 60
        end
        item
          Caption = 'Handle'
          MaxWidth = 70
          Width = 70
        end
        item
          Caption = 'FileName'
          Width = 200
        end>
      HotTrackStyles = []
      ReadOnly = True
      RowSelect = True
      PopupMenu = PopupMenu
      TabOrder = 0
      ViewStyle = vsReport
      OnColumnClick = ProcessListViewColumnClick
      OnCompare = ProcessListViewCompare
      OnCustomDrawItem = ModulesListViewCustomDrawItem
      OnDblClick = ProcessListViewDblClick
      OnEnter = ProcessListViewEnter
      OnSelectItem = ModulesListViewSelectItem
    end
    object ThreadsListView: TListView
      Left = 473
      Top = 0
      Width = 114
      Height = 148
      Align = alRight
      AllocBy = 4
      Columns = <
        item
          Caption = 'TID'
          Width = 65
        end
        item
          Caption = 'Priority'
          Width = 45
        end>
      HotTrackStyles = []
      ReadOnly = True
      RowSelect = True
      TabOrder = 1
      ViewStyle = vsReport
      OnColumnClick = ProcessListViewColumnClick
      OnCompare = ProcessListViewCompare
      OnEnter = ProcessListViewEnter
    end
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 587
    Height = 26
    AutoSize = True
    BandMaximize = bmNone
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 22
        Width = 583
      end>
    FixedSize = True
    OnResize = CoolBar1Resize
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 570
      Height = 22
      AutoSize = True
      Caption = 'ToolBar1'
      EdgeBorders = []
      Flat = True
      Images = GlobalModule.ToolbarImagesList
      TabOrder = 0
      Wrapable = False
      object RefreshButton: TToolButton
        Left = 0
        Top = 0
        Action = Refresh1
      end
      object ToolButton7: TToolButton
        Left = 23
        Top = 0
        Width = 8
        Caption = 'ToolButton7'
        ImageIndex = 6
        Style = tbsSeparator
      end
      object CopyButton: TToolButton
        Left = 31
        Top = 0
        Action = Copy1
      end
      object SaveButton: TToolButton
        Left = 54
        Top = 0
        Action = SaveToFile1
      end
      object ToolButton3: TToolButton
        Left = 77
        Top = 0
        Width = 8
        Caption = 'ToolButton3'
        ImageIndex = 5
        Style = tbsSeparator
      end
      object ToolButton1: TToolButton
        Left = 85
        Top = 0
        Action = DumpHeap1
      end
      object ToolButton2: TToolButton
        Left = 108
        Top = 0
        Action = DumpMemory1
      end
      object ToolButton6: TToolButton
        Left = 131
        Top = 0
        Action = DumpModules1
      end
      object ToolButton10: TToolButton