VMSWCAM0F.dfm 4.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182
  1. object VMSWCAM0: TVMSWCAM0
  2. Left = 0
  3. Top = 0
  4. Align = alCustom
  5. BorderIcons = []
  6. BorderStyle = bsNone
  7. Caption = 'VMSWCAM0'
  8. ClientHeight = 220
  9. ClientWidth = 367
  10. Color = clSilver
  11. ParentFont = True
  12. Padding.Left = 2
  13. Padding.Top = 2
  14. Padding.Right = 2
  15. Padding.Bottom = 2
  16. OldCreateOrder = False
  17. Position = poDesigned
  18. ShowHint = True
  19. OnClose = FormClose
  20. OnDestroy = FormDestroy
  21. OnShow = FormShow
  22. ExplicitWidth = 320
  23. ExplicitHeight = 240
  24. PixelsPerInch = 96
  25. TextHeight = 13
  26. object PnlMain: TPanel
  27. Left = 2
  28. Top = 2
  29. Width = 363
  30. Height = 216
  31. Align = alClient
  32. BevelInner = bvLowered
  33. ParentBackground = False
  34. TabOrder = 0
  35. object PnlTitle: TPanel
  36. Left = 2
  37. Top = 2
  38. Width = 359
  39. Height = 22
  40. Align = alTop
  41. BevelOuter = bvNone
  42. ParentColor = True
  43. TabOrder = 0
  44. Visible = False
  45. object PnlName: TPanel
  46. Left = 0
  47. Top = 0
  48. Width = 359
  49. Height = 22
  50. Cursor = crHandPoint
  51. Align = alClient
  52. Alignment = taLeftJustify
  53. BevelOuter = bvNone
  54. Caption = ' [VMS000000] '#49328#48376#44256#44032#46020#47196
  55. Font.Charset = DEFAULT_CHARSET
  56. Font.Color = clNavy
  57. Font.Height = -12
  58. Font.Name = #47569#51008' '#44256#46357
  59. Font.Style = [fsBold]
  60. ParentBackground = False
  61. ParentColor = True
  62. ParentFont = False
  63. TabOrder = 0
  64. OnClick = PnlNameClick
  65. end
  66. end
  67. object PnFormBack: TPanel
  68. Left = 2
  69. Top = 24
  70. Width = 359
  71. Height = 190
  72. Align = alClient
  73. BevelOuter = bvNone
  74. ParentBackground = False
  75. ParentColor = True
  76. TabOrder = 1
  77. OnClick = OnFormClick
  78. object PnlCamera: TPanel
  79. Left = 0
  80. Top = 0
  81. Width = 359
  82. Height = 190
  83. Align = alClient
  84. BevelInner = bvLowered
  85. Color = clBlack
  86. DoubleBuffered = False
  87. Font.Charset = DEFAULT_CHARSET
  88. Font.Color = clWhite
  89. Font.Height = -13
  90. Font.Name = #47569#51008' '#44256#46357
  91. Font.Style = [fsBold]
  92. ParentBackground = False
  93. ParentDoubleBuffered = False
  94. ParentFont = False
  95. TabOrder = 0
  96. object LblName: TcxLabel
  97. Left = 5
  98. Top = 5
  99. ParentCustomHint = False
  100. Caption = #52852#47700#46972' '#47749#52845
  101. ParentColor = False
  102. ParentFont = False
  103. ParentShowHint = False
  104. ShowHint = False
  105. Style.Font.Charset = DEFAULT_CHARSET
  106. Style.Font.Color = clWhite
  107. Style.Font.Height = -13
  108. Style.Font.Name = #47569#51008' '#44256#46357
  109. Style.Font.Style = [fsBold]
  110. Style.LookAndFeel.NativeStyle = True
  111. Style.TransparentBorder = False
  112. Style.IsFontAssigned = True
  113. StyleDisabled.LookAndFeel.NativeStyle = True
  114. StyleFocused.LookAndFeel.NativeStyle = True
  115. StyleHot.LookAndFeel.NativeStyle = True
  116. Properties.Alignment.Vert = taVCenter
  117. Transparent = True
  118. OnDblClick = LblNameDblClick
  119. AnchorY = 14
  120. end
  121. end
  122. end
  123. end
  124. object PopupMenu1: TPopupMenu
  125. AutoHotkeys = maManual
  126. AutoLineReduction = maManual
  127. OnPopup = PopupMenu1Popup
  128. Left = 200
  129. Top = 120
  130. object MnuVmsInfId: TMenuItem
  131. Caption = 'VMS ID'
  132. Default = True
  133. Enabled = False
  134. end
  135. object N2: TMenuItem
  136. Caption = '-'
  137. end
  138. object MnuCtlrPing: TMenuItem
  139. Caption = #51228#50612#44592' Ping'
  140. OnClick = MnuNetworkPingClick
  141. end
  142. object MnuWebcamPing: TMenuItem
  143. Tag = 1
  144. Caption = #50937#52852#47700#46972' Ping'
  145. OnClick = MnuNetworkPingClick
  146. end
  147. object N1: TMenuItem
  148. Caption = '-'
  149. end
  150. object MnuPlay: TMenuItem
  151. Tag = 3
  152. Caption = #52852#47700#46972' '#50672#44208'...'
  153. Hint = 'VMS'
  154. OnClick = MnuPlayClick
  155. end
  156. object MnuStop: TMenuItem
  157. Tag = 4
  158. Caption = #52852#47700#46972' '#50672#44208#54644#51228'...'
  159. Hint = 'VMS'
  160. OnClick = MnuStopClick
  161. end
  162. end
  163. object TmrPlay: TTimer
  164. Enabled = False
  165. Interval = 500
  166. OnTimer = TmrPlayTimer
  167. Left = 116
  168. Top = 132
  169. end
  170. object TmrStop: TTimer
  171. Enabled = False
  172. Interval = 500
  173. OnTimer = TmrStopTimer
  174. Left = 44
  175. Top = 132
  176. end
  177. object FFPlayer1: TFFPlayer
  178. OnState = FFPlayer1State
  179. Left = 152
  180. Top = 72
  181. end
  182. end