| 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
 
 
  |