FRAME_VmsStateF.dfm 14 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399
  1. object FRAMEVmsState: TFRAMEVmsState
  2. Left = 0
  3. Top = 0
  4. Width = 391
  5. Height = 377
  6. Font.Charset = DEFAULT_CHARSET
  7. Font.Color = clWindowText
  8. Font.Height = -12
  9. Font.Name = 'Tahoma'
  10. Font.Style = []
  11. ParentFont = False
  12. TabOrder = 0
  13. object CxVmsInfo: TcxGrid
  14. Left = 0
  15. Top = 0
  16. Width = 391
  17. Height = 336
  18. Align = alClient
  19. BevelInner = bvNone
  20. BevelOuter = bvNone
  21. TabOrder = 0
  22. LevelTabs.Style = 8
  23. LookAndFeel.Kind = lfUltraFlat
  24. LookAndFeel.NativeStyle = False
  25. object TvVmsInfo: TcxGridCardView
  26. FilterBox.CustomizeDialog = False
  27. DataController.Summary.DefaultGroupSummaryItems = <>
  28. DataController.Summary.FooterSummaryItems = <>
  29. DataController.Summary.SummaryGroups = <>
  30. DataController.Data = {
  31. 640100000F00000044617461436F6E74726F6C6C6572310E0000001200000054
  32. 6378537472696E6756616C75655479706512000000546378537472696E675661
  33. 6C75655479706512000000546378537472696E6756616C756554797065120000
  34. 00546378537472696E6756616C75655479706512000000546378537472696E67
  35. 56616C75655479706512000000546378537472696E6756616C75655479706512
  36. 000000546378537472696E6756616C7565547970651200000054637853747269
  37. 6E6756616C75655479706512000000546378537472696E6756616C7565547970
  38. 6512000000546378537472696E6756616C756554797065120000005463785374
  39. 72696E6756616C75655479706512000000546378537472696E6756616C756554
  40. 79706512000000546378537472696E6756616C75655479706512000000546378
  41. 537472696E6756616C75655479706501000000445855464D5400010101010101
  42. 0101010101010101}
  43. OptionsCustomize.RowMoving = True
  44. OptionsView.CellEndEllipsis = True
  45. OptionsView.ScrollBars = ssNone
  46. OptionsView.CaptionSeparator = #0
  47. OptionsView.CardAutoWidth = True
  48. OptionsView.CardIndent = 7
  49. OptionsView.CardWidth = 1000
  50. OptionsView.CategorySeparatorWidth = 5
  51. OptionsView.CellAutoHeight = True
  52. OptionsView.LayerSeparatorWidth = 1
  53. OptionsView.SeparatorColor = clLime
  54. Styles.CardBorder = cxStyle2
  55. Styles.RowCaption = cxStyle2
  56. object ColVmsId: TcxGridCardViewRow
  57. Caption = 'ID'
  58. PropertiesClassName = 'TcxTextEditProperties'
  59. Properties.Alignment.Horz = taCenter
  60. Properties.Alignment.Vert = taVCenter
  61. OnGetDataText = ColVmsIdGetDataText
  62. CaptionAlignmentHorz = taRightJustify
  63. CaptionAlignmentVert = vaCenter
  64. Options.Editing = False
  65. Options.Filtering = False
  66. Options.FilteringPopup = False
  67. Position.BeginsLayer = True
  68. Position.Width = 200
  69. end
  70. object ColVmsType: TcxGridCardViewRow
  71. Tag = 1
  72. Caption = 'Type'
  73. PropertiesClassName = 'TcxTextEditProperties'
  74. Properties.Alignment.Horz = taCenter
  75. Properties.Alignment.Vert = taVCenter
  76. OnGetDataText = ColVmsIdGetDataText
  77. CaptionAlignmentHorz = taRightJustify
  78. CaptionAlignmentVert = vaCenter
  79. Options.Editing = False
  80. Options.Filtering = False
  81. Options.FilteringPopup = False
  82. Position.BeginsLayer = False
  83. end
  84. object ColVmsNm: TcxGridCardViewRow
  85. Tag = 2
  86. Caption = 'Name'
  87. PropertiesClassName = 'TcxTextEditProperties'
  88. Properties.Alignment.Horz = taLeftJustify
  89. Properties.Alignment.Vert = taVCenter
  90. OnGetDataText = ColVmsIdGetDataText
  91. CaptionAlignmentHorz = taRightJustify
  92. CaptionAlignmentVert = vaCenter
  93. Options.Editing = False
  94. Options.Filtering = False
  95. Options.FilteringPopup = False
  96. Position.BeginsLayer = True
  97. end
  98. object ColVmsMode: TcxGridCardViewRow
  99. Tag = 3
  100. Caption = 'Operating Mode'
  101. PropertiesClassName = 'TcxTextEditProperties'
  102. Properties.Alignment.Horz = taCenter
  103. Properties.Alignment.Vert = taVCenter
  104. OnGetDataText = ColVmsIdGetDataText
  105. CaptionAlignmentHorz = taRightJustify
  106. CaptionAlignmentVert = vaCenter
  107. Options.Editing = False
  108. Options.Filtering = False
  109. Options.FilteringPopup = False
  110. Position.BeginsLayer = True
  111. Position.Width = 200
  112. end
  113. object ColVmsComm: TcxGridCardViewRow
  114. Tag = 4
  115. Caption = 'Communication'
  116. PropertiesClassName = 'TcxTextEditProperties'
  117. Properties.Alignment.Horz = taCenter
  118. Properties.Alignment.Vert = taVCenter
  119. OnGetDataText = ColVmsIdGetDataText
  120. CaptionAlignmentHorz = taRightJustify
  121. CaptionAlignmentVert = vaCenter
  122. Options.Editing = False
  123. Options.Filtering = False
  124. Options.FilteringPopup = False
  125. Position.BeginsLayer = False
  126. end
  127. object ColCatModule: TcxGridCardViewRow
  128. Caption = 'Module status'
  129. CaptionAlignmentHorz = taRightJustify
  130. CaptionAlignmentVert = vaCenter
  131. Expanded = True
  132. Kind = rkCategory
  133. Options.Editing = False
  134. Options.Filtering = False
  135. Options.FilteringPopup = False
  136. Position.BeginsLayer = True
  137. end
  138. object ColMod1: TcxGridCardViewRow
  139. Tag = 5
  140. Caption = 'Module'
  141. PropertiesClassName = 'TcxTextEditProperties'
  142. Properties.Alignment.Horz = taCenter
  143. Properties.Alignment.Vert = taVCenter
  144. OnGetDataText = ColVmsIdGetDataText
  145. CaptionAlignmentHorz = taRightJustify
  146. CaptionAlignmentVert = vaCenter
  147. Options.Editing = False
  148. Options.Filtering = False
  149. Options.FilteringPopup = False
  150. Position.BeginsLayer = True
  151. Position.Width = 200
  152. end
  153. object ColMod2: TcxGridCardViewRow
  154. Tag = 6
  155. Caption = 'Power'
  156. PropertiesClassName = 'TcxTextEditProperties'
  157. Properties.Alignment.Horz = taCenter
  158. Properties.Alignment.Vert = taVCenter
  159. OnGetDataText = ColVmsIdGetDataText
  160. CaptionAlignmentHorz = taRightJustify
  161. CaptionAlignmentVert = vaCenter
  162. Options.Editing = False
  163. Options.Filtering = False
  164. Options.FilteringPopup = False
  165. Position.BeginsLayer = False
  166. end
  167. object ColMod3: TcxGridCardViewRow
  168. Tag = 7
  169. Caption = 'Luminance'
  170. PropertiesClassName = 'TcxTextEditProperties'
  171. Properties.Alignment.Horz = taCenter
  172. Properties.Alignment.Vert = taVCenter
  173. Visible = False
  174. OnGetDataText = ColVmsIdGetDataText
  175. CaptionAlignmentHorz = taRightJustify
  176. CaptionAlignmentVert = vaCenter
  177. Options.Editing = False
  178. Options.Filtering = False
  179. Options.FilteringPopup = False
  180. Position.BeginsLayer = False
  181. Position.Width = 130
  182. VisibleForCustomization = False
  183. end
  184. object ColCatHamche: TcxGridCardViewRow
  185. Caption = 'Enclosure status'
  186. CaptionAlignmentHorz = taRightJustify
  187. CaptionAlignmentVert = vaCenter
  188. Expanded = True
  189. Kind = rkCategory
  190. Options.Editing = False
  191. Options.Filtering = False
  192. Options.FilteringPopup = False
  193. Position.BeginsLayer = True
  194. end
  195. object ColHam1: TcxGridCardViewRow
  196. Tag = 8
  197. Caption = 'Door'
  198. PropertiesClassName = 'TcxTextEditProperties'
  199. Properties.Alignment.Horz = taCenter
  200. Properties.Alignment.Vert = taVCenter
  201. OnGetDataText = ColVmsIdGetDataText
  202. CaptionAlignmentHorz = taRightJustify
  203. CaptionAlignmentVert = vaCenter
  204. Options.Editing = False
  205. Options.Filtering = False
  206. Options.FilteringPopup = False
  207. Position.BeginsLayer = True
  208. Position.Width = 200
  209. end
  210. object ColHam2: TcxGridCardViewRow
  211. Tag = 9
  212. Caption = ' Fan'
  213. PropertiesClassName = 'TcxTextEditProperties'
  214. Properties.Alignment.Horz = taCenter
  215. Properties.Alignment.Vert = taVCenter
  216. OnGetDataText = ColVmsIdGetDataText
  217. CaptionAlignmentHorz = taRightJustify
  218. CaptionAlignmentVert = vaCenter
  219. Options.Editing = False
  220. Options.Filtering = False
  221. Options.FilteringPopup = False
  222. Position.BeginsLayer = False
  223. end
  224. object ColHam3: TcxGridCardViewRow
  225. Tag = 10
  226. Caption = 'Heater'
  227. PropertiesClassName = 'TcxTextEditProperties'
  228. Properties.Alignment.Horz = taCenter
  229. Properties.Alignment.Vert = taVCenter
  230. OnGetDataText = ColVmsIdGetDataText
  231. CaptionAlignmentHorz = taRightJustify
  232. CaptionAlignmentVert = vaCenter
  233. Options.Editing = False
  234. Options.Filtering = False
  235. Options.FilteringPopup = False
  236. Position.BeginsLayer = True
  237. Position.Width = 200
  238. end
  239. object ColHam4: TcxGridCardViewRow
  240. Tag = 11
  241. Caption = 'Temperature'
  242. PropertiesClassName = 'TcxTextEditProperties'
  243. Properties.Alignment.Horz = taCenter
  244. Properties.Alignment.Vert = taVCenter
  245. OnGetDataText = ColVmsIdGetDataText
  246. CaptionAlignmentHorz = taRightJustify
  247. CaptionAlignmentVert = vaCenter
  248. Options.Editing = False
  249. Options.Filtering = False
  250. Options.FilteringPopup = False
  251. Position.BeginsLayer = False
  252. end
  253. end
  254. object GlVmsInfo: TcxGridLevel
  255. GridView = TvVmsInfo
  256. end
  257. end
  258. object PnlCmd: TPanel
  259. Left = 0
  260. Top = 336
  261. Width = 391
  262. Height = 41
  263. Align = alBottom
  264. Font.Charset = DEFAULT_CHARSET
  265. Font.Color = clWindowText
  266. Font.Height = -13
  267. Font.Name = 'Tahoma'
  268. Font.Style = []
  269. ParentFont = False
  270. TabOrder = 1
  271. DesignSize = (
  272. 391
  273. 41)
  274. object BtnControl0: TcxButton
  275. Left = 300
  276. Top = 8
  277. Width = 80
  278. Height = 25
  279. Cursor = crHandPoint
  280. Hint = 'VMS control command transmission'
  281. Anchors = [akRight, akBottom]
  282. Caption = 'Control'
  283. Colors.Default = 10737865
  284. Glyph.Data = {
  285. 36040000424D3604000000000000360000002800000010000000100000000100
  286. 2000000000000004000000000000000000000000000000000000000000000000
  287. 0000000000000000000000000000000000002A2A2A63424242BF3D3D3DBF2020
  288. 206300731EEB037B1EFF00020004000000000000000000000000000000000000
  289. 000000000000121212290606060E01010102767676EABDBDBDFFB2B2B2FF5454
  290. 54EA017928EB43A15FFF02651BD4000301060000000000000000000000000000
  291. 00004E4E4E9B6E6E6EFD5B5B5BE70C0C0C19229751FF1C914AFF168F44FF108B
  292. 3BFF3A9F5EFF80C196FF46A362FF086F21ED0003010700000000000000004F4F
  293. 4F7BBCBCBCFFDEDEDEFFA6A6A6FF7D7D7DF4299B5BFF90CAA9FF8DC8A5FF8AC6
  294. A1FF88C59EFF6AB685FF82C297FF48A566FF066F22EA00040109000000005454
  295. 547DA5A5A5FED5D5D5FFC5C5C5FFCBCBCBFF319F63FF94CDADFF6FBA8EFF6BB8
  296. 89FF66B685FF61B380FF67B582FF83C298FF3CA05CFF007C24F9000000000000
  297. 00005A5A5A85C5C5C5FFC1C1C1FFC5C5C5FF37A36BFF96CEB0FF94CDADFF91CB
  298. AAFF90CBA8FF74BC90FF8AC7A1FF46A568FF078534FB00010001838383CD7F7F
  299. 7FE3959595EECFCFCFFFC6C6C6FFCCCCCCFF3DA56FFF36A16CFC329F66FC309C
  300. 62FE55AF7CFF91CBAAFF4FAB74FF188E45FF4E4E4EE3434343CDBEBEBEFDE2E2
  301. E2FFD2D2D2FFC6C6C6FFCDCDCDFFB1B1B1FF2727274400000000000000002828
  302. 28443AA068FF5AB381FF289857FFC0C0C0FFD2D2D2FF606060FDC2C2C2FDE9E9
  303. E9FFD6D6D6FFC9C9C9FFCECECEFFA5A5A5FF2323234400000000000000002929
  304. 294440A470FF319F65FFBABABAFFC6C6C6FFDDDDDDFF6A6A6AFDA1A1A1CDAEAE
  305. AEE3B3B3B3EED8D8D8FFCDCDCDFFBCBCBCFF656565C620202044222222446F6F
  306. 6FC6C3C3C3FFC2C2C2FFCDCDCDFF838383EE787878E3696969CD000000000000
  307. 000067676785D4D4D4FFCCCCCCFFC9C9C9FFBABABAFF9C9C9CFFA1A1A1FFC2C2
  308. C2FFC6C6C6FFC1C1C1FFB7B7B7FF474747850000000000000000000000006363
  309. 637DC3C3C3FEDCDCDCFFD4D4D4FFD9D9D9FFDBDBDBFFD6D6D6FFD4D4D4FFD9D9
  310. D9FFD2D2D2FFCBCBCBFFC8C8C8FF797979FE3737377D00000000000000006464
  311. 647BDCDCDCFFEDEDEDFFDBDBDBFFBABABAF4BDBDBDFED6D6D6FFD4D4D4FFAFAF
  312. AFFEA5A5A5F4CBCBCBFFE7E7E7FFB7B7B7FF4343437B00000000000000000000
  313. 00007F7F7F9BCCCCCCFDB7B7B7E713131319B0B0B0E7DEDEDEFFDDDDDDFFA1A1
  314. A1E7111111199C9C9CE7A6A6A6FD6363639B0000000000000000000000000000
  315. 000000000000222222290B0B0B0E02020202B7B7B7EAE5E5E5FFE4E4E4FF9E9E
  316. 9EEA010101020A0A0A0E1C1C1C29000000000000000000000000000000000000
  317. 0000000000000000000000000000000000004F4F4F63959595BF939393BF4A4A
  318. 4A63000000000000000000000000000000000000000000000000}
  319. LookAndFeel.NativeStyle = False
  320. TabOrder = 0
  321. Font.Charset = DEFAULT_CHARSET
  322. Font.Color = clBlack
  323. Font.Height = -13
  324. Font.Name = #47569#51008' '#44256#46357
  325. Font.Style = [fsBold]
  326. ParentFont = False
  327. OnClick = BtnControl0Click
  328. end
  329. object RdbOn: TcxRadioButton
  330. Left = 6
  331. Top = 1
  332. Width = 86
  333. Height = 39
  334. Cursor = crHandPoint
  335. Hint = 'Turn on the electric signboard power.'
  336. Align = alLeft
  337. Caption = 'Board ON'
  338. Checked = True
  339. TabOrder = 1
  340. TabStop = True
  341. LookAndFeel.NativeStyle = True
  342. Transparent = True
  343. end
  344. object RdbOff: TcxRadioButton
  345. Left = 92
  346. Top = 1
  347. Width = 88
  348. Height = 39
  349. Cursor = crHandPoint
  350. Hint = 'Turn off the electric signboard power.'
  351. Align = alLeft
  352. Caption = 'Board OFF'
  353. TabOrder = 2
  354. LookAndFeel.NativeStyle = True
  355. Transparent = True
  356. end
  357. object RdbReset: TcxRadioButton
  358. Left = 180
  359. Top = 1
  360. Width = 92
  361. Height = 39
  362. Cursor = crHandPoint
  363. Hint = 'Reset the controller.'
  364. Align = alLeft
  365. Caption = 'Reset'
  366. TabOrder = 3
  367. LookAndFeel.NativeStyle = True
  368. Transparent = True
  369. end
  370. object Panel1: TPanel
  371. Left = 1
  372. Top = 1
  373. Width = 5
  374. Height = 39
  375. Align = alLeft
  376. BevelOuter = bvNone
  377. TabOrder = 4
  378. end
  379. end
  380. object cxStyleRepository1: TcxStyleRepository
  381. Left = 324
  382. Top = 24
  383. PixelsPerInch = 96
  384. object cxStyle1: TcxStyle
  385. AssignedValues = [svColor, svFont, svTextColor]
  386. Color = clOlive
  387. Font.Charset = DEFAULT_CHARSET
  388. Font.Color = clWindowText
  389. Font.Height = -11
  390. Font.Name = 'Tahoma'
  391. Font.Style = [fsBold]
  392. TextColor = clRed
  393. end
  394. object cxStyle2: TcxStyle
  395. AssignedValues = [svColor]
  396. Color = clSkyBlue
  397. end
  398. end
  399. end