VMSWCAM0F.dfm 4.6 KB

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