FrmVmsMsgF.dfm 2.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109
  1. object FrmVmsMsg: TFrmVmsMsg
  2. Left = 0
  3. Top = 0
  4. BorderStyle = bsToolWindow
  5. Caption = 'VMS '#47700#49884#51648
  6. ClientHeight = 158
  7. ClientWidth = 382
  8. Color = clBtnFace
  9. Font.Charset = DEFAULT_CHARSET
  10. Font.Color = clWindowText
  11. Font.Height = -11
  12. Font.Name = #47569#51008' '#44256#46357
  13. Font.Style = []
  14. OldCreateOrder = False
  15. Position = poDesigned
  16. OnClose = FormClose
  17. OnDestroy = FormDestroy
  18. OnShow = FormShow
  19. PixelsPerInch = 96
  20. TextHeight = 13
  21. object PnlVmsMsgDisp: TPanel
  22. Left = 0
  23. Top = 0
  24. Width = 382
  25. Height = 141
  26. Align = alClient
  27. BevelOuter = bvNone
  28. Color = clBlack
  29. Font.Charset = DEFAULT_CHARSET
  30. Font.Color = clWhite
  31. Font.Height = -12
  32. Font.Name = #47569#51008' '#44256#46357
  33. Font.Style = [fsBold]
  34. ParentBackground = False
  35. ParentFont = False
  36. TabOrder = 0
  37. object ImgForm: TImage
  38. Left = 0
  39. Top = 0
  40. Width = 382
  41. Height = 141
  42. Align = alClient
  43. Center = True
  44. Stretch = True
  45. ExplicitLeft = 243
  46. ExplicitTop = 28
  47. ExplicitWidth = 42
  48. ExplicitHeight = 28
  49. end
  50. end
  51. object PnlOffer: TPanel
  52. Left = 0
  53. Top = 141
  54. Width = 382
  55. Height = 17
  56. Align = alBottom
  57. Alignment = taLeftJustify
  58. BevelOuter = bvNone
  59. Caption = ' '#51228#44277#49884#44033':'
  60. TabOrder = 1
  61. object LblTicker: TPanel
  62. Left = 362
  63. Top = 0
  64. Width = 20
  65. Height = 17
  66. Align = alRight
  67. BevelOuter = bvNone
  68. Caption = '- '
  69. TabOrder = 0
  70. end
  71. end
  72. object lblTm: TcxLabel
  73. Left = 68
  74. Top = 78
  75. Caption = #51228#44277#49884#44033
  76. Transparent = True
  77. Visible = False
  78. end
  79. object TmrShow: TTimer
  80. Enabled = False
  81. Interval = 500
  82. OnTimer = TmrShowTimer
  83. Left = 100
  84. Top = 4
  85. end
  86. object TmrVmsMsgDisp: TTimer
  87. Enabled = False
  88. Interval = 300
  89. OnTimer = TmrVmsMsgDispTimer
  90. Left = 56
  91. Top = 40
  92. end
  93. object pADO: TADOQuery
  94. Parameters = <>
  95. Left = 180
  96. Top = 8
  97. end
  98. object TmrTicker: TTimer
  99. Enabled = False
  100. OnTimer = TmrTickerTimer
  101. Left = 307
  102. Top = 44
  103. end
  104. object FFPlayer1: TFFPlayer
  105. OnState = FFPlayer1State
  106. Left = 152
  107. Top = 72
  108. end
  109. end