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