ITSSELAMF.dfm 20 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701
  1. object ITSSELAM: TITSSELAM
  2. Left = 0
  3. Top = 0
  4. HorzScrollBar.Visible = False
  5. VertScrollBar.Visible = False
  6. Caption = #44396#44036' '#49440#53469
  7. ClientHeight = 891
  8. ClientWidth = 1436
  9. Color = clBtnFace
  10. Font.Charset = DEFAULT_CHARSET
  11. Font.Color = clWindowText
  12. Font.Height = -13
  13. Font.Name = #47569#51008' '#44256#46357
  14. Font.Style = []
  15. KeyPreview = True
  16. OldCreateOrder = False
  17. Position = poOwnerFormCenter
  18. ShowHint = True
  19. OnClose = FormClose
  20. OnShow = FormShow
  21. DesignSize = (
  22. 1436
  23. 891)
  24. PixelsPerInch = 96
  25. TextHeight = 17
  26. object LblCaption: TLabel
  27. Left = 16
  28. Top = 10
  29. Width = 267
  30. Height = 23
  31. Caption = #53440#51060#53952' '
  32. Font.Charset = DEFAULT_CHARSET
  33. Font.Color = 4740964
  34. Font.Height = -17
  35. Font.Name = #47569#51008' '#44256#46357
  36. Font.Style = [fsBold]
  37. ParentFont = False
  38. ParentShowHint = False
  39. ShowHint = True
  40. end
  41. object ShpList: TShape
  42. Left = 3
  43. Top = 4
  44. Width = 1429
  45. Height = 885
  46. Anchors = [akLeft, akTop, akRight, akBottom]
  47. Pen.Color = 10849679
  48. Pen.Width = 2
  49. Visible = False
  50. ExplicitWidth = 1118
  51. ExplicitHeight = 563
  52. end
  53. object EdFocus: TEdit
  54. Left = -10
  55. Top = -10
  56. Width = 2
  57. Height = 25
  58. ImeName = 'Microsoft Office IME 2007'
  59. TabOrder = 2
  60. Text = 'EdFocus'
  61. end
  62. object PnlBack: TPanel
  63. Left = 4
  64. Top = 4
  65. Width = 1429
  66. Height = 885
  67. Anchors = [akLeft, akTop, akRight, akBottom]
  68. BevelOuter = bvNone
  69. DoubleBuffered = False
  70. ParentDoubleBuffered = False
  71. TabOrder = 3
  72. object cxGroupBox1: TcxGroupBox
  73. Left = 0
  74. Top = 0
  75. Align = alClient
  76. Caption = #9654' '#51648#46020
  77. Style.TextStyle = [fsBold]
  78. TabOrder = 0
  79. Height = 885
  80. Width = 1105
  81. object StatusBar: TStatusBar
  82. Left = 3
  83. Top = 856
  84. Width = 1099
  85. Height = 19
  86. Panels = <
  87. item
  88. Alignment = taCenter
  89. Bevel = pbRaised
  90. Width = 100
  91. end
  92. item
  93. Width = 50
  94. end>
  95. end
  96. object Panel1: TPanel
  97. Left = 623
  98. Top = 200
  99. Width = 425
  100. Height = 245
  101. DoubleBuffered = False
  102. ParentDoubleBuffered = False
  103. TabOrder = 1
  104. Visible = False
  105. object ImgDesc04: TImage
  106. Left = 6
  107. Top = 31
  108. Width = 9
  109. Height = 9
  110. Transparent = True
  111. end
  112. object ImgDesc01: TImage
  113. Left = 6
  114. Top = 59
  115. Width = 9
  116. Height = 9
  117. Transparent = True
  118. end
  119. object cxLabel4: TcxLabel
  120. Left = 27
  121. Top = 22
  122. Caption = #49440#53469#51340#54364
  123. Properties.Alignment.Horz = taRightJustify
  124. Properties.Alignment.Vert = taVCenter
  125. Transparent = True
  126. AnchorX = 83
  127. AnchorY = 33
  128. end
  129. object cxLabel1: TcxLabel
  130. Left = 27
  131. Top = 50
  132. Caption = #49440#53469#44396#44036
  133. Properties.Alignment.Horz = taRightJustify
  134. Properties.Alignment.Vert = taVCenter
  135. Transparent = True
  136. AnchorX = 83
  137. AnchorY = 61
  138. end
  139. object EdPos: TcxTextEdit
  140. Left = 89
  141. Top = 21
  142. Properties.Alignment.Vert = taVCenter
  143. Properties.ReadOnly = True
  144. TabOrder = 2
  145. Width = 220
  146. end
  147. object EdLinkId: TcxTextEdit
  148. Left = 89
  149. Top = 49
  150. Properties.Alignment.Vert = taVCenter
  151. Properties.ReadOnly = True
  152. TabOrder = 3
  153. Width = 220
  154. end
  155. end
  156. inline FRAMEGoogleMap1: TFRAMEGoogleMap
  157. Left = 3
  158. Top = 19
  159. Width = 1099
  160. Height = 837
  161. Align = alClient
  162. TabOrder = 2
  163. ExplicitLeft = 3
  164. ExplicitTop = 19
  165. ExplicitWidth = 1099
  166. ExplicitHeight = 837
  167. inherited PnlToolbar: TPanel
  168. Width = 1099
  169. ExplicitWidth = 1099
  170. inherited lblGap1: TcxLabel
  171. AnchorX = 122
  172. AnchorY = 19
  173. end
  174. inherited lblGap2: TcxLabel
  175. AnchorX = 292
  176. AnchorY = 19
  177. end
  178. inherited PnlGisTool: TPanel
  179. Width = 663
  180. ExplicitWidth = 663
  181. inherited ChkDrawCenter: TcxCheckBox
  182. ExplicitHeight = 28
  183. end
  184. inherited ChkDrawVms: TcxCheckBox
  185. ExplicitHeight = 28
  186. end
  187. inherited ChkDrawIncident: TcxCheckBox
  188. ExplicitHeight = 28
  189. end
  190. inherited ChkDrawVds: TcxCheckBox
  191. ExplicitHeight = 28
  192. end
  193. inherited ChkTrafficLayer: TcxCheckBox
  194. ExplicitHeight = 28
  195. end
  196. end
  197. inherited lblGap3: TcxLabel
  198. AnchorX = 337
  199. AnchorY = 19
  200. end
  201. inherited PnlZoom: TPanel
  202. Left = 1016
  203. ExplicitLeft = 1016
  204. end
  205. end
  206. inherited WebBrowser1: TWebBrowser
  207. Width = 1099
  208. Height = 799
  209. ExplicitWidth = 1099
  210. ExplicitHeight = 799
  211. ControlData = {
  212. 4C00000096710000945200000000000000000000000000000000000000000000
  213. 000000004C000000000000000000000001000000E0D057007335CF11AE690800
  214. 2B2E126208000000000000004C0000000114020000000000C000000000000046
  215. 8000000000000000000000000000000000000000000000000000000000000000
  216. 00000000000000000100000000000000000000000000000000000000}
  217. end
  218. inherited GMMarker1: TGMMarker
  219. VisualObjects = <
  220. item
  221. Title = 'MarkerPos'
  222. ShowInfoWinMouseOver = True
  223. end>
  224. end
  225. inherited GMMap1: TGMMap
  226. OnClick = FRAMEGoogleMap1GMMap1Click
  227. end
  228. end
  229. end
  230. object cxSplitter1: TcxSplitter
  231. Left = 1105
  232. Top = 0
  233. Width = 6
  234. Height = 885
  235. AlignSplitter = salRight
  236. Control = PnlRight
  237. end
  238. object PnlRight: TPanel
  239. Left = 1111
  240. Top = 0
  241. Width = 318
  242. Height = 885
  243. Align = alRight
  244. BevelOuter = bvNone
  245. TabOrder = 2
  246. object cxGroupBox2: TcxGroupBox
  247. Left = 0
  248. Top = 0
  249. Align = alTop
  250. Caption = #9654' '#49440#53469' '#44396#44036' '#47785#47197
  251. Style.TextStyle = [fsBold]
  252. TabOrder = 0
  253. DesignSize = (
  254. 318
  255. 186)
  256. Height = 193
  257. Width = 318
  258. object BtnSelect: TcxButton
  259. Tag = 4
  260. Left = 132
  261. Top = 120
  262. Width = 120
  263. Height = 25
  264. Cursor = crHandPoint
  265. Hint = #44396#44036#51012' '#49440#53469#54633#45768#45796'.'
  266. Anchors = [akLeft, akBottom]
  267. Caption = #44396#44036#49440#53469
  268. Colors.Default = 10737865
  269. TabOrder = 0
  270. Font.Charset = DEFAULT_CHARSET
  271. Font.Color = clBlack
  272. Font.Height = -13
  273. Font.Name = #47569#51008' '#44256#46357
  274. Font.Style = [fsBold]
  275. ParentFont = False
  276. OnClick = BtnSelectClick
  277. ExplicitTop = 134
  278. end
  279. object CxList: TcxGrid
  280. Left = 3
  281. Top = 19
  282. Width = 312
  283. Height = 95
  284. Align = alTop
  285. Anchors = [akLeft, akTop, akRight, akBottom]
  286. TabOrder = 1
  287. ExplicitHeight = 109
  288. object TvList: TcxGridTableView
  289. Navigator.Buttons.Append.Visible = True
  290. Navigator.Buttons.SaveBookmark.Visible = False
  291. Navigator.InfoPanel.Visible = True
  292. OnCellDblClick = TvListCellDblClick
  293. DataController.Summary.DefaultGroupSummaryItems = <>
  294. DataController.Summary.FooterSummaryItems = <>
  295. DataController.Summary.SummaryGroups = <>
  296. FilterRow.InfoText = #44160#49353#50612#47484' '#51077#47141#54616#49464#50836'.'
  297. OptionsBehavior.CellHints = True
  298. OptionsBehavior.ShowLockedStateImageOptions.BestFit = lsimImmediate
  299. OptionsBehavior.ShowLockedStateImageOptions.Filtering = lsimImmediate
  300. OptionsBehavior.ShowLockedStateImageOptions.Grouping = lsimImmediate
  301. OptionsBehavior.ShowLockedStateImageOptions.Sorting = lsimImmediate
  302. OptionsCustomize.ColumnFiltering = False
  303. OptionsCustomize.ColumnGrouping = False
  304. OptionsCustomize.ColumnMoving = False
  305. OptionsCustomize.ColumnSorting = False
  306. OptionsData.Deleting = False
  307. OptionsData.DeletingConfirmation = False
  308. OptionsData.Inserting = False
  309. OptionsSelection.CellSelect = False
  310. OptionsView.NoDataToDisplayInfoText = '<'#49440#53469#44396#44036#51221#48372'>'
  311. OptionsView.ColumnAutoWidth = True
  312. OptionsView.GroupByBox = False
  313. OptionsView.Indicator = True
  314. object Column01: TcxGridColumn
  315. Caption = #44396#44036' ID'
  316. PropertiesClassName = 'TcxLabelProperties'
  317. Properties.Alignment.Horz = taCenter
  318. Properties.Alignment.Vert = taVCenter
  319. HeaderAlignmentHorz = taCenter
  320. Options.Editing = False
  321. Width = 133
  322. end
  323. object Column02: TcxGridColumn
  324. Caption = #51340#54364' X'
  325. DataBinding.ValueType = 'Float'
  326. PropertiesClassName = 'TcxCalcEditProperties'
  327. Properties.Alignment.Horz = taRightJustify
  328. Properties.Alignment.Vert = taVCenter
  329. Properties.DisplayFormat = '##0.######0'
  330. HeaderAlignmentHorz = taCenter
  331. Options.Editing = False
  332. Width = 100
  333. end
  334. object Column03: TcxGridColumn
  335. Caption = #51340#54364' Y'
  336. DataBinding.ValueType = 'Float'
  337. PropertiesClassName = 'TcxCalcEditProperties'
  338. Properties.Alignment.Horz = taRightJustify
  339. Properties.Alignment.Vert = taVCenter
  340. Properties.DisplayFormat = '##0.######0'
  341. HeaderAlignmentHorz = taCenter
  342. Options.Editing = False
  343. Width = 100
  344. end
  345. object Column99: TcxGridColumn
  346. Caption = #47700#47784#47532
  347. DataBinding.ValueType = 'Integer'
  348. PropertiesClassName = 'TcxCalcEditProperties'
  349. Visible = False
  350. HeaderAlignmentHorz = taCenter
  351. Options.Editing = False
  352. end
  353. end
  354. object GlList: TcxGridLevel
  355. GridView = TvList
  356. end
  357. end
  358. object BtnDelete: TcxButton
  359. Tag = 4
  360. Left = 6
  361. Top = 120
  362. Width = 120
  363. Height = 25
  364. Cursor = crHandPoint
  365. Hint = #47785#47197#50640#49436' '#49440#53469#54620' '#44396#44036#51012' '#49325#51228#54633#45768#45796'.'
  366. Anchors = [akLeft, akBottom]
  367. Caption = #49440#53469#49325#51228
  368. Colors.Default = 10737865
  369. TabOrder = 2
  370. Font.Charset = DEFAULT_CHARSET
  371. Font.Color = clBlack
  372. Font.Height = -13
  373. Font.Name = #47569#51008' '#44256#46357
  374. Font.Style = [fsBold]
  375. ParentFont = False
  376. OnClick = BtnDeleteClick
  377. ExplicitTop = 134
  378. end
  379. end
  380. object PgList: TcxPageControl
  381. Left = 0
  382. Top = 199
  383. Width = 318
  384. Height = 686
  385. Align = alClient
  386. TabOrder = 1
  387. Properties.ActivePage = TabLink
  388. ClientRectBottom = 681
  389. ClientRectLeft = 2
  390. ClientRectRight = 313
  391. ClientRectTop = 28
  392. object TabNode: TcxTabSheet
  393. Caption = #45432#46300' '
  394. ImageIndex = 0
  395. inline FRAMENodeList1: TFRAMENodeList
  396. Left = 0
  397. Top = 0
  398. Width = 311
  399. Height = 653
  400. Align = alClient
  401. TabOrder = 0
  402. ExplicitWidth = 311
  403. ExplicitHeight = 653
  404. inherited CxList: TcxGrid
  405. Width = 311
  406. Height = 591
  407. ExplicitWidth = 311
  408. ExplicitHeight = 591
  409. inherited TvList: TcxGridTableView
  410. OnCellDblClick = FRAMENodeList1TvListCellDblClick
  411. end
  412. end
  413. inherited PnlTop: TPanel
  414. Width = 311
  415. ExplicitWidth = 311
  416. end
  417. inherited PnlBottom: TPanel
  418. Top = 622
  419. Width = 311
  420. ExplicitTop = 622
  421. ExplicitWidth = 311
  422. inherited LblRecords: TLabel
  423. Left = 200
  424. Width = 25
  425. Height = 17
  426. ExplicitLeft = 200
  427. ExplicitWidth = 25
  428. ExplicitHeight = 17
  429. end
  430. inherited ChkDispExt: TcxCheckBox
  431. ExplicitHeight = 21
  432. end
  433. inherited BtnExlSave: TcxButton
  434. Left = 231
  435. ExplicitLeft = 231
  436. end
  437. end
  438. inherited lblFileName: TcxLabel
  439. ExplicitWidth = 56
  440. ExplicitHeight = 21
  441. end
  442. end
  443. end
  444. object TabLink: TcxTabSheet
  445. Caption = #47553#53356' '
  446. ImageIndex = 1
  447. inline FRAMELinkList1: TFRAMELinkList
  448. Left = 0
  449. Top = 0
  450. Width = 311
  451. Height = 653
  452. Align = alClient
  453. TabOrder = 0
  454. ExplicitWidth = 311
  455. ExplicitHeight = 653
  456. inherited CxList: TcxGrid
  457. Width = 311
  458. Height = 591
  459. ExplicitWidth = 311
  460. ExplicitHeight = 591
  461. inherited TvList: TcxGridTableView
  462. OnCellDblClick = FRAMELinkList1TvListCellDblClick
  463. end
  464. end
  465. inherited PnlTop: TPanel
  466. Width = 311
  467. ExplicitWidth = 311
  468. end
  469. inherited PnlBottom: TPanel
  470. Top = 622
  471. Width = 311
  472. ExplicitTop = 622
  473. ExplicitWidth = 311
  474. inherited LblRecords: TLabel
  475. Left = 200
  476. Width = 25
  477. Height = 17
  478. ExplicitLeft = 200
  479. ExplicitWidth = 25
  480. ExplicitHeight = 17
  481. end
  482. inherited ChkDispExt: TcxCheckBox
  483. ExplicitHeight = 21
  484. end
  485. inherited BtnExlSave: TcxButton
  486. Left = 231
  487. ExplicitLeft = 231
  488. end
  489. end
  490. inherited lblFileName: TcxLabel
  491. ExplicitWidth = 56
  492. ExplicitHeight = 21
  493. end
  494. end
  495. end
  496. object TabServiceLink: TcxTabSheet
  497. Caption = #49436#48708#49828#47553#53356' '
  498. ImageIndex = 2
  499. inline FRAMEServiceLinkList1: TFRAMEServiceLinkList
  500. Left = 0
  501. Top = 0
  502. Width = 311
  503. Height = 653
  504. Align = alClient
  505. TabOrder = 0
  506. ExplicitWidth = 311
  507. ExplicitHeight = 653
  508. inherited CxList: TcxGrid
  509. Width = 311
  510. Height = 591
  511. ExplicitWidth = 311
  512. ExplicitHeight = 591
  513. inherited TvList: TcxGridTableView
  514. OnCellDblClick = FRAMEServiceLinkList1TvListCellClick
  515. end
  516. end
  517. inherited PnlTop: TPanel
  518. Width = 311
  519. ExplicitWidth = 311
  520. end
  521. inherited PnlBottom: TPanel
  522. Top = 622
  523. Width = 311
  524. ExplicitTop = 622
  525. ExplicitWidth = 311
  526. inherited LblRecords: TLabel
  527. Left = 200
  528. Width = 25
  529. Height = 17
  530. ExplicitLeft = 200
  531. ExplicitWidth = 25
  532. ExplicitHeight = 17
  533. end
  534. inherited ChkDispExt: TcxCheckBox
  535. ExplicitHeight = 21
  536. end
  537. inherited BtnExlSave: TcxButton
  538. Left = 231
  539. ExplicitLeft = 231
  540. end
  541. end
  542. inherited lblFileName: TcxLabel
  543. ExplicitWidth = 95
  544. ExplicitHeight = 21
  545. end
  546. end
  547. end
  548. object TabRoad: TcxTabSheet
  549. Caption = #46020#47196' '
  550. ImageIndex = 3
  551. inline FRAMERoadList1: TFRAMERoadList
  552. Left = 0
  553. Top = 0
  554. Width = 311
  555. Height = 653
  556. Align = alClient
  557. TabOrder = 0
  558. ExplicitWidth = 311
  559. ExplicitHeight = 653
  560. inherited CxList: TcxGrid
  561. Width = 311
  562. Height = 591
  563. ExplicitWidth = 311
  564. ExplicitHeight = 591
  565. inherited TvList: TcxGridTableView
  566. OnCellDblClick = FRAMERoadList1TvListCellClick
  567. end
  568. end
  569. inherited PnlTop: TPanel
  570. Width = 311
  571. ExplicitWidth = 311
  572. end
  573. inherited PnlBottom: TPanel
  574. Top = 622
  575. Width = 311
  576. ExplicitTop = 622
  577. ExplicitWidth = 311
  578. inherited LblRecords: TLabel
  579. Left = 200
  580. Width = 25
  581. Height = 17
  582. ExplicitLeft = 200
  583. ExplicitWidth = 25
  584. ExplicitHeight = 17
  585. end
  586. inherited ChkDispExt: TcxCheckBox
  587. ExplicitHeight = 21
  588. end
  589. inherited BtnExlSave: TcxButton
  590. Left = 231
  591. ExplicitLeft = 231
  592. end
  593. end
  594. inherited lblFileName: TcxLabel
  595. ExplicitWidth = 56
  596. ExplicitHeight = 21
  597. end
  598. end
  599. end
  600. end
  601. object cxSplitter2: TcxSplitter
  602. Left = 0
  603. Top = 193
  604. Width = 318
  605. Height = 6
  606. AlignSplitter = salTop
  607. Control = cxGroupBox2
  608. end
  609. end
  610. end
  611. object BtnClose: TcxButton
  612. Left = 1028
  613. Top = 8
  614. Width = 75
  615. Height = 25
  616. Cursor = crHandPoint
  617. Hint = #45803#44592
  618. Anchors = [akTop, akRight]
  619. Caption = #45803#44592
  620. Colors.Default = 10737865
  621. TabOrder = 1
  622. Visible = False
  623. Font.Charset = DEFAULT_CHARSET
  624. Font.Color = clBlack
  625. Font.Height = -13
  626. Font.Name = #47569#51008' '#44256#46357
  627. Font.Style = [fsBold]
  628. ParentFont = False
  629. OnClick = BtnCloseClick
  630. end
  631. object BtnSearch: TcxButton
  632. Left = 943
  633. Top = 8
  634. Width = 75
  635. Height = 25
  636. Cursor = crHandPoint
  637. Hint = #51312#54924
  638. Anchors = [akTop, akRight]
  639. Caption = #51312#54924
  640. Colors.Default = 10737865
  641. TabOrder = 0
  642. Visible = False
  643. Font.Charset = DEFAULT_CHARSET
  644. Font.Color = clBlack
  645. Font.Height = -13
  646. Font.Name = #47569#51008' '#44256#46357
  647. Font.Style = [fsBold]
  648. ParentFont = False
  649. OnClick = BtnSearchClick
  650. end
  651. object lblText1: TcxLabel
  652. Left = 131
  653. Top = 356
  654. Caption = #44396#44036#51060' '#49440#53469#46104#51648' '#50506#50520#49845#45768#45796'.'#13#10#51648#46020#50640#49436' '#44396#44036#51012' '#49440#53469#54616#49464#50836'.'
  655. Transparent = True
  656. Visible = False
  657. end
  658. object TmrShow: TTimer
  659. Enabled = False
  660. Interval = 500
  661. OnTimer = TmrShowTimer
  662. Left = 623
  663. Top = 92
  664. end
  665. object GMPolyLink: TGMPolyline
  666. Tag = 1
  667. VisualObjects = <>
  668. OnClick = GMPolyLinkClick
  669. Left = 192
  670. Top = 208
  671. end
  672. object TmrClear: TTimer
  673. Enabled = False
  674. Interval = 3000
  675. OnTimer = TmrClearTimer
  676. Left = 487
  677. Top = 452
  678. end
  679. object GMMarkerPos: TGMMarker
  680. AutoUpdate = False
  681. VisualObjects = <
  682. item
  683. Animation.OnDrop = True
  684. Title = 'MarkerPos'
  685. ShowInfoWinMouseOver = True
  686. end
  687. item
  688. Title = 'MarkerVeh'
  689. ShowInfoWinMouseOver = True
  690. end>
  691. Left = 344
  692. Top = 172
  693. end
  694. object TmrPosClear: TTimer
  695. Enabled = False
  696. Interval = 3000
  697. OnTimer = TmrPosClearTimer
  698. Left = 463
  699. Top = 396
  700. end
  701. end