ITS-OP/VmsFormEdit/PLUGIN/COMMON/VMSWCAM0F.dfm

object VMSWCAM0: TVMSWCAM0
  Left = 0
  Top = 0
  Align = alCustom
  BorderIcons = []
  BorderStyle = bsNone
  Caption = 'VMSWCAM0'
  ClientHeight = 220
  ClientWidth = 367
  Color = clSilver
  ParentFont = True
  Padding.Left = 2
  Padding.Top = 2
  Padding.Right = 2
  Padding.Bottom = 2
  OldCreateOrder = False
  Position = poDesigned
  ShowHint = True
  OnClose = FormClose
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object PnlMain: TPanel
    Left = 2
    Top = 2
    Width = 363
    Height = 216
    Align = alClient
    BevelInner = bvLowered
    ParentBackground = False
    TabOrder = 0
    object PnlTitle: TPanel
      Left = 2
      Top = 2
      Width = 359
      Height = 22
      Align = alTop
      BevelOuter = bvNone
      ParentColor = True
      TabOrder = 0
      Visible = False
      object PnlName: TPanel
        Left = 0
        Top = 0
        Width = 359
        Height = 22
        Cursor = crHandPoint
        Align = alClient
        Alignment = taLeftJustify
        BevelOuter = bvNone
        Caption = '  [VMS000000] '#49328#48376#44256#44032#46020#47196
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -12
        Font.Name = #47569#51008' '#44256#46357
        Font.Style = [fsBold]
        ParentBackground = False
        ParentColor = True
        ParentFont = False
        TabOrder = 0
        OnClick = PnlNameClick
      end
    end
    object PnFormBack: TPanel
      Left = 2
      Top = 24
      Width = 359
      Height = 190
      Align = alClient
      BevelOuter = bvNone
      ParentBackground = False
      ParentColor = True
      TabOrder = 1
      OnClick = OnFormClick
      object PnlCamera: TPanel
        Left = 0
        Top = 0
        Width = 359
        Height = 190
        Align = alClient
        BevelInner = bvLowered
        Color = clBlack
        DoubleBuffered = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWhite
        Font.Height = -13
        Font.Name = #47569#51008' '#44256#46357
        Font.Style = [fsBold]
        ParentBackground = False
        ParentDoubleBuffered = False
        ParentFont = False
        TabOrder = 0
        object LblName: TcxLabel
          Left = 5
          Top = 5
          ParentCustomHint = False
          Caption = #52852#47700#46972' '#47749#52845
          ParentColor = False
          ParentFont = False
          ParentShowHint = False
          ShowHint = False
          Style.Font.Charset = DEFAULT_CHARSET
          Style.Font.Color = clWhite
          Style.Font.Height = -13
          Style.Font.Name = #47569#51008' '#44256#46357
          Style.Font.Style = [fsBold]
          Style.LookAndFeel.NativeStyle = True
          Style.TransparentBorder = False
          Style.IsFontAssigned = True
          StyleDisabled.LookAndFeel.NativeStyle = True
          StyleFocused.LookAndFeel.NativeStyle = True
          StyleHot.LookAndFeel.NativeStyle = True
          Properties.Alignment.Vert = taVCenter
          Transparent = True
          OnDblClick = LblNameDblClick
          AnchorY = 14
        end
      end
    end
  end
  object PopupMenu1: TPopupMenu
    AutoHotkeys = maManual
    AutoLineReduction = maManual
    OnPopup = PopupMenu1Popup
    Left = 200
    Top = 120
    object MnuVmsInfId: TMenuItem
      Caption = 'VMS ID'
      Default = True
      Enabled = False
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object MnuCtlrPing: TMenuItem
      Caption = #51228#50612#44592' Ping'
      OnClick = MnuNetworkPingClick
    end
    object MnuWebcamPing: TMenuItem
      Tag = 1
      Caption = #50937#52852#47700#46972' Ping'
      OnClick = MnuNetworkPingClick
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object MnuPlay: TMenuItem
      Tag = 3
      Caption = #52852#47700#46972' '#50672#44208'...'
      Hint = 'VMS'
      OnClick = MnuPlayClick
    end
    object MnuStop: TMenuItem
      Tag = 4
      Caption = #52852#47700#46972' '#50672#44208#54644#51228'...'
      Hint = 'VMS'
      OnClick = MnuStopClick
    end
  end
  object TmrPlay: TTimer
    Enabled = False
    Interval = 500
    OnTimer = TmrPlayTimer
    Left = 116
    Top = 132
  end
  object TmrStop: TTimer
    Enabled = False
    Interval = 500
    OnTimer = TmrStopTimer
    Left = 44
    Top = 132
  end
  object FFPlayer1: TFFPlayer
    OnState = FFPlayer1State
    Left = 152
    Top = 72
  end
end