VMSSEL0MF.dfm 12 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443
  1. object VMSSEL0M: TVMSSEL0M
  2. Left = 0
  3. Top = 0
  4. HorzScrollBar.Visible = False
  5. VertScrollBar.Visible = False
  6. BorderIcons = [biSystemMenu]
  7. BorderStyle = bsDialog
  8. Caption = 'VMS '#54268' '#54364#52636#44592#44036' '#49444#51221
  9. ClientHeight = 210
  10. ClientWidth = 455
  11. Color = clBtnFace
  12. DoubleBuffered = True
  13. Font.Charset = DEFAULT_CHARSET
  14. Font.Color = clWindowText
  15. Font.Height = -13
  16. Font.Name = #47569#51008' '#44256#46357
  17. Font.Style = []
  18. KeyPreview = True
  19. OldCreateOrder = False
  20. Position = poOwnerFormCenter
  21. ShowHint = True
  22. OnClose = FormClose
  23. OnShow = FormShow
  24. DesignSize = (
  25. 455
  26. 210)
  27. PixelsPerInch = 96
  28. TextHeight = 17
  29. object ShpList: TShape
  30. Left = 4
  31. Top = 4
  32. Width = 447
  33. Height = 168
  34. Anchors = [akLeft, akTop, akRight, akBottom]
  35. Pen.Color = 10849679
  36. Pen.Width = 2
  37. Visible = False
  38. ExplicitWidth = 772
  39. ExplicitHeight = 655
  40. end
  41. object EdFocus: TEdit
  42. Left = -10
  43. Top = -10
  44. Width = 2
  45. Height = 25
  46. ImeName = 'Microsoft Office IME 2007'
  47. TabOrder = 2
  48. Text = 'EdFocus'
  49. end
  50. object BtnSelect: TcxButton
  51. Tag = 4
  52. Left = 351
  53. Top = 180
  54. Width = 100
  55. Height = 25
  56. Cursor = crHandPoint
  57. Hint = #54364#52636#44592#44036#51012' '#49444#51221' '#54633#45768#45796'.'
  58. Anchors = [akRight, akBottom]
  59. Caption = #54869#51064
  60. Colors.Default = 10737865
  61. TabOrder = 3
  62. Font.Charset = DEFAULT_CHARSET
  63. Font.Color = clBlack
  64. Font.Height = -13
  65. Font.Name = #47569#51008' '#44256#46357
  66. Font.Style = [fsBold]
  67. ParentFont = False
  68. OnClick = BtnSelectClick
  69. ExplicitLeft = 386
  70. ExplicitTop = 159
  71. end
  72. object cxGroupBox1: TcxGroupBox
  73. Left = 4
  74. Top = 4
  75. Anchors = [akLeft, akTop, akRight, akBottom]
  76. Caption = #9654' '#54364#52636' '#44592#44036
  77. Style.LookAndFeel.SkinName = 'Black'
  78. Style.TextStyle = [fsBold]
  79. StyleDisabled.LookAndFeel.SkinName = 'Black'
  80. StyleFocused.LookAndFeel.SkinName = 'Black'
  81. StyleHot.LookAndFeel.SkinName = 'Black'
  82. TabOrder = 4
  83. ExplicitWidth = 483
  84. ExplicitHeight = 148
  85. Height = 169
  86. Width = 448
  87. object ImgDesc11: TImage
  88. Left = 9
  89. Top = 40
  90. Width = 9
  91. Height = 9
  92. Transparent = True
  93. end
  94. object ImgDesc01: TImage
  95. Left = 9
  96. Top = 79
  97. Width = 9
  98. Height = 9
  99. Transparent = True
  100. end
  101. object cxLabel18: TcxLabel
  102. Left = 64
  103. Top = 34
  104. Caption = #54364#52636#49884#51089' '#49884#44033
  105. Style.TextStyle = [fsBold]
  106. Properties.Alignment.Horz = taRightJustify
  107. Properties.Alignment.Vert = taVCenter
  108. Transparent = True
  109. AnchorX = 151
  110. AnchorY = 45
  111. end
  112. object cxLabel1: TcxLabel
  113. Left = 64
  114. Top = 73
  115. Caption = #54364#52636#51333#47308' '#49884#44033
  116. Style.TextStyle = [fsBold]
  117. Properties.Alignment.Horz = taRightJustify
  118. Properties.Alignment.Vert = taVCenter
  119. Transparent = True
  120. AnchorX = 151
  121. AnchorY = 84
  122. end
  123. object DtEndDate: TDateTimePicker
  124. Left = 157
  125. Top = 73
  126. Width = 152
  127. Height = 24
  128. BevelInner = bvNone
  129. BevelOuter = bvNone
  130. Date = 40452.000000000000000000
  131. Time = 40452.000000000000000000
  132. Color = clBtnFace
  133. ImeName = 'Microsoft Office IME 2007'
  134. ParentColor = True
  135. TabOrder = 2
  136. end
  137. object DtStrDate: TDateTimePicker
  138. Left = 157
  139. Top = 34
  140. Width = 152
  141. Height = 24
  142. BevelInner = bvNone
  143. BevelOuter = bvNone
  144. Date = 40452.000000000000000000
  145. Time = 40452.000000000000000000
  146. Color = clBtnFace
  147. ImeName = 'Microsoft Office IME 2007'
  148. ParentColor = True
  149. TabOrder = 3
  150. end
  151. object DtStrTime: TDateTimePicker
  152. Left = 315
  153. Top = 34
  154. Width = 75
  155. Height = 25
  156. BevelInner = bvNone
  157. BevelOuter = bvNone
  158. BevelKind = bkFlat
  159. Date = 40452.000000000000000000
  160. Format = ' HH:mm'
  161. Time = 40452.000000000000000000
  162. Color = clBtnFace
  163. DateMode = dmUpDown
  164. Font.Charset = DEFAULT_CHARSET
  165. Font.Color = clWindowText
  166. Font.Height = -13
  167. Font.Name = #47569#51008' '#44256#46357
  168. Font.Style = []
  169. ImeName = 'Microsoft Office IME 2007'
  170. Kind = dtkTime
  171. ParentColor = True
  172. ParentFont = False
  173. TabOrder = 4
  174. end
  175. object DtEndTime: TDateTimePicker
  176. Left = 315
  177. Top = 73
  178. Width = 75
  179. Height = 25
  180. BevelInner = bvNone
  181. BevelOuter = bvNone
  182. BevelKind = bkFlat
  183. Date = 40452.000000000000000000
  184. Format = ' HH:mm'
  185. Time = 40452.000000000000000000
  186. Color = clBtnFace
  187. DateMode = dmUpDown
  188. Font.Charset = DEFAULT_CHARSET
  189. Font.Color = clWindowText
  190. Font.Height = -13
  191. Font.Name = #47569#51008' '#44256#46357
  192. Font.Style = []
  193. ImeName = 'Microsoft Office IME 2007'
  194. Kind = dtkTime
  195. ParentColor = True
  196. ParentFont = False
  197. TabOrder = 5
  198. end
  199. object PnlWeek: TPanel
  200. Left = 4
  201. Top = 104
  202. Width = 387
  203. Height = 42
  204. BevelOuter = bvNone
  205. ParentColor = True
  206. TabOrder = 6
  207. object ImgDesc2: TImage
  208. Left = 4
  209. Top = 12
  210. Width = 9
  211. Height = 9
  212. Transparent = True
  213. end
  214. object ChkWeek0: TcxCheckBox
  215. Left = 42
  216. Top = 9
  217. Cursor = crHandPoint
  218. Caption = #50900
  219. ParentBackground = False
  220. ParentColor = False
  221. ParentShowHint = False
  222. Properties.Alignment = taLeftJustify
  223. ShowHint = True
  224. State = cbsChecked
  225. Style.BorderColor = 9868950
  226. Style.BorderStyle = ebsThick
  227. Style.Color = 14671839
  228. Style.LookAndFeel.Kind = lfUltraFlat
  229. Style.Shadow = False
  230. StyleDisabled.LookAndFeel.Kind = lfUltraFlat
  231. StyleFocused.LookAndFeel.Kind = lfUltraFlat
  232. StyleHot.LookAndFeel.Kind = lfUltraFlat
  233. TabOrder = 0
  234. Transparent = True
  235. Width = 47
  236. end
  237. object ChkWeek1: TcxCheckBox
  238. Left = 87
  239. Top = 9
  240. Cursor = crHandPoint
  241. Caption = #54868
  242. ParentBackground = False
  243. ParentColor = False
  244. ParentShowHint = False
  245. Properties.Alignment = taLeftJustify
  246. ShowHint = True
  247. State = cbsChecked
  248. Style.BorderColor = 9868950
  249. Style.BorderStyle = ebsThick
  250. Style.Color = 14671839
  251. Style.LookAndFeel.Kind = lfUltraFlat
  252. Style.Shadow = False
  253. StyleDisabled.LookAndFeel.Kind = lfUltraFlat
  254. StyleFocused.LookAndFeel.Kind = lfUltraFlat
  255. StyleHot.LookAndFeel.Kind = lfUltraFlat
  256. TabOrder = 1
  257. Transparent = True
  258. Width = 47
  259. end
  260. object ChkWeek3: TcxCheckBox
  261. Left = 179
  262. Top = 9
  263. Cursor = crHandPoint
  264. Caption = #47785
  265. ParentBackground = False
  266. ParentColor = False
  267. ParentShowHint = False
  268. Properties.Alignment = taLeftJustify
  269. ShowHint = True
  270. State = cbsChecked
  271. Style.BorderColor = 9868950
  272. Style.BorderStyle = ebsThick
  273. Style.Color = 14671839
  274. Style.LookAndFeel.Kind = lfUltraFlat
  275. Style.Shadow = False
  276. StyleDisabled.LookAndFeel.Kind = lfUltraFlat
  277. StyleFocused.LookAndFeel.Kind = lfUltraFlat
  278. StyleHot.LookAndFeel.Kind = lfUltraFlat
  279. TabOrder = 2
  280. Transparent = True
  281. Width = 47
  282. end
  283. object ChkWeek2: TcxCheckBox
  284. Left = 133
  285. Top = 9
  286. Cursor = crHandPoint
  287. Caption = #49688
  288. ParentBackground = False
  289. ParentColor = False
  290. ParentShowHint = False
  291. Properties.Alignment = taLeftJustify
  292. ShowHint = True
  293. State = cbsChecked
  294. Style.BorderColor = 9868950
  295. Style.BorderStyle = ebsThick
  296. Style.Color = 14671839
  297. Style.LookAndFeel.Kind = lfUltraFlat
  298. Style.Shadow = False
  299. StyleDisabled.LookAndFeel.Kind = lfUltraFlat
  300. StyleFocused.LookAndFeel.Kind = lfUltraFlat
  301. StyleHot.LookAndFeel.Kind = lfUltraFlat
  302. TabOrder = 3
  303. Transparent = True
  304. Width = 47
  305. end
  306. object ChkWeek6: TcxCheckBox
  307. Left = 316
  308. Top = 9
  309. Cursor = crHandPoint
  310. Caption = #51068
  311. ParentBackground = False
  312. ParentColor = False
  313. ParentShowHint = False
  314. Properties.Alignment = taLeftJustify
  315. ShowHint = True
  316. State = cbsChecked
  317. Style.BorderColor = 9868950
  318. Style.BorderStyle = ebsThick
  319. Style.Color = 14671839
  320. Style.LookAndFeel.Kind = lfUltraFlat
  321. Style.Shadow = False
  322. StyleDisabled.LookAndFeel.Kind = lfUltraFlat
  323. StyleFocused.LookAndFeel.Kind = lfUltraFlat
  324. StyleHot.LookAndFeel.Kind = lfUltraFlat
  325. TabOrder = 4
  326. Transparent = True
  327. Width = 47
  328. end
  329. object ChkWeek5: TcxCheckBox
  330. Left = 270
  331. Top = 9
  332. Cursor = crHandPoint
  333. Caption = #53664
  334. ParentBackground = False
  335. ParentColor = False
  336. ParentShowHint = False
  337. Properties.Alignment = taLeftJustify
  338. ShowHint = True
  339. State = cbsChecked
  340. Style.BorderColor = 9868950
  341. Style.BorderStyle = ebsThick
  342. Style.Color = 14671839
  343. Style.LookAndFeel.Kind = lfUltraFlat
  344. Style.Shadow = False
  345. StyleDisabled.LookAndFeel.Kind = lfUltraFlat
  346. StyleFocused.LookAndFeel.Kind = lfUltraFlat
  347. StyleHot.LookAndFeel.Kind = lfUltraFlat
  348. TabOrder = 5
  349. Transparent = True
  350. Width = 47
  351. end
  352. object ChkWeek4: TcxCheckBox
  353. Left = 224
  354. Top = 9
  355. Cursor = crHandPoint
  356. Caption = #44552
  357. ParentBackground = False
  358. ParentColor = False
  359. ParentShowHint = False
  360. Properties.Alignment = taLeftJustify
  361. ShowHint = True
  362. State = cbsChecked
  363. Style.BorderColor = 9868950
  364. Style.BorderStyle = ebsThick
  365. Style.Color = 14671839
  366. Style.LookAndFeel.Kind = lfUltraFlat
  367. Style.Shadow = False
  368. StyleDisabled.LookAndFeel.Kind = lfUltraFlat
  369. StyleFocused.LookAndFeel.Kind = lfUltraFlat
  370. StyleHot.LookAndFeel.Kind = lfUltraFlat
  371. TabOrder = 6
  372. Transparent = True
  373. Width = 47
  374. end
  375. object cxLabel3: TcxLabel
  376. Left = 61
  377. Top = 84
  378. Caption = #54364#52636#50836#51068
  379. Style.TextStyle = [fsBold]
  380. Properties.Alignment.Horz = taRightJustify
  381. Properties.Alignment.Vert = taVCenter
  382. Transparent = True
  383. AnchorX = 117
  384. AnchorY = 95
  385. end
  386. end
  387. end
  388. object BtnClose: TcxButton
  389. Left = 244
  390. Top = 180
  391. Width = 100
  392. Height = 25
  393. Cursor = crHandPoint
  394. Hint = #52712#49548
  395. Anchors = [akRight, akBottom]
  396. Caption = #52712#49548
  397. Colors.Default = 10737865
  398. TabOrder = 1
  399. Font.Charset = DEFAULT_CHARSET
  400. Font.Color = clBlack
  401. Font.Height = -13
  402. Font.Name = #47569#51008' '#44256#46357
  403. Font.Style = [fsBold]
  404. ParentFont = False
  405. OnClick = BtnCloseClick
  406. ExplicitLeft = 279
  407. ExplicitTop = 159
  408. end
  409. object BtnSearch: TcxButton
  410. Left = 106
  411. Top = 151
  412. Width = 75
  413. Height = 25
  414. Cursor = crHandPoint
  415. Hint = #51312#54924
  416. Anchors = [akTop, akRight]
  417. Caption = #51312#54924
  418. Colors.Default = 10737865
  419. TabOrder = 0
  420. Visible = False
  421. Font.Charset = DEFAULT_CHARSET
  422. Font.Color = clBlack
  423. Font.Height = -13
  424. Font.Name = #47569#51008' '#44256#46357
  425. Font.Style = [fsBold]
  426. ParentFont = False
  427. OnClick = BtnSearchClick
  428. end
  429. object lblText1: TcxLabel
  430. Left = 170
  431. Top = 152
  432. Caption = #54364#52636' '#49884#51089#49884#44033#51060' '#54364#52636' '#51333#47308#49884#44033' '#48372#45796' '#53373#45768#45796'.'
  433. Transparent = True
  434. Visible = False
  435. end
  436. object TmrShow: TTimer
  437. Enabled = False
  438. Interval = 100
  439. OnTimer = TmrShowTimer
  440. Left = 44
  441. Top = 159
  442. end
  443. end