123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068 |
- object VMSM100M: TVMSM100M
- Left = 0
- Top = 0
- HorzScrollBar.Visible = False
- VertScrollBar.Visible = False
- Caption = 'VMS '#44592#48376#51221#48372' '#44288#47532
- ClientHeight = 877
- ClientWidth = 1227
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = #47569#51008' '#44256#46357
- Font.Style = []
- KeyPreview = True
- OldCreateOrder = False
- Position = poOwnerFormCenter
- ShowHint = True
- OnClose = FormClose
- OnCloseQuery = FormCloseQuery
- OnShow = FormShow
- DesignSize = (
- 1227
- 877)
- PixelsPerInch = 96
- TextHeight = 17
- 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 = 1133
- Top = 11
- Width = 80
- 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 = 25
- 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 '#47785#47197
- Style.BorderColor = clCaptionText
- Style.Shadow = False
- Style.TextColor = clWindowText
- Style.TextStyle = [fsBold]
- TabOrder = 0
- Height = 256
- Width = 1201
- inline FRAMEVmsList1: TFRAMEVmsList
- Left = 3
- Top = 19
- Width = 1195
- Height = 227
- Align = alClient
- TabOrder = 0
- ExplicitLeft = 3
- ExplicitTop = 19
- ExplicitWidth = 1195
- ExplicitHeight = 227
- inherited CxList: TcxGrid
- Width = 1195
- Height = 165
- ExplicitWidth = 1195
- ExplicitHeight = 165
- 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 = 196
- Width = 1195
- ExplicitTop = 196
- ExplicitWidth = 1195
- inherited LblRecords: TLabel
- Left = 1084
- Width = 25
- Height = 17
- ExplicitLeft = 1084
- ExplicitWidth = 25
- ExplicitHeight = 17
- end
- inherited BtnExlSave: TcxButton
- Left = 1115
- ExplicitLeft = 1115
- end
- end
- inherited CbUsagType: TcxComboBox
- ExplicitHeight = 25
- end
- inherited CbType: TcxComboBox
- ExplicitHeight = 25
- end
- inherited lblTitle: TcxLabel
- ExplicitWidth = 57
- ExplicitHeight = 21
- 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 '#51221#48372
- 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 = 7
- Top = 14
- Width = 80
- 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 = 88
- Top = 14
- Width = 80
- 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 = 170
- Top = 14
- Width = 80
- 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 = 251
- Top = 14
- Width = 80
- 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 = 19
- Width = 335
- Height = 475
- 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 = 14
- 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 = 4
- 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 = 5
- Width = 120
- end
- object cxLabel1: TcxLabel
- Left = 56
- Top = 38
- Caption = 'VMS ID [*]'
- Properties.Alignment.Horz = taRightJustify
- Properties.Alignment.Vert = taVCenter
- Transparent = True
- AnchorX = 124
- AnchorY = 49
- end
- object cxLabel2: TcxLabel
- Left = 43
- Top = 70
- Caption = 'VMS '#47749#52845' [*]'
- Properties.Alignment.Horz = taRightJustify
- Properties.Alignment.Vert = taVCenter
- Transparent = True
- AnchorX = 124
- AnchorY = 81
- end
- object cxLabel3: TcxLabel
- Left = 46
- Top = 227
- Caption = #51228#50612#44592' IP [*]'
- Properties.Alignment.Horz = taRightJustify
- Properties.Alignment.Vert = taVCenter
- Transparent = True
- AnchorX = 124
- AnchorY = 238
- end
- object cxLabel6: TcxLabel
- Left = 43
- Top = 101
- Caption = 'VMS '#50976#54805' [*]'
- Properties.Alignment.Horz = taRightJustify
- Properties.Alignment.Vert = taVCenter
- Transparent = True
- AnchorX = 124
- AnchorY = 112
- end
- object cxLabel7: TcxLabel
- Left = 43
- Top = 133
- Caption = 'VMS '#53356#44592' [*]'
- Properties.Alignment.Horz = taRightJustify
- Properties.Alignment.Vert = taVCenter
- Transparent = True
- AnchorX = 124
- AnchorY = 144
- end
- object cxLabel18: TcxLabel
- Left = 43
- Top = 7
- Caption = 'VMS '#48264#54840' [*]'
- 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 = 21
- 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 = 6
- 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 = 2
- 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 = 3
- Width = 183
- end
- object cxLabel8: TcxLabel
- Left = 62
- Top = 164
- Caption = #50948#52824' X [*]'
- Properties.Alignment.Horz = taRightJustify
- Properties.Alignment.Vert = taVCenter
- Transparent = True
- AnchorX = 124
- AnchorY = 175
- end
- object cxLabel22: TcxLabel
- Left = 63
- Top = 196
- Caption = #50948#52824' Y [*]'
- Properties.Alignment.Horz = taRightJustify
- Properties.Alignment.Vert = taVCenter
- Transparent = True
- AnchorX = 124
- AnchorY = 207
- end
- object cxLabel5: TcxLabel
- Left = 23
- Top = 259
- Caption = #50937#52852#47700#46972' 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 = 8
- Width = 120
- end
- object EdWebCamPort: TcxTextEdit
- Left = 253
- Top = 257
- Properties.MaxLength = 5
- Properties.ReadOnly = False
- TabOrder = 9
- OnKeyPress = EdWebCamPortKeyPress
- Width = 64
- end
- object cxLabel15: TcxLabel
- Left = 19
- Top = 290
- Caption = #51217#49549' ID/'#54056#49828#50892#46300
- 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 = 10
- 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 = 11
- 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 = 12
- Width = 187
- end
- object cxLabel16: TcxLabel
- Left = 37
- Top = 322
- Caption = #49828#53944#47532#48141' '#51452#49548
- 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 = 7
- 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 = 13
- Value = 9
- Width = 60
- end
- object cxLabel9: TcxLabel
- Left = 29
- Top = 355
- Caption = #54364#52636#54268#52572#45824#44079#49688
- Properties.Alignment.Horz = taRightJustify
- Properties.Alignment.Vert = taVCenter
- Transparent = True
- AnchorX = 124
- AnchorY = 366
- end
- end
- object cxGroupBox1: TcxGroupBox
- Left = 12
- Top = 401
- Caption = #51228#50612#44592' '#49444#51221' '#51221#48372
- 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 = 10
- Top = 26
- Caption = #51204#44305#54032' On/Off '#49884#44033
- 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 = #51204#52404' VMS '#51201#50857
- 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' '#50948#52824#49444#51221
- Style.BorderColor = clCaptionText
- Style.Shadow = False
- Style.TextColor = clBlack
- Style.TextStyle = [fsBold]
- TabOrder = 2
- Height = 546
- Width = 854
- object ChkViewIcon: TcxCheckBox
- Left = 144
- Top = -5
- Cursor = crHandPoint
- Caption = 'Icon'
- State = cbsChecked
- TabOrder = 0
- Transparent = True
- Visible = False
- OnClick = ChkViewIconClick
- Width = 78
- end
- object ChkViewName: TcxCheckBox
- Left = 216
- Top = -5
- Cursor = crHandPoint
- Caption = 'Name'
- State = cbsChecked
- TabOrder = 1
- Transparent = True
- Visible = False
- OnClick = ChkViewIconClick
- Width = 121
- end
- inline FRAMEGoogleMap1: TFRAMEGoogleMap
- Left = 3
- Top = 19
- Width = 848
- Height = 517
- Align = alClient
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- ExplicitLeft = 3
- ExplicitTop = 19
- ExplicitWidth = 848
- ExplicitHeight = 517
- inherited PnlToolbar: TPanel
- Width = 848
- ExplicitWidth = 848
- inherited cxLabel26: TcxLabel
- AnchorX = 122
- AnchorY = 19
- end
- inherited cxLabel27: TcxLabel
- AnchorX = 292
- AnchorY = 19
- end
- inherited PnlGisTool: TPanel
- Width = 490
- ExplicitWidth = 465
- inherited ChkDrawTraffic: TcxCheckBox
- Style.IsFontAssigned = True
- end
- inherited ChkDrawRegion: TcxCheckBox
- Style.IsFontAssigned = True
- end
- inherited ChkDrawIncident: TcxCheckBox
- Style.IsFontAssigned = True
- end
- inherited cxLabel2: TcxLabel
- AnchorX = 288
- AnchorY = 14
- end
- inherited LblZoom: TcxLabel
- Left = 402
- ExplicitLeft = 377
- AnchorX = 490
- AnchorY = 14
- end
- end
- inherited cxLabel1: TcxLabel
- AnchorX = 353
- AnchorY = 19
- end
- end
- inherited WebBrowser1: TWebBrowser
- Width = 848
- Height = 479
- ExplicitWidth = 848
- ExplicitHeight = 479
- ControlData = {
- 4C000000A5570000823100000000000000000000000000000000000000000000
- 000000004C000000000000000000000001000000E0D057007335CF11AE690800
- 2B2E126208000000000000004C0000000114020000000000C000000000000046
- 8000000000000000000000000000000000000000000000000000000000000000
- 00000000000000000100000000000000000000000000000000000000}
- end
- inherited ilToolbarsSmall: TcxImageList
- FormatVersion = 1
- end
- end
- 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 lblText1: TcxLabel
- Left = 317
- Top = 149
- Caption = #49352#47196#50868' VMS '#51221#48372#47484' '#49373#49457#54616#51648' '#47803#54616#50688#49845#45768#45796'.'#13#10#54532#47196#44536#47016' '#51333#47308#54980#50640' '#45796#49884' '#49884#46020#54644' '#48372#49464#50836'.'
- Transparent = True
- Visible = False
- end
- object lblText2: TcxLabel
- Left = 605
- Top = 149
- Caption = #49325#51228#54624' VMS'#47484' '#47785#47197#50640#49436' '#49440#53469#54616#49464#50836'.'#13#10#47785#47197#50640#49436' '#45908#48660#53364#47533#54616#50668' '#49440#53469#54633#45768#45796'.'
- Transparent = True
- Visible = False
- end
- object lblText3: TcxLabel
- Left = 317
- Top = 193
- Caption = 'VMS'#48264#54840
- Transparent = True
- Visible = False
- end
- object lblText4: TcxLabel
- Left = 405
- Top = 193
- Caption = #49440#53469#54616#49888' VMS '#51221#48372#47484' '#49325#51228#54616#49884#44192#49845#45768#44620'?'
- Transparent = True
- Visible = False
- end
- object lblText5: TcxLabel
- Left = 307
- Top = 220
- Caption = 'VMS '#51221#48372#49325#51228#13#10'VMS '#51221#48372#47484' '#49325#51228' '#54616#50688#49845#45768#45796'.'
- Transparent = True
- Visible = False
- end
- object lblText6: TcxLabel
- Left = 297
- Top = 421
- Caption = #51228#50612#44592' IP'#44032' '#50976#54952#54616#51648' '#50506#49845#45768#45796'.'
- Transparent = True
- Visible = False
- end
- object lblText7: TcxLabel
- Left = 297
- Top = 450
- Caption = #50937#52852#47700#46972' IP'#44032' '#50976#54952#54616#51648' '#50506#49845#45768#45796'.'
- Transparent = True
- Visible = False
- end
- object lblText8: TcxLabel
- Left = 297
- Top = 477
- Caption = 'VMS ID'#44032' '#51060#48120' '#49324#50857' '#51473#51077#45768#45796'. VMS ID'#47484' '#54869#51064#54616#49464#50836'.'
- Transparent = True
- Visible = False
- end
- object lblText9: TcxLabel
- Left = 297
- Top = 504
- Caption = 'VMS '#51221#48372#51200#51109#13#10'VMS '#51221#48372#47484' '#51200#51109' '#54616#50688#49845#45768#45796'.'
- Transparent = True
- Visible = False
- end
- object lblText10: TcxLabel
- Left = 307
- Top = 548
- Caption = #51228#50612#44592' '#49444#51221' '#51221#48372#47484' '#51204#52404' VMS'#50640' '#46041#51068#54616#44172' '#51201#50857' '#54616#49884#44192#49845#45768#44620'?'
- Transparent = True
- Visible = False
- end
- object lblText11: TcxLabel
- Left = 297
- Top = 575
- Caption = 'VMS '#51228#50612#44592#49444#51221' '#51221#48372#51200#51109#13#10#51228#50612#44592' '#49444#51221' '#51221#48372#47484' '#51204#52404' '#51228#50612#44592#50640' '#51201#50857' '#54616#50688#49845#45768#45796'.'
- Transparent = True
- Visible = False
- end
- object TmrShow: TTimer
- Enabled = False
- Interval = 300
- OnTimer = TmrShowTimer
- Left = 876
- Top = 8
- end
- object GMMarker1: TGMMarker
- VisualObjects = <>
- OnClick = GMMarker1Click
- OnDragEnd = GMMarker1DragEnd
- Left = 64
- Top = 144
- end
- object GMMarkerNew: TGMMarker
- Map = FRAMEGoogleMap1.GMMap1
- VisualObjects = <
- item
- Draggable = True
- Title = 'New Object'
- Visible = False
- InfoWindow.HTMLContent = '<h2>New VMS Controller</h2>'
- end>
- OnDragEnd = GMMarkerNewDragEnd
- Left = 120
- Top = 148
- end
- end
|