VMSM630MF.dfm 18 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653
  1. object VMSM630M: TVMSM630M
  2. Left = 0
  3. Top = 0
  4. HorzScrollBar.Visible = False
  5. VertScrollBar.Visible = False
  6. BorderIcons = [biSystemMenu, biMinimize]
  7. Caption = 'VMS '#49828#53944#47532#48141#50689#49345' '#54268' '#49828#53944#47532#48141' '#49444#51221
  8. ClientHeight = 851
  9. ClientWidth = 899
  10. Color = clBtnFace
  11. Font.Charset = DEFAULT_CHARSET
  12. Font.Color = clWindowText
  13. Font.Height = -13
  14. Font.Name = #47569#51008' '#44256#46357
  15. Font.Style = []
  16. KeyPreview = True
  17. OldCreateOrder = False
  18. Position = poOwnerFormCenter
  19. ShowHint = True
  20. OnClose = FormClose
  21. OnCreate = FormCreate
  22. OnShow = FormShow
  23. DesignSize = (
  24. 899
  25. 851)
  26. PixelsPerInch = 96
  27. TextHeight = 17
  28. object ShpTitle: TShape
  29. Left = 4
  30. Top = 4
  31. Width = 891
  32. Height = 40
  33. Anchors = [akLeft, akTop, akRight]
  34. Brush.Color = 14671839
  35. Pen.Color = 10849679
  36. Pen.Width = 2
  37. Visible = False
  38. ExplicitWidth = 1269
  39. end
  40. object LblCaption: TLabel
  41. Left = 16
  42. Top = 10
  43. Width = 267
  44. Height = 23
  45. Caption = #53440#51060#53952' '
  46. Font.Charset = DEFAULT_CHARSET
  47. Font.Color = 4740964
  48. Font.Height = -17
  49. Font.Name = #47569#51008' '#44256#46357
  50. Font.Style = [fsBold]
  51. ParentFont = False
  52. ParentShowHint = False
  53. ShowHint = True
  54. Visible = False
  55. end
  56. object ShpList: TShape
  57. Left = 4
  58. Top = 4
  59. Width = 891
  60. Height = 841
  61. Anchors = [akLeft, akTop, akRight, akBottom]
  62. Pen.Color = 10849679
  63. Pen.Width = 2
  64. ExplicitWidth = 966
  65. ExplicitHeight = 741
  66. end
  67. object EdFocus: TEdit
  68. Left = -10
  69. Top = -10
  70. Width = 2
  71. Height = 25
  72. ImeName = 'Microsoft Office IME 2007'
  73. TabOrder = 0
  74. Text = 'EdFocus'
  75. end
  76. object PanelBack: TPanel
  77. Left = 12
  78. Top = 10
  79. Width = 873
  80. Height = 830
  81. Anchors = [akLeft, akTop, akRight, akBottom]
  82. BevelOuter = bvNone
  83. ParentBackground = False
  84. ParentColor = True
  85. TabOrder = 1
  86. object PnlMenu: TPanel
  87. Left = 0
  88. Top = 792
  89. Width = 873
  90. Height = 38
  91. Align = alBottom
  92. BevelOuter = bvNone
  93. TabOrder = 0
  94. DesignSize = (
  95. 873
  96. 38)
  97. object BtnEdit: TcxButton
  98. Tag = 2
  99. Left = 8
  100. Top = 10
  101. Width = 80
  102. Height = 25
  103. Cursor = crHandPoint
  104. Hint = #45936#51060#53552' '#54200#51665
  105. Anchors = [akLeft, akBottom]
  106. Caption = #54200#51665
  107. Colors.Default = 10737865
  108. Enabled = False
  109. TabOrder = 0
  110. Visible = False
  111. Font.Charset = DEFAULT_CHARSET
  112. Font.Color = clBlack
  113. Font.Height = -13
  114. Font.Name = #47569#51008' '#44256#46357
  115. Font.Style = [fsBold]
  116. ParentFont = False
  117. end
  118. object BtnInsert: TcxButton
  119. Tag = 2
  120. Left = 89
  121. Top = 10
  122. Width = 80
  123. Height = 25
  124. Cursor = crHandPoint
  125. Hint = #45936#51060#53552' '#52628#44032
  126. Anchors = [akLeft, akBottom]
  127. Caption = #52628#44032
  128. Colors.Default = 10737865
  129. TabOrder = 1
  130. Visible = False
  131. Font.Charset = DEFAULT_CHARSET
  132. Font.Color = clBlack
  133. Font.Height = -13
  134. Font.Name = #47569#51008' '#44256#46357
  135. Font.Style = [fsBold]
  136. ParentFont = False
  137. end
  138. object BtnDelete: TcxButton
  139. Tag = 4
  140. Left = 171
  141. Top = 10
  142. Width = 80
  143. Height = 25
  144. Cursor = crHandPoint
  145. Hint = #45936#51060#53552' '#49325#51228
  146. Anchors = [akLeft, akBottom]
  147. Caption = #49325#51228
  148. Colors.Default = 10737865
  149. Enabled = False
  150. TabOrder = 2
  151. Visible = False
  152. Font.Charset = DEFAULT_CHARSET
  153. Font.Color = clBlack
  154. Font.Height = -13
  155. Font.Name = #47569#51008' '#44256#46357
  156. Font.Style = [fsBold]
  157. ParentFont = False
  158. end
  159. object BtnSavex: TcxButton
  160. Tag = 5
  161. Left = 252
  162. Top = 10
  163. Width = 80
  164. Height = 25
  165. Cursor = crHandPoint
  166. Hint = #54200#51665#51089#50629' '#51200#51109
  167. Anchors = [akLeft, akBottom]
  168. Caption = #51200#51109
  169. Colors.Default = 10737865
  170. Enabled = False
  171. TabOrder = 3
  172. Visible = False
  173. Font.Charset = DEFAULT_CHARSET
  174. Font.Color = clBlack
  175. Font.Height = -13
  176. Font.Name = #47569#51008' '#44256#46357
  177. Font.Style = [fsBold]
  178. ParentFont = False
  179. end
  180. object BtnClose: TcxButton
  181. Left = 662
  182. Top = 7
  183. Width = 100
  184. Height = 25
  185. Cursor = crHandPoint
  186. Hint = #52712#49548
  187. Anchors = [akRight, akBottom]
  188. Caption = #52712#49548
  189. Colors.Default = 10737865
  190. TabOrder = 4
  191. Font.Charset = DEFAULT_CHARSET
  192. Font.Color = clBlack
  193. Font.Height = -13
  194. Font.Name = #47569#51008' '#44256#46357
  195. Font.Style = [fsBold]
  196. ParentFont = False
  197. OnClick = BtnClosexClick
  198. end
  199. object BtnSave: TcxButton
  200. Tag = 4
  201. Left = 769
  202. Top = 7
  203. Width = 100
  204. Height = 25
  205. Cursor = crHandPoint
  206. Hint = #54364#52636#44396#44036#51012' '#49444#51221' '#54633#45768#45796'.'
  207. Anchors = [akRight, akBottom]
  208. Caption = #54869#51064
  209. Colors.Default = 10737865
  210. TabOrder = 5
  211. Font.Charset = DEFAULT_CHARSET
  212. Font.Color = clBlack
  213. Font.Height = -13
  214. Font.Name = #47569#51008' '#44256#46357
  215. Font.Style = [fsBold]
  216. ParentFont = False
  217. OnClick = BtnSaveClick
  218. end
  219. end
  220. object cxGroupBox1: TcxGroupBox
  221. Left = 0
  222. Top = 0
  223. Align = alTop
  224. Caption = #9654' '#49828#53944#47532#48141' '#54268
  225. Style.BorderColor = clCaptionText
  226. Style.Shadow = False
  227. Style.TextColor = clWindowText
  228. Style.TextStyle = [fsBold]
  229. TabOrder = 1
  230. Height = 373
  231. Width = 873
  232. object PnlCmd: TPanel
  233. Left = 3
  234. Top = 19
  235. Width = 867
  236. Height = 344
  237. Align = alClient
  238. BevelOuter = bvNone
  239. Enabled = False
  240. TabOrder = 0
  241. object Panel2: TPanel
  242. Left = 0
  243. Top = 0
  244. Width = 867
  245. Height = 344
  246. Align = alClient
  247. BevelOuter = bvNone
  248. Color = clMenuHighlight
  249. Enabled = False
  250. ParentBackground = False
  251. TabOrder = 0
  252. object ImgForm: TImage
  253. Left = 536
  254. Top = 194
  255. Width = 80
  256. Height = 57
  257. Visible = False
  258. end
  259. object ImgDesc20: TImage
  260. Left = 646
  261. Top = 133
  262. Width = 9
  263. Height = 9
  264. Transparent = True
  265. Visible = False
  266. end
  267. object Label10: TLabel
  268. Left = 664
  269. Top = 129
  270. Width = 78
  271. Height = 17
  272. Caption = #49828#53944#47532#48141#48264#54840
  273. Transparent = True
  274. Visible = False
  275. end
  276. object ImgDesc21: TImage
  277. Left = 601
  278. Top = 10
  279. Width = 9
  280. Height = 9
  281. Transparent = True
  282. end
  283. object Label13: TLabel
  284. Left = 619
  285. Top = 6
  286. Width = 83
  287. Height = 17
  288. Caption = #49828#53944#47532#48141' '#51452#49548
  289. Color = clWindowText
  290. ParentColor = False
  291. Transparent = True
  292. end
  293. object PnlEdtBack: TPanel
  294. Left = 3
  295. Top = 2
  296. Width = 578
  297. Height = 324
  298. BevelInner = bvLowered
  299. Color = clSilver
  300. ParentBackground = False
  301. TabOrder = 0
  302. object PnlEditForm: TPanel
  303. Left = 2
  304. Top = 2
  305. Width = 574
  306. Height = 320
  307. Align = alClient
  308. BevelOuter = bvNone
  309. Color = clBlack
  310. ParentBackground = False
  311. TabOrder = 0
  312. end
  313. end
  314. object EdSymbLibNmbr: TcxTextEdit
  315. Left = 646
  316. Top = 152
  317. Properties.Alignment.Horz = taCenter
  318. Properties.Alignment.Vert = taVCenter
  319. Properties.MaxLength = 0
  320. Properties.ReadOnly = True
  321. Style.LookAndFeel.Kind = lfUltraFlat
  322. Style.LookAndFeel.NativeStyle = False
  323. Style.Shadow = False
  324. StyleDisabled.LookAndFeel.Kind = lfUltraFlat
  325. StyleDisabled.LookAndFeel.NativeStyle = False
  326. StyleFocused.LookAndFeel.Kind = lfUltraFlat
  327. StyleFocused.LookAndFeel.NativeStyle = False
  328. StyleFocused.TextStyle = [fsBold]
  329. StyleHot.LookAndFeel.Kind = lfUltraFlat
  330. StyleHot.LookAndFeel.NativeStyle = False
  331. TabOrder = 1
  332. Visible = False
  333. Width = 136
  334. end
  335. object EdStreamAddr: TcxTextEdit
  336. Left = 601
  337. Top = 29
  338. Properties.Alignment.Vert = taVCenter
  339. Properties.MaxLength = 0
  340. Properties.ReadOnly = True
  341. Style.LookAndFeel.Kind = lfUltraFlat
  342. Style.LookAndFeel.NativeStyle = False
  343. Style.Shadow = False
  344. StyleDisabled.LookAndFeel.Kind = lfUltraFlat
  345. StyleDisabled.LookAndFeel.NativeStyle = False
  346. StyleFocused.LookAndFeel.Kind = lfUltraFlat
  347. StyleFocused.LookAndFeel.NativeStyle = False
  348. StyleFocused.TextStyle = [fsBold]
  349. StyleHot.LookAndFeel.Kind = lfUltraFlat
  350. StyleHot.LookAndFeel.NativeStyle = False
  351. TabOrder = 2
  352. Width = 251
  353. end
  354. end
  355. end
  356. end
  357. object GrpObj: TcxGroupBox
  358. Left = 0
  359. Top = 373
  360. Align = alClient
  361. Caption = #9654' '#49828#53944#47532#48141#50689#49345' '#49444#51221
  362. Style.TextStyle = [fsBold]
  363. TabOrder = 2
  364. Height = 419
  365. Width = 873
  366. object Panel1: TPanel
  367. Left = 3
  368. Top = 356
  369. Width = 867
  370. Height = 53
  371. Align = alBottom
  372. TabOrder = 0
  373. object lblCurrentPTS1: TLabel
  374. Left = 492
  375. Top = 15
  376. Width = 55
  377. Height = 17
  378. Alignment = taCenter
  379. Caption = '00:00:000'
  380. end
  381. object lblDuration1: TLabel
  382. Left = 423
  383. Top = 15
  384. Width = 55
  385. Height = 17
  386. Alignment = taCenter
  387. Caption = '00:00:000'
  388. end
  389. object TrackBar1: TTrackBar
  390. Left = -1
  391. Top = 11
  392. Width = 418
  393. Height = 37
  394. TabOrder = 0
  395. OnChange = TrackBar1Change
  396. end
  397. object BtnPlay: TcxButton
  398. Left = 583
  399. Top = 12
  400. Width = 88
  401. Height = 25
  402. Cursor = crHandPoint
  403. Hint = #51116#49373
  404. Caption = #50689#49345
  405. Colors.Default = 10737865
  406. TabOrder = 1
  407. Font.Charset = DEFAULT_CHARSET
  408. Font.Color = clBlack
  409. Font.Height = -13
  410. Font.Name = #47569#51008' '#44256#46357
  411. Font.Style = [fsBold]
  412. ParentFont = False
  413. OnClick = BtnPlayClick
  414. end
  415. object BtnStop: TcxButton
  416. Left = 674
  417. Top = 12
  418. Width = 88
  419. Height = 25
  420. Cursor = crHandPoint
  421. Hint = #51221#51648
  422. Caption = #51221#51648
  423. Colors.Default = 10737865
  424. Enabled = False
  425. TabOrder = 2
  426. Font.Charset = DEFAULT_CHARSET
  427. Font.Color = clBlack
  428. Font.Height = -13
  429. Font.Name = #47569#51008' '#44256#46357
  430. Font.Style = [fsBold]
  431. ParentFont = False
  432. OnClick = BtnStopClick
  433. end
  434. object BtnPause: TcxButton
  435. Left = 766
  436. Top = 12
  437. Width = 88
  438. Height = 25
  439. Cursor = crHandPoint
  440. Hint = #47688#52644'/'#51116#49373
  441. Caption = #47688#52644'/'#50689#49345
  442. Colors.Default = 10737865
  443. Enabled = False
  444. TabOrder = 3
  445. Font.Charset = DEFAULT_CHARSET
  446. Font.Color = clBlack
  447. Font.Height = -13
  448. Font.Name = #47569#51008' '#44256#46357
  449. Font.Style = [fsBold]
  450. ParentFont = False
  451. OnClick = BtnPauseClick
  452. end
  453. object ChkFullScreen: TcxCheckBox
  454. Left = 388
  455. Top = 29
  456. Cursor = crHandPoint
  457. Caption = #54868#47732' '#47582#52644
  458. State = cbsChecked
  459. TabOrder = 4
  460. Transparent = True
  461. Visible = False
  462. Width = 105
  463. end
  464. end
  465. object CxList: TcxGrid
  466. Left = 3
  467. Top = 19
  468. Width = 867
  469. Height = 337
  470. Align = alClient
  471. TabOrder = 1
  472. object TvList: TcxGridTableView
  473. OnFocusedRecordChanged = TvListFocusedRecordChanged
  474. DataController.Summary.DefaultGroupSummaryItems = <>
  475. DataController.Summary.FooterSummaryItems = <>
  476. DataController.Summary.SummaryGroups = <>
  477. OptionsCustomize.ColumnFiltering = False
  478. OptionsCustomize.ColumnMoving = False
  479. OptionsCustomize.DataRowSizing = True
  480. OptionsSelection.HideFocusRectOnExit = False
  481. OptionsSelection.HideSelection = True
  482. OptionsView.ColumnAutoWidth = True
  483. OptionsView.GroupByBox = False
  484. object Col04: TcxGridColumn
  485. Caption = #44396#48516
  486. PropertiesClassName = 'TcxLabelProperties'
  487. Properties.Alignment.Horz = taCenter
  488. Properties.Alignment.Vert = taVCenter
  489. GroupSummaryAlignment = taCenter
  490. HeaderAlignmentHorz = taCenter
  491. HeaderAlignmentVert = vaCenter
  492. HeaderGlyphAlignmentHorz = taCenter
  493. Width = 80
  494. end
  495. object Col00: TcxGridColumn
  496. Caption = #48264#54840
  497. PropertiesClassName = 'TcxLabelProperties'
  498. Properties.Alignment.Horz = taCenter
  499. Properties.Alignment.Vert = taVCenter
  500. GroupSummaryAlignment = taCenter
  501. HeaderAlignmentHorz = taCenter
  502. HeaderAlignmentVert = vaCenter
  503. HeaderGlyphAlignmentHorz = taCenter
  504. MinWidth = 62
  505. Options.Editing = False
  506. Options.HorzSizing = False
  507. Width = 62
  508. end
  509. object Col01: TcxGridColumn
  510. Caption = #49828#53944#47532#48141' ID'
  511. PropertiesClassName = 'TcxLabelProperties'
  512. Properties.Alignment.Horz = taLeftJustify
  513. Properties.Alignment.Vert = taVCenter
  514. GroupSummaryAlignment = taCenter
  515. HeaderAlignmentHorz = taCenter
  516. HeaderAlignmentVert = vaCenter
  517. HeaderGlyphAlignmentHorz = taCenter
  518. MinWidth = 0
  519. Options.Editing = False
  520. Width = 179
  521. end
  522. object Col02: TcxGridColumn
  523. Caption = #49828#53944#47532#48141' '#47749#52845
  524. PropertiesClassName = 'TcxLabelProperties'
  525. Properties.Alignment.Horz = taCenter
  526. Properties.Alignment.Vert = taVCenter
  527. GroupSummaryAlignment = taCenter
  528. HeaderAlignmentHorz = taCenter
  529. HeaderAlignmentVert = vaCenter
  530. HeaderGlyphAlignmentHorz = taCenter
  531. Options.Editing = False
  532. Width = 144
  533. end
  534. object Col03: TcxGridColumn
  535. Caption = #49828#53944#47532#48141' '#51452#49548
  536. PropertiesClassName = 'TcxLabelProperties'
  537. Properties.Alignment.Vert = taVCenter
  538. GroupSummaryAlignment = taCenter
  539. HeaderAlignmentHorz = taCenter
  540. HeaderAlignmentVert = vaCenter
  541. HeaderGlyphAlignmentHorz = taCenter
  542. MinWidth = 400
  543. Options.Editing = False
  544. Options.HorzSizing = False
  545. Width = 400
  546. end
  547. end
  548. object GlList: TcxGridLevel
  549. GridView = TvList
  550. end
  551. end
  552. end
  553. end
  554. object BtnSearch: TcxButton
  555. Left = 717
  556. Top = 11
  557. Width = 80
  558. Height = 25
  559. Cursor = crHandPoint
  560. Hint = #51312#54924
  561. Anchors = [akTop, akRight]
  562. Caption = #51312#54924
  563. Colors.Default = 10737865
  564. LookAndFeel.NativeStyle = False
  565. TabOrder = 2
  566. Visible = False
  567. Font.Charset = DEFAULT_CHARSET
  568. Font.Color = clBlack
  569. Font.Height = -13
  570. Font.Name = #47569#51008' '#44256#46357
  571. Font.Style = [fsBold]
  572. ParentFont = False
  573. OnClick = BtnSearchClick
  574. end
  575. object EdObjId: TcxMaskEdit
  576. Left = 186
  577. Top = 8
  578. Properties.Alignment.Horz = taCenter
  579. Properties.Alignment.Vert = taVCenter
  580. Properties.MaskKind = emkRegExpr
  581. Properties.MaxLength = 0
  582. Style.LookAndFeel.NativeStyle = False
  583. StyleDisabled.LookAndFeel.NativeStyle = False
  584. StyleFocused.LookAndFeel.NativeStyle = False
  585. StyleHot.LookAndFeel.NativeStyle = False
  586. TabOrder = 3
  587. Text = '0'
  588. Visible = False
  589. Width = 56
  590. end
  591. object EdFormId: TcxTextEdit
  592. Left = 289
  593. Top = 8
  594. ImeMode = imSAlpha
  595. Properties.Alignment.Horz = taCenter
  596. Properties.Alignment.Vert = taVCenter
  597. Properties.ImeMode = imSAlpha
  598. Properties.MaxLength = 0
  599. Properties.ReadOnly = True
  600. Style.LookAndFeel.Kind = lfUltraFlat
  601. Style.LookAndFeel.NativeStyle = False
  602. Style.Shadow = False
  603. StyleDisabled.LookAndFeel.Kind = lfUltraFlat
  604. StyleDisabled.LookAndFeel.NativeStyle = False
  605. StyleFocused.LookAndFeel.Kind = lfUltraFlat
  606. StyleFocused.LookAndFeel.NativeStyle = False
  607. StyleHot.LookAndFeel.Kind = lfUltraFlat
  608. StyleHot.LookAndFeel.NativeStyle = False
  609. TabOrder = 4
  610. Text = '10000'
  611. Visible = False
  612. Width = 83
  613. end
  614. object BtnClosex: TcxButton
  615. Left = 805
  616. Top = 11
  617. Width = 80
  618. Height = 25
  619. Cursor = crHandPoint
  620. Hint = #45803#44592
  621. Anchors = [akTop, akRight]
  622. Caption = #45803#44592
  623. Colors.Default = 10737865
  624. TabOrder = 5
  625. Visible = False
  626. Font.Charset = DEFAULT_CHARSET
  627. Font.Color = clBlack
  628. Font.Height = -13
  629. Font.Name = #47569#51008' '#44256#46357
  630. Font.Style = [fsBold]
  631. ParentFont = False
  632. OnClick = BtnClosexClick
  633. end
  634. object TmrShow: TTimer
  635. Enabled = False
  636. Interval = 300
  637. OnTimer = TmrShowTimer
  638. Left = 660
  639. Top = 328
  640. end
  641. object FFPlayer1: TFFPlayer
  642. OnFileOpen = FFPlayer1FileOpen
  643. OnOpenFailed = FFPlayer1OpenFailed
  644. OnPosition = FFPlayer1Position
  645. OnState = FFPlayer1State
  646. Left = 776
  647. Top = 320
  648. end
  649. object VmsDesigner1: VmsDesigner
  650. Left = 864
  651. Top = 328
  652. end
  653. end