123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808 |
- object DSRM030M: TDSRM030M
- Left = 0
- Top = 0
- HorzScrollBar.Visible = False
- VertScrollBar.Visible = False
- Caption = 'DSRC-RSE '#49688#51665#44396#44036' '#44288#47532
- ClientHeight = 838
- ClientWidth = 1355
- Color = clBtnFace
- DoubleBuffered = True
- 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 = (
- 1355
- 838)
- PixelsPerInch = 96
- TextHeight = 17
- object ShpTitle: TShape
- Left = 4
- Top = 4
- Width = 1347
- 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
- end
- object ShpList: TShape
- Left = 4
- Top = 50
- Width = 1347
- Height = 782
- Anchors = [akLeft, akTop, akRight, akBottom]
- Pen.Color = 10849679
- Pen.Width = 2
- ExplicitWidth = 1436
- ExplicitHeight = 766
- end
- object BtnClose: TcxButton
- Left = 1266
- 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 = 25
- ImeName = 'Microsoft Office IME 2007'
- TabOrder = 1
- Text = 'EdFocus'
- end
- object PnlBack: TPanel
- Left = 12
- Top = 56
- Width = 1329
- Height = 769
- Anchors = [akLeft, akTop, akRight, akBottom]
- BevelOuter = bvNone
- ParentBackground = False
- ParentColor = True
- TabOrder = 2
- object PnlLeft: TPanel
- Left = 0
- Top = 0
- Width = 309
- Height = 769
- Align = alLeft
- BevelOuter = bvNone
- TabOrder = 0
- object cxGroupBox3: TcxGroupBox
- Left = 0
- Top = 0
- Align = alClient
- Caption = #9654' DSRC-RSE '#49688#51665#44396#44036' '#47785#47197
- ParentFont = False
- Style.BorderColor = clCaptionText
- Style.Font.Charset = DEFAULT_CHARSET
- Style.Font.Color = clWindowText
- Style.Font.Height = -13
- Style.Font.Name = #47569#51008' '#44256#46357
- Style.Font.Style = []
- Style.Shadow = False
- Style.TextColor = clWindowText
- Style.TextStyle = [fsBold]
- Style.IsFontAssigned = True
- TabOrder = 0
- Height = 496
- Width = 309
- inline FRAMEDsrcSectList1: TFRAMEDsrcSectList
- Left = 3
- Top = 19
- Width = 303
- Height = 467
- Align = alClient
- TabOrder = 0
- ExplicitLeft = 3
- ExplicitTop = 19
- ExplicitWidth = 303
- ExplicitHeight = 467
- inherited CxList: TcxGrid
- Width = 303
- Height = 405
- ExplicitWidth = 303
- ExplicitHeight = 405
- inherited TvList: TcxGridTableView
- OnCellDblClick = FRAMEDsrcSectList1TvListCellDblClick
- end
- end
- inherited PnlTop: TPanel
- Width = 303
- ExplicitWidth = 303
- end
- inherited PnlBottom: TPanel
- Top = 436
- Width = 303
- ExplicitTop = 436
- ExplicitWidth = 303
- inherited LblRecords: TLabel
- Left = 192
- Width = 25
- Height = 17
- ExplicitLeft = 234
- ExplicitWidth = 25
- ExplicitHeight = 17
- end
- inherited BtnExlSave: TcxButton
- Left = 223
- ExplicitLeft = 223
- end
- end
- end
- end
- object cxGroupBox5: TcxGroupBox
- Left = 0
- Top = 504
- Align = alBottom
- Caption = #9654' DSRC-RSE '#47785#47197
- Style.TextStyle = [fsBold]
- TabOrder = 1
- Height = 265
- Width = 309
- inline FRAMEDsrcList1: TFRAMEDsrcList
- Left = 3
- Top = 19
- Width = 303
- Height = 236
- Align = alClient
- TabOrder = 0
- ExplicitLeft = 3
- ExplicitTop = 19
- ExplicitWidth = 303
- ExplicitHeight = 236
- inherited CxList: TcxGrid
- Width = 303
- Height = 174
- ExplicitWidth = 303
- ExplicitHeight = 174
- inherited TvList: TcxGridTableView
- OnCellDblClick = FRAMEDsrcList1TvListCellDblClick
- end
- end
- inherited PnlTop: TPanel
- Width = 303
- ExplicitWidth = 303
- end
- inherited PnlBottom: TPanel
- Top = 205
- Width = 303
- ExplicitTop = 205
- ExplicitWidth = 303
- inherited LblRecords: TLabel
- Left = 192
- Width = 25
- Height = 17
- ExplicitLeft = 234
- ExplicitWidth = 25
- ExplicitHeight = 17
- end
- inherited BtnExlSave: TcxButton
- Left = 223
- ExplicitLeft = 223
- end
- end
- end
- end
- object cxSplitter2: TcxSplitter
- Left = 0
- Top = 496
- Width = 309
- Height = 8
- AlignSplitter = salBottom
- Control = cxGroupBox5
- end
- end
- object cxSplitter1: TcxSplitter
- Left = 309
- Top = 0
- Width = 6
- Height = 769
- Control = PnlLeft
- end
- object GrpMap: TcxGroupBox
- Left = 315
- Top = 0
- Align = alClient
- Caption = #9654' '#49688#51665#44396#44036' '#54200#51665
- ParentFont = False
- Style.BorderColor = clCaptionText
- Style.Font.Charset = DEFAULT_CHARSET
- Style.Font.Color = clWindowText
- Style.Font.Height = -13
- Style.Font.Name = #47569#51008' '#44256#46357
- Style.Font.Style = []
- Style.Shadow = False
- Style.TextColor = clBlack
- Style.TextStyle = [fsBold]
- Style.IsFontAssigned = True
- TabOrder = 2
- Height = 769
- Width = 1014
- object PnlMenu: TPanel
- Left = 3
- Top = 728
- Width = 1008
- Height = 31
- Align = alBottom
- BevelOuter = bvNone
- TabOrder = 0
- DesignSize = (
- 1008
- 31)
- object BtnEdit: TcxButton
- Tag = 2
- Left = 678
- Top = 3
- 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 = 759
- Top = 3
- 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 = 841
- Top = 3
- 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 = 922
- Top = 3
- 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
- object cxLabel11: TcxLabel
- Left = 22
- Top = 6
- 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 = 4
- Top = 5
- Anchors = [akLeft, akBottom]
- Caption = #9733
- Style.TextColor = clRed
- Transparent = True
- end
- end
- object cxGroupBox1: TcxGroupBox
- Left = 3
- Top = 19
- Align = alTop
- Caption = #44592#48376#51221#48372
- TabOrder = 1
- Height = 91
- Width = 1008
- object ImgDesc01: TImage
- Left = 9
- Top = 31
- Width = 9
- Height = 9
- Transparent = True
- end
- object ImgDesc02: TImage
- Left = 228
- Top = 31
- Width = 9
- Height = 9
- Transparent = True
- end
- object ImgDesc03: TImage
- Left = 721
- Top = 31
- Width = 9
- Height = 9
- Transparent = True
- end
- object ImgDesc04: TImage
- Left = 9
- Top = 62
- Width = 9
- Height = 9
- Transparent = True
- end
- object ImgDesc05: TImage
- Left = 520
- Top = 62
- Width = 9
- Height = 9
- Transparent = True
- end
- object EdRseSectId: TcxTextEdit
- Tag = 10002
- Left = 106
- Top = 22
- Properties.Alignment.Vert = taVCenter
- Properties.MaxLength = 13
- Properties.ReadOnly = True
- TabOrder = 0
- Width = 90
- end
- object EdStartSpotId: TcxTextEdit
- Tag = 10002
- Left = 106
- Top = 53
- Properties.Alignment.Vert = taVCenter
- Properties.MaxLength = 13
- Properties.ReadOnly = True
- TabOrder = 1
- Width = 90
- end
- object EdStartSpotNm: TcxTextEdit
- Tag = 10002
- Left = 199
- Top = 53
- Properties.Alignment.Vert = taVCenter
- Properties.MaxLength = 30
- Properties.ReadOnly = False
- TabOrder = 2
- Width = 175
- end
- object EdRseSectName: TcxTextEdit
- Tag = 10002
- Left = 319
- Top = 22
- Properties.MaxLength = 30
- TabOrder = 3
- Width = 342
- end
- object EdEndSpotId: TcxTextEdit
- Tag = 10002
- Left = 609
- Top = 53
- Properties.Alignment.Vert = taVCenter
- Properties.MaxLength = 13
- Properties.ReadOnly = True
- TabOrder = 4
- Width = 90
- end
- object EdEndSpotNm: TcxTextEdit
- Tag = 10002
- Left = 702
- Top = 53
- Properties.Alignment.Vert = taVCenter
- Properties.MaxLength = 30
- Properties.ReadOnly = False
- TabOrder = 5
- Width = 175
- end
- object EdRseSectLength: TcxTextEdit
- Tag = 10002
- Left = 773
- Top = 22
- Properties.Alignment.Horz = taCenter
- Properties.Alignment.Vert = taVCenter
- Properties.MaxLength = 30
- Properties.ReadOnly = True
- Style.BorderStyle = ebsUltraFlat
- Style.Shadow = False
- TabOrder = 6
- Width = 58
- end
- object cxLabel1: TcxLabel
- Left = 24
- Top = 24
- Caption = #49688#51665#44396#44036' ID'
- Properties.Alignment.Horz = taRightJustify
- Properties.Alignment.Vert = taVCenter
- Transparent = True
- AnchorX = 98
- AnchorY = 35
- end
- object cxLabel2: TcxLabel
- Left = 245
- Top = 24
- Caption = #49688#51665#44396#44036#47749
- Properties.Alignment.Horz = taRightJustify
- Properties.Alignment.Vert = taVCenter
- Transparent = True
- AnchorX = 314
- AnchorY = 35
- end
- object cxLabel3: TcxLabel
- Left = 737
- Top = 24
- Caption = #50672#51109
- Properties.Alignment.Horz = taRightJustify
- Properties.Alignment.Vert = taVCenter
- Transparent = True
- AnchorX = 767
- AnchorY = 35
- end
- object cxLabel4: TcxLabel
- Left = 23
- Top = 55
- Caption = #49884#51216' RSE ID'
- Properties.Alignment.Horz = taRightJustify
- Properties.Alignment.Vert = taVCenter
- Transparent = True
- AnchorX = 98
- AnchorY = 66
- end
- object cxLabel5: TcxLabel
- Left = 533
- Top = 55
- Caption = #51333#51216' RSE ID'
- Properties.Alignment.Horz = taRightJustify
- Properties.Alignment.Vert = taVCenter
- Transparent = True
- AnchorX = 608
- AnchorY = 66
- end
- object cxLabel8: TcxLabel
- Left = 659
- Top = 23
- Caption = #9733
- Style.TextColor = clRed
- Transparent = True
- end
- object cxCheckBox1: TcxCheckBox
- Left = 389
- Top = 55
- Cursor = crHandPoint
- Caption = #51648#46020#50640#49436' '#49440#53469
- TabOrder = 13
- Transparent = True
- OnClick = cxCheckBox1Click
- Width = 113
- end
- object cxCheckBox2: TcxCheckBox
- Left = 893
- Top = 55
- Cursor = crHandPoint
- Caption = #51648#46020#50640#49436' '#49440#53469
- TabOrder = 14
- Transparent = True
- OnClick = cxCheckBox2Click
- Width = 113
- end
- object cxLabel10: TcxLabel
- Left = 373
- Top = 54
- Caption = #9733
- Style.TextColor = clRed
- Transparent = True
- end
- object cxLabel13: TcxLabel
- Left = 876
- Top = 54
- Caption = #9733
- Style.TextColor = clRed
- Transparent = True
- end
- object cxLabel14: TcxLabel
- Left = 834
- Top = 24
- Caption = '(m)'
- Properties.Alignment.Horz = taRightJustify
- Properties.Alignment.Vert = taVCenter
- Transparent = True
- AnchorX = 857
- AnchorY = 35
- end
- end
- object cxGroupBox2: TcxGroupBox
- Left = 3
- Top = 110
- Align = alTop
- Caption = #49688#51665#44396#44036#48324' '#47553#53356' '#44396#49457#51221#48372
- TabOrder = 2
- Height = 146
- Width = 1008
- object CxLink: TcxGrid
- Left = 3
- Top = 19
- Width = 894
- Height = 117
- Align = alClient
- TabOrder = 0
- object TvLink: TcxGridTableView
- OnCellDblClick = TvLinkCellDblClick
- DataController.Summary.DefaultGroupSummaryItems = <>
- DataController.Summary.FooterSummaryItems = <>
- DataController.Summary.SummaryGroups = <>
- OptionsCustomize.ColumnFiltering = False
- OptionsCustomize.ColumnGrouping = False
- OptionsCustomize.ColumnMoving = False
- OptionsCustomize.ColumnSorting = False
- OptionsData.Deleting = False
- OptionsData.DeletingConfirmation = False
- OptionsData.Editing = False
- OptionsData.Inserting = False
- OptionsView.ColumnAutoWidth = True
- OptionsView.GroupByBox = False
- object ColLink1: TcxGridColumn
- Caption = #49692#49436
- PropertiesClassName = 'TcxLabelProperties'
- Properties.Alignment.Horz = taCenter
- Properties.Alignment.Vert = taVCenter
- Visible = False
- HeaderAlignmentHorz = taCenter
- HeaderAlignmentVert = vaCenter
- Width = 50
- end
- object ColLink2: TcxGridColumn
- Caption = #47553#53356' ID'
- PropertiesClassName = 'TcxLabelProperties'
- Properties.Alignment.Horz = taCenter
- Properties.Alignment.Vert = taVCenter
- HeaderAlignmentHorz = taCenter
- HeaderAlignmentVert = vaCenter
- Width = 105
- end
- object ColLink3: TcxGridColumn
- Caption = #49884#51089#51648#51216' ID'
- PropertiesClassName = 'TcxLabelProperties'
- Properties.Alignment.Horz = taCenter
- Properties.Alignment.Vert = taVCenter
- HeaderAlignmentHorz = taCenter
- HeaderAlignmentVert = vaCenter
- Width = 106
- end
- object ColLink4: TcxGridColumn
- Caption = #49884#51089#51648#51216#47749
- PropertiesClassName = 'TcxLabelProperties'
- Properties.Alignment.Horz = taLeftJustify
- Properties.Alignment.Vert = taVCenter
- HeaderAlignmentHorz = taCenter
- HeaderAlignmentVert = vaCenter
- Width = 219
- end
- object ColLink5: TcxGridColumn
- Caption = #51333#47308#51648#51216' ID'
- PropertiesClassName = 'TcxLabelProperties'
- Properties.Alignment.Horz = taCenter
- Properties.Alignment.Vert = taVCenter
- HeaderAlignmentHorz = taCenter
- HeaderAlignmentVert = vaCenter
- Width = 105
- end
- object ColLink6: TcxGridColumn
- Caption = #51333#47308#51648#51216#47749
- PropertiesClassName = 'TcxLabelProperties'
- Properties.Alignment.Horz = taLeftJustify
- Properties.Alignment.Vert = taVCenter
- HeaderAlignmentHorz = taCenter
- HeaderAlignmentVert = vaCenter
- Width = 213
- end
- object ColLink7: TcxGridColumn
- Caption = #50672#51109
- DataBinding.ValueType = 'Integer'
- PropertiesClassName = 'TcxCalcEditProperties'
- Properties.Alignment.Horz = taRightJustify
- Properties.Alignment.Vert = taVCenter
- HeaderAlignmentHorz = taCenter
- HeaderAlignmentVert = vaCenter
- Width = 63
- end
- end
- object GlLink: TcxGridLevel
- GridView = TvLink
- end
- end
- object PnlLinkEdit: TPanel
- Left = 897
- Top = 19
- Width = 108
- Height = 117
- Align = alRight
- BevelOuter = bvNone
- TabOrder = 1
- object ImgDesc06: TImage
- Left = 10
- Top = 12
- Width = 9
- Height = 9
- Transparent = True
- end
- object cxLabel6: TcxLabel
- Left = 21
- Top = 5
- Caption = #49688#51665#47553#53356' ID'
- Properties.Alignment.Horz = taRightJustify
- Properties.Alignment.Vert = taVCenter
- Transparent = True
- AnchorX = 95
- AnchorY = 16
- end
- object EdLinkId: TcxTextEdit
- Tag = 10002
- Left = 10
- Top = 32
- Properties.Alignment.Vert = taVCenter
- Properties.MaxLength = 13
- Properties.ReadOnly = True
- TabOrder = 1
- Width = 90
- end
- object BtnLinkAdd: TcxButton
- Left = 10
- Top = 65
- Width = 43
- Height = 22
- Hint = #49440#53469#54620' '#44396#44036#51012' '#52628#44032#54633#45768#45796'.'
- Caption = #52628#44032
- TabOrder = 2
- OnClick = BtnLinkAddClick
- end
- object BtnLinkDel: TcxButton
- Left = 57
- Top = 65
- Width = 43
- Height = 22
- Hint = #49440#53469#54620' '#44396#44036#51012' '#49325#51228#54633#45768#45796'.'
- Caption = #49325#51228
- TabOrder = 3
- OnClick = BtnLinkDelClick
- end
- end
- end
- object cxGroupBox4: TcxGroupBox
- Left = 3
- Top = 256
- Align = alClient
- Caption = #51648#46020' '#51221#48372'('#47553#53356' '#49440#53469')'
- TabOrder = 3
- DesignSize = (
- 1008
- 465)
- Height = 472
- Width = 1008
- inline FRAMEGisMap1: TFRAMEGisMap
- Left = 3
- Top = 19
- Width = 1002
- Height = 443
- Align = alClient
- TabOrder = 0
- ExplicitLeft = 3
- ExplicitTop = 19
- ExplicitWidth = 1002
- ExplicitHeight = 443
- inherited xclntMap: TXiClient
- Width = 1002
- Height = 402
- OnMouseDown = FRAMEGisMap1xclntMapMouseDown
- OnCCTVClick = FRAMEGisMap1xclntMapCCTVClick
- ExplicitWidth = 1002
- ExplicitHeight = 402
- end
- inherited GrpTool: TcxGroupBox
- ExplicitWidth = 1002
- Width = 1002
- inherited LbDef: TLabel
- Width = 247
- Height = 17
- ExplicitWidth = 247
- ExplicitHeight = 17
- end
- end
- end
- object ChkGisZoom: TcxCheckBox
- Left = 889
- Top = 30
- Cursor = crHandPoint
- Anchors = [akTop, akRight]
- Caption = #51648#46020#53356#44172#48372#44592
- TabOrder = 1
- Transparent = True
- OnClick = ChkGisZoomClick
- Width = 107
- end
- end
- end
- end
- object TmrShow: TTimer
- Enabled = False
- Interval = 300
- OnTimer = TmrShowTimer
- Left = 472
- Top = 12
- end
- end
|