123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871 |
- object VMSM100M: TVMSM100M
- Left = 0
- Top = 0
- HorzScrollBar.Visible = False
- VertScrollBar.Visible = False
- Caption = 'VMS Information Management'
- ClientHeight = 877
- ClientWidth = 1227
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Tahoma'
- Font.Style = []
- KeyPreview = True
- OldCreateOrder = False
- Position = poOwnerFormCenter
- ShowHint = True
- OnClose = FormClose
- OnCloseQuery = FormCloseQuery
- OnShow = FormShow
- DesignSize = (
- 1227
- 877)
- PixelsPerInch = 96
- TextHeight = 16
- object ShpTitle: TShape
- Left = 4
- Top = 4
- Width = 1219
- Height = 40
- Anchors = [akLeft, akTop, akRight]
- Brush.Color = 14671839
- Pen.Color = 10849679
- Pen.Width = 2
- ExplicitWidth = 1269
- end
- object LblCaption: TLabel
- Left = 16
- Top = 10
- Width = 267
- Height = 23
- Caption = #53440#51060#53952' '
- Font.Charset = DEFAULT_CHARSET
- Font.Color = 4740964
- Font.Height = -17
- Font.Name = #47569#51008' '#44256#46357
- Font.Style = [fsBold]
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- OnDblClick = LblCaptionDblClick
- end
- object ShpList: TShape
- Left = 4
- Top = 50
- Width = 1219
- Height = 821
- Anchors = [akLeft, akTop, akRight, akBottom]
- Pen.Color = 10849679
- Pen.Width = 2
- ExplicitWidth = 1436
- ExplicitHeight = 766
- end
- object BtnClose: TcxButton
- Left = 1138
- Top = 11
- Width = 75
- Height = 25
- Cursor = crHandPoint
- Hint = #45803#44592
- Anchors = [akTop, akRight]
- Caption = #45803#44592
- Colors.Default = 10737865
- TabOrder = 0
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = #47569#51008' '#44256#46357
- Font.Style = [fsBold]
- ParentFont = False
- OnClick = BtnCloseClick
- end
- object EdFocus: TEdit
- Left = -10
- Top = -10
- Width = 2
- Height = 24
- ImeName = 'Microsoft Office IME 2007'
- TabOrder = 1
- Text = 'EdFocus'
- end
- object PnlBack: TPanel
- Left = 12
- Top = 56
- Width = 1201
- Height = 808
- Anchors = [akLeft, akTop, akRight, akBottom]
- BevelOuter = bvNone
- ParentBackground = False
- ParentColor = True
- TabOrder = 2
- object PnlLeft: TPanel
- Left = 0
- Top = 0
- Width = 1201
- Height = 256
- Align = alClient
- BevelOuter = bvNone
- TabOrder = 0
- object cxGroupBox3: TcxGroupBox
- Left = 0
- Top = 0
- Align = alClient
- Caption = #9654' VMS List (Double-click the list to select VMS)'
- Style.BorderColor = clCaptionText
- Style.Shadow = False
- Style.TextColor = clWindowText
- Style.TextStyle = [fsBold]
- TabOrder = 0
- Height = 256
- Width = 1201
- inline FRAMEVmsList1: TFRAMEVmsList
- Left = 3
- Top = 18
- Width = 1195
- Height = 228
- Align = alClient
- TabOrder = 0
- ExplicitLeft = 3
- ExplicitTop = 18
- ExplicitWidth = 1195
- ExplicitHeight = 228
- inherited CxList: TcxGrid
- Width = 1195
- Height = 166
- ExplicitWidth = 1195
- ExplicitHeight = 166
- inherited TvList: TcxGridTableView
- OnCellDblClick = FRAMEVmsList1TvListCellDblClick
- inherited Column10: TcxGridColumn
- Caption = 'Web Cam IP'
- end
- end
- end
- inherited PnlTop: TPanel
- Width = 1195
- ExplicitWidth = 1195
- end
- inherited PnlBottom: TPanel
- Top = 197
- Width = 1195
- ExplicitTop = 197
- ExplicitWidth = 1195
- inherited LblRecords: TLabel
- Left = 1087
- Width = 22
- Height = 16
- ExplicitLeft = 1087
- ExplicitWidth = 22
- ExplicitHeight = 16
- end
- inherited BtnExlSave: TcxButton
- Left = 1115
- ExplicitLeft = 1115
- end
- end
- inherited CbUsagType: TcxComboBox
- ExplicitHeight = 24
- end
- inherited CbType: TcxComboBox
- ExplicitHeight = 24
- end
- end
- end
- end
- object cxSplitter1: TcxSplitter
- Left = 0
- Top = 256
- Width = 1201
- Height = 6
- AlignSplitter = salBottom
- Control = PnlBottom
- end
- object PnlBottom: TPanel
- Left = 0
- Top = 262
- Width = 1201
- Height = 546
- Align = alBottom
- BevelOuter = bvNone
- TabOrder = 2
- object GrpInfo: TcxGroupBox
- Left = 860
- Top = 0
- Align = alRight
- Caption = #9654' VMS Information'
- Style.BorderColor = clCaptionText
- Style.Shadow = False
- Style.TextColor = clBlack
- Style.TextStyle = [fsBold]
- TabOrder = 0
- DesignSize = (
- 341
- 539)
- Height = 546
- Width = 341
- object PnlMenu: TPanel
- Left = 3
- Top = 494
- Width = 335
- Height = 42
- Align = alBottom
- BevelOuter = bvNone
- TabOrder = 0
- DesignSize = (
- 335
- 42)
- object BtnEdit: TcxButton
- Tag = 2
- Left = 11
- Top = 14
- Width = 75
- Height = 25
- Cursor = crHandPoint
- Hint = #45936#51060#53552' '#54200#51665
- Anchors = [akRight, akBottom]
- Caption = #54200#51665
- Colors.Default = 10737865
- Enabled = 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 = BtnEditClick
- end
- object BtnInsert: TcxButton
- Tag = 2
- Left = 92
- Top = 14
- Width = 75
- Height = 25
- Cursor = crHandPoint
- Hint = #45936#51060#53552' '#52628#44032
- Anchors = [akRight, akBottom]
- Caption = #52628#44032
- Colors.Default = 10737865
- TabOrder = 1
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = #47569#51008' '#44256#46357
- Font.Style = [fsBold]
- ParentFont = False
- OnClick = BtnInsertClick
- end
- object BtnDelete: TcxButton
- Tag = 4
- Left = 174
- Top = 14
- Width = 75
- Height = 25
- Cursor = crHandPoint
- Hint = #45936#51060#53552' '#49325#51228
- Anchors = [akRight, akBottom]
- Caption = #49325#51228
- Colors.Default = 10737865
- Enabled = False
- TabOrder = 2
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = #47569#51008' '#44256#46357
- Font.Style = [fsBold]
- ParentFont = False
- OnClick = BtnDeleteClick
- end
- object BtnSave: TcxButton
- Tag = 5
- Left = 255
- Top = 14
- Width = 75
- Height = 25
- Cursor = crHandPoint
- Hint = #54200#51665#51089#50629' '#51200#51109
- Anchors = [akRight, akBottom]
- Caption = #51200#51109
- Colors.Default = 10737865
- Enabled = False
- TabOrder = 3
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = #47569#51008' '#44256#46357
- Font.Style = [fsBold]
- ParentFont = False
- OnClick = BtnSaveClick
- end
- end
- object cxLabel11: TcxLabel
- Left = 14
- Top = 688
- Anchors = [akLeft, akBottom]
- Caption = '[*] '#54364#49884#54637#47785#51008' '#54596#49688' '#51077#47141' '#54637#47785#51077#45768#45796'.'
- StyleDisabled.BorderColor = cl3DLight
- Transparent = True
- end
- object cxLabel12: TcxLabel
- Left = 259
- Top = 688
- Anchors = [akLeft, akBottom]
- Caption = #9733
- Style.TextColor = clRed
- Transparent = True
- Visible = False
- end
- object PnlEdit: TPanel
- Left = 3
- Top = 18
- Width = 335
- Height = 476
- Align = alClient
- BevelOuter = bvNone
- TabOrder = 3
- object ImgDesc01: TImage
- Left = 9
- Top = 44
- Width = 9
- Height = 9
- Transparent = True
- end
- object ImgDesc02: TImage
- Left = 9
- Top = 76
- Width = 9
- Height = 9
- Transparent = True
- end
- object ImgDesc03: TImage
- Left = 9
- Top = 107
- Width = 9
- Height = 9
- Transparent = True
- end
- object ImgDesc04: TImage
- Left = 9
- Top = 139
- Width = 9
- Height = 9
- Transparent = True
- end
- object ImgDesc05: TImage
- Left = 9
- Top = 170
- Width = 9
- Height = 9
- Transparent = True
- end
- object ImgDesc06: TImage
- Left = 9
- Top = 202
- Width = 9
- Height = 9
- Transparent = True
- end
- object ImgDesc07: TImage
- Left = 9
- Top = 234
- Width = 9
- Height = 9
- Transparent = True
- end
- object ImgDesc11: TImage
- Left = 9
- Top = 13
- Width = 9
- Height = 9
- Transparent = True
- end
- object ImgDesc08: TImage
- Left = 9
- Top = 265
- Width = 9
- Height = 9
- Transparent = True
- end
- object ImgDesc14: TImage
- Left = 9
- Top = 362
- Width = 9
- Height = 9
- Transparent = True
- end
- object EdVmsId: TcxTextEdit
- Left = 130
- Top = 36
- Properties.MaxLength = 30
- TabOrder = 0
- Width = 121
- end
- object EdVmsNm: TcxTextEdit
- Left = 130
- Top = 68
- Properties.MaxLength = 40
- Properties.ReadOnly = False
- TabOrder = 1
- Width = 183
- end
- object EdNmbr: TcxTextEdit
- Left = 130
- Top = 5
- Properties.ReadOnly = True
- TabOrder = 2
- Width = 121
- end
- object SePosX: TcxSpinEdit
- Left = 130
- Top = 163
- Properties.Alignment.Horz = taRightJustify
- Properties.Alignment.Vert = taVCenter
- Properties.DisplayFormat = '##0.######0'
- Properties.EditFormat = '##0.######0'
- Properties.MaxValue = 9999999999.000000000000000000
- Properties.ReadOnly = False
- Properties.SpinButtons.Visible = False
- Properties.ValueType = vtFloat
- Style.LookAndFeel.Kind = lfUltraFlat
- Style.LookAndFeel.NativeStyle = False
- Style.TextStyle = []
- Style.ButtonStyle = btsUltraFlat
- StyleDisabled.LookAndFeel.Kind = lfUltraFlat
- StyleDisabled.LookAndFeel.NativeStyle = False
- StyleFocused.LookAndFeel.Kind = lfUltraFlat
- StyleFocused.LookAndFeel.NativeStyle = False
- StyleFocused.TextStyle = [fsBold]
- StyleHot.LookAndFeel.Kind = lfUltraFlat
- StyleHot.LookAndFeel.NativeStyle = False
- TabOrder = 3
- Width = 120
- end
- object SePosY: TcxSpinEdit
- Left = 130
- Top = 194
- Properties.Alignment.Horz = taRightJustify
- Properties.Alignment.Vert = taVCenter
- Properties.DisplayFormat = '##0.######0'
- Properties.EditFormat = '##0.######0'
- Properties.MaxValue = 9999999999.000000000000000000
- Properties.ReadOnly = False
- Properties.SpinButtons.Visible = False
- Properties.ValueType = vtFloat
- Style.LookAndFeel.Kind = lfUltraFlat
- Style.LookAndFeel.NativeStyle = False
- Style.TextStyle = []
- Style.ButtonStyle = btsUltraFlat
- StyleDisabled.LookAndFeel.Kind = lfUltraFlat
- StyleDisabled.LookAndFeel.NativeStyle = False
- StyleFocused.LookAndFeel.Kind = lfUltraFlat
- StyleFocused.LookAndFeel.NativeStyle = False
- StyleFocused.TextStyle = [fsBold]
- StyleHot.LookAndFeel.Kind = lfUltraFlat
- StyleHot.LookAndFeel.NativeStyle = False
- TabOrder = 4
- Width = 120
- end
- object cxLabel1: TcxLabel
- Left = 56
- Top = 39
- Caption = 'VMS ID [*]'
- Properties.Alignment.Horz = taRightJustify
- Properties.Alignment.Vert = taVCenter
- Transparent = True
- AnchorX = 124
- AnchorY = 49
- end
- object cxLabel2: TcxLabel
- Left = 35
- Top = 71
- Caption = 'VMS Name [*]'
- Properties.Alignment.Horz = taRightJustify
- Properties.Alignment.Vert = taVCenter
- Transparent = True
- AnchorX = 124
- AnchorY = 81
- end
- object cxLabel3: TcxLabel
- Left = 27
- Top = 228
- Caption = 'Controller IP [*]'
- Properties.Alignment.Horz = taRightJustify
- Properties.Alignment.Vert = taVCenter
- Transparent = True
- AnchorX = 124
- AnchorY = 238
- end
- object cxLabel6: TcxLabel
- Left = 40
- Top = 102
- Caption = 'VMS Type [*]'
- Properties.Alignment.Horz = taRightJustify
- Properties.Alignment.Vert = taVCenter
- Transparent = True
- AnchorX = 124
- AnchorY = 112
- end
- object cxLabel7: TcxLabel
- Left = 44
- Top = 134
- Caption = 'VMS Size [*]'
- Properties.Alignment.Horz = taRightJustify
- Properties.Alignment.Vert = taVCenter
- Transparent = True
- AnchorX = 124
- AnchorY = 144
- end
- object cxLabel18: TcxLabel
- Left = 53
- Top = 8
- Caption = 'VMS No [*]'
- Properties.Alignment.Horz = taRightJustify
- Properties.Alignment.Vert = taVCenter
- Transparent = True
- AnchorX = 124
- AnchorY = 18
- end
- object EdId: TcxTextEdit
- Left = 262
- Top = 5
- Properties.ReadOnly = True
- TabOrder = 11
- Visible = False
- Width = 51
- end
- object EdCtlrIp: TcxMaskEdit
- Left = 130
- Top = 226
- Properties.MaskKind = emkRegExprEx
- Properties.EditMask =
- '(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01' +
- ']?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]' +
- '|2[0-4][0-9]|[01]?[0-9][0-9]?)'
- Properties.MaxLength = 0
- TabOrder = 12
- Width = 120
- end
- object CbUsagType: TcxComboBox
- Left = 130
- Top = 99
- Cursor = crHandPoint
- Properties.Alignment.Vert = taVCenter
- Properties.DropDownListStyle = lsFixedList
- Properties.DropDownSizeable = True
- Properties.ReadOnly = False
- TabOrder = 13
- Width = 183
- end
- object CbType: TcxComboBox
- Left = 130
- Top = 131
- Cursor = crHandPoint
- Properties.Alignment.Vert = taVCenter
- Properties.DropDownListStyle = lsFixedList
- Properties.DropDownSizeable = True
- Properties.ReadOnly = False
- TabOrder = 14
- Width = 183
- end
- object cxLabel8: TcxLabel
- Left = 39
- Top = 165
- Caption = 'Location X [*]'
- Properties.Alignment.Horz = taRightJustify
- Properties.Alignment.Vert = taVCenter
- Transparent = True
- AnchorX = 124
- AnchorY = 175
- end
- object cxLabel22: TcxLabel
- Left = 40
- Top = 197
- Caption = 'Location Y [*]'
- Properties.Alignment.Horz = taRightJustify
- Properties.Alignment.Vert = taVCenter
- Transparent = True
- AnchorX = 124
- AnchorY = 207
- end
- object cxLabel5: TcxLabel
- Left = 21
- Top = 260
- Caption = 'Web Cam IP/Port'
- Properties.Alignment.Horz = taRightJustify
- Properties.Alignment.Vert = taVCenter
- Transparent = True
- AnchorX = 124
- AnchorY = 270
- end
- object EdWebCamIp: TcxMaskEdit
- Left = 130
- Top = 257
- Properties.MaskKind = emkRegExprEx
- Properties.EditMask =
- '(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01' +
- ']?[0-9][0-9]?)\.(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.(25[0-5]' +
- '|2[0-4][0-9]|[01]?[0-9][0-9]?)'
- Properties.MaxLength = 0
- TabOrder = 18
- Width = 120
- end
- object EdWebCamPort: TcxTextEdit
- Left = 253
- Top = 257
- Properties.MaxLength = 5
- Properties.ReadOnly = False
- TabOrder = 19
- OnKeyPress = EdWebCamPortKeyPress
- Width = 64
- end
- object cxLabel15: TcxLabel
- Left = 56
- Top = 291
- Caption = ' ID/Passwd'
- Properties.Alignment.Horz = taRightJustify
- Properties.Alignment.Vert = taVCenter
- Transparent = True
- AnchorX = 124
- AnchorY = 301
- end
- object EdWebCamId: TcxTextEdit
- Left = 130
- Top = 289
- Properties.Alignment.Horz = taLeftJustify
- Properties.Alignment.Vert = taVCenter
- Properties.MaxLength = 0
- Properties.ReadOnly = False
- Style.LookAndFeel.Kind = lfUltraFlat
- Style.LookAndFeel.NativeStyle = False
- Style.Shadow = False
- StyleDisabled.LookAndFeel.Kind = lfUltraFlat
- StyleDisabled.LookAndFeel.NativeStyle = False
- StyleFocused.LookAndFeel.Kind = lfUltraFlat
- StyleFocused.LookAndFeel.NativeStyle = False
- StyleHot.LookAndFeel.Kind = lfUltraFlat
- StyleHot.LookAndFeel.NativeStyle = False
- TabOrder = 21
- Width = 90
- end
- object EdWebCamPswd: TcxTextEdit
- Left = 227
- Top = 289
- Properties.Alignment.Horz = taLeftJustify
- Properties.Alignment.Vert = taVCenter
- Properties.MaxLength = 0
- Properties.ReadOnly = False
- Style.LookAndFeel.Kind = lfUltraFlat
- Style.LookAndFeel.NativeStyle = False
- Style.Shadow = False
- StyleDisabled.LookAndFeel.Kind = lfUltraFlat
- StyleDisabled.LookAndFeel.NativeStyle = False
- StyleFocused.LookAndFeel.Kind = lfUltraFlat
- StyleFocused.LookAndFeel.NativeStyle = False
- StyleHot.LookAndFeel.Kind = lfUltraFlat
- StyleHot.LookAndFeel.NativeStyle = False
- TabOrder = 22
- Width = 90
- end
- object EdWebCamStrm: TcxTextEdit
- Left = 130
- Top = 321
- Properties.Alignment.Horz = taLeftJustify
- Properties.Alignment.Vert = taVCenter
- Properties.MaxLength = 0
- Properties.ReadOnly = False
- Style.LookAndFeel.Kind = lfUltraFlat
- Style.LookAndFeel.NativeStyle = False
- Style.Shadow = False
- StyleDisabled.LookAndFeel.Kind = lfUltraFlat
- StyleDisabled.LookAndFeel.NativeStyle = False
- StyleFocused.LookAndFeel.Kind = lfUltraFlat
- StyleFocused.LookAndFeel.NativeStyle = False
- StyleHot.LookAndFeel.Kind = lfUltraFlat
- StyleHot.LookAndFeel.NativeStyle = False
- TabOrder = 23
- Width = 187
- end
- object cxLabel16: TcxLabel
- Left = 15
- Top = 323
- Caption = 'Streamming Addr.'
- Properties.Alignment.Horz = taRightJustify
- Properties.Alignment.Vert = taVCenter
- Transparent = True
- AnchorX = 124
- AnchorY = 333
- end
- object EdCmncPort: TcxTextEdit
- Left = 253
- Top = 226
- Properties.MaxLength = 5
- Properties.ReadOnly = False
- TabOrder = 25
- OnKeyPress = EdWebCamPortKeyPress
- Width = 64
- end
- object SeMaxPhase: TcxSpinEdit
- Left = 130
- Top = 352
- Properties.Alignment.Horz = taRightJustify
- Properties.Alignment.Vert = taVCenter
- Properties.MaxValue = 9.000000000000000000
- Properties.MinValue = 1.000000000000000000
- Properties.ReadOnly = False
- Properties.OnChange = SeMaxPhasePropertiesChange
- Style.LookAndFeel.Kind = lfUltraFlat
- Style.LookAndFeel.NativeStyle = False
- Style.ButtonStyle = btsUltraFlat
- StyleDisabled.LookAndFeel.Kind = lfUltraFlat
- StyleDisabled.LookAndFeel.NativeStyle = False
- StyleFocused.LookAndFeel.Kind = lfUltraFlat
- StyleFocused.LookAndFeel.NativeStyle = False
- StyleFocused.TextStyle = [fsBold]
- StyleHot.LookAndFeel.Kind = lfUltraFlat
- StyleHot.LookAndFeel.NativeStyle = False
- TabOrder = 26
- Value = 9
- Width = 60
- end
- object cxLabel9: TcxLabel
- Left = 26
- Top = 356
- Caption = 'Max Form Count'
- Properties.Alignment.Horz = taRightJustify
- Properties.Alignment.Vert = taVCenter
- Transparent = True
- AnchorX = 124
- AnchorY = 366
- end
- end
- object cxGroupBox1: TcxGroupBox
- Left = 12
- Top = 401
- Caption = 'Controller Setting'
- TabOrder = 4
- Visible = False
- Height = 98
- Width = 308
- object cxTimeOn: TcxTimeEdit
- Left = 132
- Top = 24
- EditValue = 0d
- Properties.Alignment.Horz = taCenter
- Properties.Alignment.Vert = taVCenter
- Properties.TimeFormat = tfHourMin
- Style.LookAndFeel.Kind = lfUltraFlat
- Style.LookAndFeel.NativeStyle = False
- StyleDisabled.LookAndFeel.Kind = lfUltraFlat
- StyleDisabled.LookAndFeel.NativeStyle = False
- StyleFocused.LookAndFeel.Kind = lfUltraFlat
- StyleFocused.LookAndFeel.NativeStyle = False
- StyleFocused.TextStyle = [fsBold]
- StyleHot.LookAndFeel.Kind = lfUltraFlat
- StyleHot.LookAndFeel.NativeStyle = False
- TabOrder = 0
- Width = 63
- end
- object cxTimeOff: TcxTimeEdit
- Left = 200
- Top = 24
- EditValue = 0d
- Properties.Alignment.Horz = taCenter
- Properties.Alignment.Vert = taVCenter
- Properties.TimeFormat = tfHourMin
- Style.LookAndFeel.Kind = lfUltraFlat
- Style.LookAndFeel.NativeStyle = False
- StyleDisabled.LookAndFeel.Kind = lfUltraFlat
- StyleDisabled.LookAndFeel.NativeStyle = False
- StyleFocused.LookAndFeel.Kind = lfUltraFlat
- StyleFocused.LookAndFeel.NativeStyle = False
- StyleFocused.TextStyle = [fsBold]
- StyleHot.LookAndFeel.Kind = lfUltraFlat
- StyleHot.LookAndFeel.NativeStyle = False
- TabOrder = 1
- Width = 63
- end
- object cxLabel4: TcxLabel
- Left = 18
- Top = 27
- Caption = 'Board On/Off Time'
- Properties.Alignment.Horz = taRightJustify
- Properties.Alignment.Vert = taVCenter
- Transparent = True
- AnchorX = 130
- AnchorY = 37
- end
- object BtnSaveAll: TcxButton
- Tag = 5
- Left = 159
- Top = 57
- Width = 140
- Height = 25
- Cursor = crHandPoint
- Hint = 'Apply the same value to the entire VMS.'
- Caption = 'Apply All VMS'
- Colors.Default = 10737865
- TabOrder = 3
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = #47569#51008' '#44256#46357
- Font.Style = [fsBold]
- ParentFont = False
- OnClick = BtnSaveAllClick
- end
- end
- end
- object cxSplitter2: TcxSplitter
- Left = 854
- Top = 0
- Width = 6
- Height = 546
- AlignSplitter = salRight
- Control = GrpInfo
- end
- object GrpMap: TcxGroupBox
- Left = 0
- Top = 0
- Align = alClient
- Caption = #9654' VMS Location'
- Style.BorderColor = clCaptionText
- Style.Shadow = False
- Style.TextColor = clBlack
- Style.TextStyle = [fsBold]
- TabOrder = 2
- Height = 546
- Width = 854
- end
- end
- end
- object cxButton1: TcxButton
- Tag = 2
- Left = 952
- Top = 11
- Width = 171
- Height = 25
- Cursor = crHandPoint
- Hint = #50937#52852#47700#46972#48624#50612' '#54028#51068' '#49373#49457
- Anchors = [akTop, akRight]
- Caption = #50937#52852#47700#46972#48624#50612' '#54028#51068' '#49373#49457
- Colors.Default = 10737865
- TabOrder = 3
- Visible = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = #47569#51008' '#44256#46357
- Font.Style = [fsBold]
- ParentFont = False
- OnClick = cxButton1Click
- end
- object TmrShow: TTimer
- Enabled = False
- Interval = 300
- OnTimer = TmrShowTimer
- Left = 876
- Top = 8
- end
- end
|