123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182 |
- 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
- ExplicitWidth = 320
- ExplicitHeight = 240
- 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
|