object VmsCommMain: TVmsCommMain
  Left = 0
  Top = 0
  Caption = 'VMS '#53685#49888' '#49436#48260
  ClientHeight = 694
  ClientWidth = 843
  Color = clWhite
  Constraints.MinHeight = 600
  Constraints.MinWidth = 800
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Verdana'
  Font.Style = []
  Icon.Data = {
[encoded data, 9177 characters]
    0003C0000003C0000007E000000FF000001FFC00003FFF0000FFFFC003FF}
  OldCreateOrder = False
  Position = poScreenCenter
  ShowHint = True
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 0
    Top = 367
    Width = 843
    Height = 5
    Cursor = crVSplit
    Align = alTop
    Beveled = True
    Color = clBackground
    MinSize = 60
    ParentColor = False
    ResizeStyle = rsLine
    ExplicitTop = 271
    ExplicitWidth = 726
  end
  object tobMenu: TToolBar
    Left = 0
    Top = 0
    Width = 843
    Height = 58
    AutoSize = True
    ButtonHeight = 52
    ButtonWidth = 54
    EdgeBorders = [ebTop, ebBottom]
    Flat = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Images = ImageList1
    ParentFont = False
    ShowCaptions = True
    TabOrder = 0
    object tbConnect: TToolButton
      Left = 0
      Top = 0
      Cursor = crHandPoint
      Caption = #49436#48260' '#49884#51089
      Enabled = False
      ImageIndex = 0
      OnClick = tbConnectClick
    end
    object tbSeparator1: TToolButton
      Left = 54
      Top = 0
      Width = 8
      Caption = 'tbSeparator1'
      ImageIndex = 7
      Style = tbsSeparator
    end
    object tbDisconnect: TToolButton
      Left = 62
      Top = 0
      Cursor = crHandPoint
      Caption = #49436#48260' '#51473#45800
      Enabled = False
      ImageIndex = 1
      OnClick = tbDisconnectClick
    end
    object tbSeparator2: TToolButton
      Left = 116
      Top = 0
      Width = 8
      Caption = 'tbSeparator2'
      ImageIndex = 3
      Style = tbsSeparator
    end
    object tbOptions: TToolButton
      Left = 124
      Top = 0
      Cursor = crHandPoint
      Caption = #50741#49496' '#49444#51221
      ImageIndex = 2
      OnClick = tbOptionsClick
    end
    object tbSeparator3: TToolButton
      Left = 178
      Top = 0
      Width = 8
      Caption = 'tbSeparator3'
      ImageIndex = 6
      Style = tbsSeparator
      Visible = False
    end
  end
  object plBottom: TPanel
    Left = 0
    Top = 664
    Width = 843
    Height = 30
    Margins.Left = 0
    Margins.Top = 0
    Margins.Right = 0
    Margins.Bottom = 0
    Align = alBottom
    BevelOuter = bvNone
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object plStateAction: TPanel
      AlignWithMargins = True
      Left = 3
      Top = 2
      Width = 50
      Height = 26
      Hint = #53685#49888#49436#48260' '#49345#53468
      Margins.Top = 2
      Margins.Right = 0
      Margins.Bottom = 2
      Align = alLeft
      BevelKind = bkSoft
      BevelOuter = bvNone
      Caption = 'RUN'
      Color = clGreen
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentBackground = False
      ParentFont = False
      TabOrder = 0
      OnDblClick = plStateActionDblClick
    end
    object plStateComm: TPanel
      AlignWithMargins = True
      Left = 53
      Top = 2
      Width = 50
      Height = 26
      Hint = #51204#52404' '#51228#50612#44592' '#53685#49888' '#49345#53468
      Margins.Left = 0
      Margins.Top = 2
      Margins.Right = 0
      Margins.Bottom = 2
      Align = alLeft
      BevelKind = bkSoft
      BevelOuter = bvNone
      Caption = 'COM'
      Color = clRed
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentBackground = False
      ParentFont = False
      TabOrder = 1
      OnDblClick = plStateCommDblClick
    end
    object plStateDb: TPanel
      AlignWithMargins = True
      Left = 103
      Top = 2
      Width = 50
      Height = 26
      Hint = #45936#51060#53552#48288#51060#49828' '#49345#53468
      Margins.Left = 0
      Margins.Top = 2
      Margins.Right = 0
      Margins.Bottom = 2
      Align = alLeft
      BevelKind = bkSoft
      BevelOuter = bvNone
      Caption = 'DB'
      Color = clRed
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentBackground = False
      ParentFont = False
      TabOrder = 2
      OnDblClick = plStateDbDblClick
    end
    object plTime: TPanel
      AlignWithMargins = True
      Left = 615
      Top = 2
      Width = 170
      Height = 26
      Margins.Top = 2
      Margins.Bottom = 2
      Align = alRight
      BevelKind = bkSoft
      BevelOuter = bvNone
      Caption = '2015-07-01 14:24:38'
      Color = clBlack
      Ctl3D = True
      DoubleBuffered = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clLime
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentBackground = False
      ParentCtl3D = False
      ParentDoubleBuffered = False
      ParentFont = False
      TabOrder = 3
      OnDblClick = plTimeDblClick
    end
    object Panel1: TPanel
      AlignWithMargins = True
      Left = 225
      Top = 2
      Width = 384
      Height = 26
      Margins.Top = 2
      Margins.Bottom = 2
      Align = alRight
      BevelKind = bkSoft
      BevelOuter = bvNone
      ParentBackground = False
      ParentColor = True
      TabOrder = 4
      Visible = False
      object Panel16: TPanel
        AlignWithMargins = True
        Left = 3
        Top = 1
        Width = 114
        Height = 20
        Cursor = crHandPoint
        Margins.Top = 1
        Margins.Bottom = 1
        Align = alClient
        BevelOuter = bvNone
        Caption = #51088#50896#49324#50857#54788#54889'(T/M/G/H)'
        ParentBackground = False
        TabOrder = 0
        OnDblClick = Panel16DblClick
      end
      object plThread: TPanel
        AlignWithMargins = True
        Left = 120
        Top = 0
        Width = 65
        Height = 22
        Hint = 'Thread(EA)'
        Margins.Left = 0
        Margins.Top = 0
        Margins.Right = 0
        Margins.Bottom = 0
        Align = alRight
        BevelInner = bvLowered
        BevelOuter = bvNone
        Caption = 'Thread'
        Color = clTeal
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindow
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentBackground = False
        ParentFont = False
        TabOrder = 1
      end
      object plMemory: TPanel
        AlignWithMargins = True
        Left = 185
        Top = 0
        Width = 65
        Height = 22
        Hint = 'Memory(KB)'
        Margins.Left = 0
        Margins.Top = 0
        Margins.Right = 0
        Margins.Bottom = 0
        Align = alRight
        BevelInner = bvLowered
        BevelOuter = bvNone
        Caption = 'Memory'
        Color = clTeal
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindow
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentBackground = False
        ParentFont = False
        TabOrder = 2
      end
      object plGdi: TPanel
        AlignWithMargins = True
        Left = 250
        Top = 0
        Width = 65
        Height = 22
        Hint = 'GDI Object(EA)'
        Margins.Left = 0
        Margins.Top = 0
        Margins.Right = 0
        Margins.Bottom = 0
        Align = alRight
        BevelInner = bvLowered
        BevelOuter = bvNone
        Caption = 'GDI'
        Color = clTeal
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindow
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentBackground = False
        ParentFont = False
        TabOrder = 3
      end
      object plHandle: TPanel
        AlignWithMargins = True
        Left = 315
        Top = 0
        Width = 65
        Height = 22
        Hint = 'Handle(EA)'
        Margins.Left = 0
        Margins.Top = 0
        Margins.Right = 0
        Margins.Bottom = 0
        Align = alRight
        BevelInner = bvLowered
        BevelOuter = bvNone
        Caption = 'Handle'
        Color = clTeal
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindow
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentBackground = False
        ParentFont = False
        TabOrder = 4
      end
    end
    object Panel2: TPanel
      AlignWithMargins = True
      Left = 156
      Top = 1
      Width = 0
      Height = 28
      Hint = #51088#50896#49324#50857#54788#54889'(Thread/Memory/GDI/Handle)'
      Margins.Top = 1
      Margins.Bottom = 1
      Align = alClient
      BevelOuter = bvNone
      ParentBackground = False
      TabOrder = 5
    end
    object plStateLog: TPanel
      AlignWithMargins = True
      Left = 156
      Top = 2
      Width = 22
      Height = 26
      Hint = 'Log Thread'
      Margins.Left = 0
      Margins.Top = 2
      Margins.Right = 0
      Margins.Bottom = 2
      Align = alRight
      BevelKind = bkSoft
      BevelOuter = bvNone
      Caption = 'L'
      Color = clLime
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentBackground = False
      ParentFont = False
      TabOrder = 6
      OnDblClick = plStateDbDblClick
    end
    object plStateDbm: TPanel
      AlignWithMargins = True
      Left = 178
      Top = 2
      Width = 22
      Height = 26
      Hint = 'DB Thread'
      Margins.Left = 0
      Margins.Top = 2
      Margins.Right = 0
      Margins.Bottom = 2
      Align = alRight
      BevelKind = bkSoft
      BevelOuter = bvNone
      Caption = 'D'
      Color = clLime
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentBackground = False
      ParentFont = False
      TabOrder = 7
      OnDblClick = plStateDbDblClick
    end
    object plStateJob: TPanel
      AlignWithMargins = True
      Left = 200
      Top = 2
      Width = 22
      Height = 26
      Hint = 'Job Thread'
      Margins.Left = 0
      Margins.Top = 2
      Margins.Right = 0
      Margins.Bottom = 2
      Align = alRight
      BevelKind = bkSoft
      BevelOuter = bvNone
      Caption = 'J'
      Color = clLime
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentBackground = False
      ParentFont = False
      TabOrder = 8
      OnDblClick = plStateDbDblClick
    end
    object plRemain: TPanel
      AlignWithMargins = True
      Left = 791
      Top = 2
      Width = 49
      Height = 26
      Margins.Top = 2
      Margins.Bottom = 2
      Align = alRight
      BevelKind = bkSoft
      BevelOuter = bvNone
      Caption = '300'
      Color = clBlack
      Ctl3D = True
      DoubleBuffered = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clLime
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentBackground = False
      ParentCtl3D = False
      ParentDoubleBuffered = False
      ParentFont = False
      TabOrder = 9
      OnDblClick = plRemainDblClick
    end
  end
  object pnlLog: TPanel
    AlignWithMargins = True
    Left = 0
    Top = 372
    Width = 843
    Height = 292
    Margins.Left = 0
    Margins.Top = 0
    Margins.Right = 0
    Margins.Bottom = 0
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 2
  end
  object pnlController: TPanel
    AlignWithMargins = True
    Left = 0
    Top = 58
    Width = 843
    Height = 309
    Margins.Left = 0
    Margins.Top = 0
    Margins.Right = 0
    Margins.Bottom = 0
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 3
  end
  object tmrAppState: TTimer
    OnTimer = tmrAppStateTimer
    Left = 55
    Top = 96
  end
  object ImageList1: TImageList
    Height = 32
    Width = 32
    Left = 336
    Top = 145
    Bitmap = {
[encoded data, 112819 characters]
      000000000000}
  end
  object IdUDPCenterServer: TIdUDPServer
    BroadcastEnabled = True
    Bindings = <>
    DefaultPort = 0
    ThreadedEvent = True
    Left = 560
    Top = 88
  end
  object tmrProvide: TTimer
    Enabled = False
    OnTimer = tmrProvideTimer
    Left = 135
    Top = 104
  end
  object tmrRunProvide: TTimer
    Enabled = False
    Interval = 10000
    OnTimer = tmrRunProvideTimer
    Left = 279
    Top = 368
  end
  object tmrDbCheck: TTimer
    Enabled = False
    Interval = 30000
    OnTimer = tmrDbCheckTimer
    Left = 463
    Top = 416
  end
end
