123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399 |
- object FRAMEVmsState: TFRAMEVmsState
- Left = 0
- Top = 0
- Width = 391
- Height = 377
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- object CxVmsInfo: TcxGrid
- Left = 0
- Top = 0
- Width = 391
- Height = 336
- Align = alClient
- BevelInner = bvNone
- BevelOuter = bvNone
- TabOrder = 0
- LevelTabs.Style = 8
- LookAndFeel.Kind = lfUltraFlat
- LookAndFeel.NativeStyle = False
- object TvVmsInfo: TcxGridCardView
- FilterBox.CustomizeDialog = False
- DataController.Summary.DefaultGroupSummaryItems = <>
- DataController.Summary.FooterSummaryItems = <>
- DataController.Summary.SummaryGroups = <>
- DataController.Data = {
- 640100000F00000044617461436F6E74726F6C6C6572310E0000001200000054
- 6378537472696E6756616C75655479706512000000546378537472696E675661
- 6C75655479706512000000546378537472696E6756616C756554797065120000
- 00546378537472696E6756616C75655479706512000000546378537472696E67
- 56616C75655479706512000000546378537472696E6756616C75655479706512
- 000000546378537472696E6756616C7565547970651200000054637853747269
- 6E6756616C75655479706512000000546378537472696E6756616C7565547970
- 6512000000546378537472696E6756616C756554797065120000005463785374
- 72696E6756616C75655479706512000000546378537472696E6756616C756554
- 79706512000000546378537472696E6756616C75655479706512000000546378
- 537472696E6756616C75655479706501000000445855464D5400010101010101
- 0101010101010101}
- OptionsCustomize.RowMoving = True
- OptionsView.CellEndEllipsis = True
- OptionsView.ScrollBars = ssNone
- OptionsView.CaptionSeparator = #0
- OptionsView.CardAutoWidth = True
- OptionsView.CardIndent = 7
- OptionsView.CardWidth = 1000
- OptionsView.CategorySeparatorWidth = 5
- OptionsView.CellAutoHeight = True
- OptionsView.LayerSeparatorWidth = 1
- OptionsView.SeparatorColor = clLime
- Styles.CardBorder = cxStyle2
- Styles.RowCaption = cxStyle2
- object ColVmsId: TcxGridCardViewRow
- Caption = 'ID'
- PropertiesClassName = 'TcxTextEditProperties'
- Properties.Alignment.Horz = taCenter
- Properties.Alignment.Vert = taVCenter
- OnGetDataText = ColVmsIdGetDataText
- CaptionAlignmentHorz = taRightJustify
- CaptionAlignmentVert = vaCenter
- Options.Editing = False
- Options.Filtering = False
- Options.FilteringPopup = False
- Position.BeginsLayer = True
- Position.Width = 200
- end
- object ColVmsType: TcxGridCardViewRow
- Tag = 1
- Caption = 'Type'
- PropertiesClassName = 'TcxTextEditProperties'
- Properties.Alignment.Horz = taCenter
- Properties.Alignment.Vert = taVCenter
- OnGetDataText = ColVmsIdGetDataText
- CaptionAlignmentHorz = taRightJustify
- CaptionAlignmentVert = vaCenter
- Options.Editing = False
- Options.Filtering = False
- Options.FilteringPopup = False
- Position.BeginsLayer = False
- end
- object ColVmsNm: TcxGridCardViewRow
- Tag = 2
- Caption = 'Name'
- PropertiesClassName = 'TcxTextEditProperties'
- Properties.Alignment.Horz = taLeftJustify
- Properties.Alignment.Vert = taVCenter
- OnGetDataText = ColVmsIdGetDataText
- CaptionAlignmentHorz = taRightJustify
- CaptionAlignmentVert = vaCenter
- Options.Editing = False
- Options.Filtering = False
- Options.FilteringPopup = False
- Position.BeginsLayer = True
- end
- object ColVmsMode: TcxGridCardViewRow
- Tag = 3
- Caption = 'Operating Mode'
- PropertiesClassName = 'TcxTextEditProperties'
- Properties.Alignment.Horz = taCenter
- Properties.Alignment.Vert = taVCenter
- OnGetDataText = ColVmsIdGetDataText
- CaptionAlignmentHorz = taRightJustify
- CaptionAlignmentVert = vaCenter
- Options.Editing = False
- Options.Filtering = False
- Options.FilteringPopup = False
- Position.BeginsLayer = True
- Position.Width = 200
- end
- object ColVmsComm: TcxGridCardViewRow
- Tag = 4
- Caption = 'Communication'
- PropertiesClassName = 'TcxTextEditProperties'
- Properties.Alignment.Horz = taCenter
- Properties.Alignment.Vert = taVCenter
- OnGetDataText = ColVmsIdGetDataText
- CaptionAlignmentHorz = taRightJustify
- CaptionAlignmentVert = vaCenter
- Options.Editing = False
- Options.Filtering = False
- Options.FilteringPopup = False
- Position.BeginsLayer = False
- end
- object ColCatModule: TcxGridCardViewRow
- Caption = 'Module status'
- CaptionAlignmentHorz = taRightJustify
- CaptionAlignmentVert = vaCenter
- Expanded = True
- Kind = rkCategory
- Options.Editing = False
- Options.Filtering = False
- Options.FilteringPopup = False
- Position.BeginsLayer = True
- end
- object ColMod1: TcxGridCardViewRow
- Tag = 5
- Caption = 'Module'
- PropertiesClassName = 'TcxTextEditProperties'
- Properties.Alignment.Horz = taCenter
- Properties.Alignment.Vert = taVCenter
- OnGetDataText = ColVmsIdGetDataText
- CaptionAlignmentHorz = taRightJustify
- CaptionAlignmentVert = vaCenter
- Options.Editing = False
- Options.Filtering = False
- Options.FilteringPopup = False
- Position.BeginsLayer = True
- Position.Width = 200
- end
- object ColMod2: TcxGridCardViewRow
- Tag = 6
- Caption = 'Power'
- PropertiesClassName = 'TcxTextEditProperties'
- Properties.Alignment.Horz = taCenter
- Properties.Alignment.Vert = taVCenter
- OnGetDataText = ColVmsIdGetDataText
- CaptionAlignmentHorz = taRightJustify
- CaptionAlignmentVert = vaCenter
- Options.Editing = False
- Options.Filtering = False
- Options.FilteringPopup = False
- Position.BeginsLayer = False
- end
- object ColMod3: TcxGridCardViewRow
- Tag = 7
- Caption = 'Luminance'
- PropertiesClassName = 'TcxTextEditProperties'
- Properties.Alignment.Horz = taCenter
- Properties.Alignment.Vert = taVCenter
- Visible = False
- OnGetDataText = ColVmsIdGetDataText
- CaptionAlignmentHorz = taRightJustify
- CaptionAlignmentVert = vaCenter
- Options.Editing = False
- Options.Filtering = False
- Options.FilteringPopup = False
- Position.BeginsLayer = False
- Position.Width = 130
- VisibleForCustomization = False
- end
- object ColCatHamche: TcxGridCardViewRow
- Caption = 'Enclosure status'
- CaptionAlignmentHorz = taRightJustify
- CaptionAlignmentVert = vaCenter
- Expanded = True
- Kind = rkCategory
- Options.Editing = False
- Options.Filtering = False
- Options.FilteringPopup = False
- Position.BeginsLayer = True
- end
- object ColHam1: TcxGridCardViewRow
- Tag = 8
- Caption = 'Door'
- PropertiesClassName = 'TcxTextEditProperties'
- Properties.Alignment.Horz = taCenter
- Properties.Alignment.Vert = taVCenter
- OnGetDataText = ColVmsIdGetDataText
- CaptionAlignmentHorz = taRightJustify
- CaptionAlignmentVert = vaCenter
- Options.Editing = False
- Options.Filtering = False
- Options.FilteringPopup = False
- Position.BeginsLayer = True
- Position.Width = 200
- end
- object ColHam2: TcxGridCardViewRow
- Tag = 9
- Caption = ' Fan'
- PropertiesClassName = 'TcxTextEditProperties'
- Properties.Alignment.Horz = taCenter
- Properties.Alignment.Vert = taVCenter
- OnGetDataText = ColVmsIdGetDataText
- CaptionAlignmentHorz = taRightJustify
- CaptionAlignmentVert = vaCenter
- Options.Editing = False
- Options.Filtering = False
- Options.FilteringPopup = False
- Position.BeginsLayer = False
- end
- object ColHam3: TcxGridCardViewRow
- Tag = 10
- Caption = 'Heater'
- PropertiesClassName = 'TcxTextEditProperties'
- Properties.Alignment.Horz = taCenter
- Properties.Alignment.Vert = taVCenter
- OnGetDataText = ColVmsIdGetDataText
- CaptionAlignmentHorz = taRightJustify
- CaptionAlignmentVert = vaCenter
- Options.Editing = False
- Options.Filtering = False
- Options.FilteringPopup = False
- Position.BeginsLayer = True
- Position.Width = 200
- end
- object ColHam4: TcxGridCardViewRow
- Tag = 11
- Caption = 'Temperature'
- PropertiesClassName = 'TcxTextEditProperties'
- Properties.Alignment.Horz = taCenter
- Properties.Alignment.Vert = taVCenter
- OnGetDataText = ColVmsIdGetDataText
- CaptionAlignmentHorz = taRightJustify
- CaptionAlignmentVert = vaCenter
- Options.Editing = False
- Options.Filtering = False
- Options.FilteringPopup = False
- Position.BeginsLayer = False
- end
- end
- object GlVmsInfo: TcxGridLevel
- GridView = TvVmsInfo
- end
- end
- object PnlCmd: TPanel
- Left = 0
- Top = 336
- Width = 391
- Height = 41
- Align = alBottom
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- DesignSize = (
- 391
- 41)
- object BtnControl0: TcxButton
- Left = 300
- Top = 8
- Width = 80
- Height = 25
- Cursor = crHandPoint
- Hint = 'VMS control command transmission'
- Anchors = [akRight, akBottom]
- Caption = 'Control'
- Colors.Default = 10737865
- Glyph.Data = {
- 36040000424D3604000000000000360000002800000010000000100000000100
- 2000000000000004000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000002A2A2A63424242BF3D3D3DBF2020
- 206300731EEB037B1EFF00020004000000000000000000000000000000000000
- 000000000000121212290606060E01010102767676EABDBDBDFFB2B2B2FF5454
- 54EA017928EB43A15FFF02651BD4000301060000000000000000000000000000
- 00004E4E4E9B6E6E6EFD5B5B5BE70C0C0C19229751FF1C914AFF168F44FF108B
- 3BFF3A9F5EFF80C196FF46A362FF086F21ED0003010700000000000000004F4F
- 4F7BBCBCBCFFDEDEDEFFA6A6A6FF7D7D7DF4299B5BFF90CAA9FF8DC8A5FF8AC6
- A1FF88C59EFF6AB685FF82C297FF48A566FF066F22EA00040109000000005454
- 547DA5A5A5FED5D5D5FFC5C5C5FFCBCBCBFF319F63FF94CDADFF6FBA8EFF6BB8
- 89FF66B685FF61B380FF67B582FF83C298FF3CA05CFF007C24F9000000000000
- 00005A5A5A85C5C5C5FFC1C1C1FFC5C5C5FF37A36BFF96CEB0FF94CDADFF91CB
- AAFF90CBA8FF74BC90FF8AC7A1FF46A568FF078534FB00010001838383CD7F7F
- 7FE3959595EECFCFCFFFC6C6C6FFCCCCCCFF3DA56FFF36A16CFC329F66FC309C
- 62FE55AF7CFF91CBAAFF4FAB74FF188E45FF4E4E4EE3434343CDBEBEBEFDE2E2
- E2FFD2D2D2FFC6C6C6FFCDCDCDFFB1B1B1FF2727274400000000000000002828
- 28443AA068FF5AB381FF289857FFC0C0C0FFD2D2D2FF606060FDC2C2C2FDE9E9
- E9FFD6D6D6FFC9C9C9FFCECECEFFA5A5A5FF2323234400000000000000002929
- 294440A470FF319F65FFBABABAFFC6C6C6FFDDDDDDFF6A6A6AFDA1A1A1CDAEAE
- AEE3B3B3B3EED8D8D8FFCDCDCDFFBCBCBCFF656565C620202044222222446F6F
- 6FC6C3C3C3FFC2C2C2FFCDCDCDFF838383EE787878E3696969CD000000000000
- 000067676785D4D4D4FFCCCCCCFFC9C9C9FFBABABAFF9C9C9CFFA1A1A1FFC2C2
- C2FFC6C6C6FFC1C1C1FFB7B7B7FF474747850000000000000000000000006363
- 637DC3C3C3FEDCDCDCFFD4D4D4FFD9D9D9FFDBDBDBFFD6D6D6FFD4D4D4FFD9D9
- D9FFD2D2D2FFCBCBCBFFC8C8C8FF797979FE3737377D00000000000000006464
- 647BDCDCDCFFEDEDEDFFDBDBDBFFBABABAF4BDBDBDFED6D6D6FFD4D4D4FFAFAF
- AFFEA5A5A5F4CBCBCBFFE7E7E7FFB7B7B7FF4343437B00000000000000000000
- 00007F7F7F9BCCCCCCFDB7B7B7E713131319B0B0B0E7DEDEDEFFDDDDDDFFA1A1
- A1E7111111199C9C9CE7A6A6A6FD6363639B0000000000000000000000000000
- 000000000000222222290B0B0B0E02020202B7B7B7EAE5E5E5FFE4E4E4FF9E9E
- 9EEA010101020A0A0A0E1C1C1C29000000000000000000000000000000000000
- 0000000000000000000000000000000000004F4F4F63959595BF939393BF4A4A
- 4A63000000000000000000000000000000000000000000000000}
- LookAndFeel.NativeStyle = False
- TabOrder = 0
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = #47569#51008' '#44256#46357
- Font.Style = [fsBold]
- ParentFont = False
- OnClick = BtnControl0Click
- end
- object RdbOn: TcxRadioButton
- Left = 6
- Top = 1
- Width = 86
- Height = 39
- Cursor = crHandPoint
- Hint = 'Turn on the electric signboard power.'
- Align = alLeft
- Caption = 'Board ON'
- Checked = True
- TabOrder = 1
- TabStop = True
- LookAndFeel.NativeStyle = True
- Transparent = True
- end
- object RdbOff: TcxRadioButton
- Left = 92
- Top = 1
- Width = 88
- Height = 39
- Cursor = crHandPoint
- Hint = 'Turn off the electric signboard power.'
- Align = alLeft
- Caption = 'Board OFF'
- TabOrder = 2
- LookAndFeel.NativeStyle = True
- Transparent = True
- end
- object RdbReset: TcxRadioButton
- Left = 180
- Top = 1
- Width = 92
- Height = 39
- Cursor = crHandPoint
- Hint = 'Reset the controller.'
- Align = alLeft
- Caption = 'Reset'
- TabOrder = 3
- LookAndFeel.NativeStyle = True
- Transparent = True
- end
- object Panel1: TPanel
- Left = 1
- Top = 1
- Width = 5
- Height = 39
- Align = alLeft
- BevelOuter = bvNone
- TabOrder = 4
- end
- end
- object cxStyleRepository1: TcxStyleRepository
- Left = 324
- Top = 24
- PixelsPerInch = 96
- object cxStyle1: TcxStyle
- AssignedValues = [svColor, svFont, svTextColor]
- Color = clOlive
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = [fsBold]
- TextColor = clRed
- end
- object cxStyle2: TcxStyle
- AssignedValues = [svColor]
- Color = clSkyBlue
- end
- end
- end
|