object MainForm: TMainForm
  Left = 8
  Top = 86
  BorderStyle = bsSingle
  Caption = 'Magenta Test Windows and Process Lists, and Run Programs'
  ClientHeight = 812
  ClientWidth = 1150
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Segoe UI'
  Font.Style = []
  Position = poDefault
  OnCreate = FormCreate
  TextHeight = 13
  object PanelButtons: TPanel
    Left = 0
    Top = 710
    Width = 1150
    Height = 102
    Align = alBottom
    TabOrder = 0
    ExplicitTop = 709
    object Label3: TLabel
      Left = 5
      Top = 10
      Width = 112
      Height = 13
      Caption = 'Application File Name'
    end
    object Label4: TLabel
      Left = 696
      Top = 5
      Width = 216
      Height = 26
      Caption = 
        'Copyright Magenta Systems Ltd, 16 Aug 2024'#13#10'Designed to test Tas' +
        'k and Windows Unit'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object LabelDelphi: TLabel
      Left = 941
      Top = 3
      Width = 61
      Height = 13
      Caption = 'LabelDelphi'
    end
    object AppFile: TComboBox
      Left = 123
      Top = 5
      Width = 459
      Height = 21
      ItemIndex = 0
      TabOrder = 0
      Text = 'notepad.exe'
      Items.Strings = (
        'notepad.exe'
        'OverbyteIcsPemTool32.exe'
        'OverbyteIcsPemTool64.exe')
    end
    object doRun: TButton
      Left = 5
      Top = 65
      Width = 71
      Height = 25
      Caption = 'Run Prog'
      TabOrder = 1
      OnClick = doRunClick
    end
    object doCheck: TButton
      Left = 83
      Top = 65
      Width = 71
      Height = 25
      Caption = 'Check Prog'
      TabOrder = 2
      OnClick = doCheckClick
    end
    object doStop: TButton
      Left = 177
      Top = 34
      Width = 117
      Height = 25
      Caption = 'Stop Prog Wait'
      TabOrder = 3
      OnClick = doStopClick
    end
    object doStopSpec: TButton
      Left = 175
      Top = 66
      Width = 119
      Height = 25
      Caption = 'Stop Prog Special'
      TabOrder = 4
      OnClick = doStopSpecClick
    end
    object CloseOpt: TComboBox
      Left = 315
      Top = 70
      Width = 176
      Height = 21
      Style = csDropDownList
      TabOrder = 5
      Items.Strings = (
        'Close (a window)'
        'End Session (a Window)'
        'Query/End Session'
        'Command Close'
        'Close All Windows'
        'Looping End Session'
        'Quit'
        'Terminate Handle'
        'Terminate Process ID'
        'Close Process ID')
    end
    object doSelect: TButton
      Left = 593
      Top = 6
      Width = 80
      Height = 25
      Caption = 'Select Prog'
      TabOrder = 6
      OnClick = doSelectClick
    end
    object doRefresh: TButton
      Left = 594
      Top = 35
      Width = 80
      Height = 25
      Caption = 'Refresh Once'
      TabOrder = 7
      OnClick = doRefreshClick
    end
    object doAutoStart: TButton
      Left = 594
      Top = 64
      Width = 80
      Height = 25
      Caption = 'Auto Refresh'
      TabOrder = 8
      OnClick = doAutoStartClick
    end
    object doClose: TButton
      Left = 1055
      Top = 68
      Width = 75
      Height = 25
      Caption = 'Exit'
      TabOrder = 9
      OnClick = doCloseClick
    end
    object doStopAuto: TButton
      Left = 695
      Top = 65
      Width = 75
      Height = 25
      Caption = 'Stop Auto'
      TabOrder = 10
      OnClick = doStopAutoClick
    end
    object RefreshSecs: TSpinEdit
      Left = 787
      Top = 68
      Width = 46
      Height = 22
      MaxValue = 0
      MinValue = 0
      TabOrder = 11
      Value = 15
    end
  end
  object PanelLists: TPanel
    Left = 0
    Top = 0
    Width = 1150
    Height = 710
    Align = alClient
    TabOrder = 1
    ExplicitHeight = 694
    object ListWin: TListView
      Left = 1
      Top = 1
      Width = 1148
      Height = 279
      Align = alTop
      Columns = <
        item
          Caption = 'Window List - Caption'
          Width = 200
        end
        item
          Caption = 'Class'
          Width = 150
        end
        item
          Caption = 'Win Handle'
          Width = 70
        end
        item
          Caption = 'Process Id'
          Width = 80
        end
        item
          Caption = 'Thread Id'
          Width = 80
        end
        item
          Caption = 'Status'
          Width = 150
        end
        item
          Caption = 'EXE File'
          Width = 600
        end>
      GridLines = True
      ReadOnly = True
      TabOrder = 0
      ViewStyle = vsReport
    end
    object ListProc: TListView
      Left = 1
      Top = 280
      Width = 1148
      Height = 269
      Align = alClient
      Columns = <
        item
          Caption = 'Processes List - EXE File'
          Width = 600
        end
        item
          Caption = 'Process Id'
          Width = 80
        end
        item
          Caption = 'Heap Id'
          Width = 80
        end
        item
          Caption = 'Module Id'
          Width = 80
        end
        item
          Caption = 'Threads'
          Width = 80
        end
        item
          Caption = 'Priority'
          Width = 80
        end>
      GridLines = True
      ReadOnly = True
      TabOrder = 1
      ViewStyle = vsReport
      OnDblClick = ListProcDblClick
      ExplicitLeft = 0
      ExplicitTop = 278
      ExplicitHeight = 283
    end
    object Log: TMemo
      Left = 1
      Top = 549
      Width = 1148
      Height = 160
      Align = alBottom
      Lines.Strings = (
        'Log')
      ScrollBars = ssVertical
      TabOrder = 2
      ExplicitTop = 533
    end
  end
  object OpenApp: TOpenDialog
    Left = 287
    Top = 254
  end
  object AutoTimer: TTimer
    Enabled = False
    OnTimer = AutoTimerTimer
    Left = 372
    Top = 259
  end
end