object PlayDlg: TPlayDlg Left = 0 Top = 20 BorderIcons = [] BorderStyle = bsDialog Caption = 'Play' ClientHeight = 167 ClientWidth = 217 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] OnActivate = FormActivate OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object gauge: TGauge Left = 16 Top = 16 Width = 105 Height = 17 Color = clLime ForeColor = clLime ParentColor = False Progress = 10 end object Bevel1: TBevel Left = 8 Top = 8 Width = 201 Height = 33 end object MediaPlayer2: TMediaPlayer Left = 24 Top = 48 Width = 169 Height = 41 EnabledButtons = [] VisibleButtons = [btPlay, btPause, btStop, btPrev, btStep, btBack] AutoEnable = False TabOrder = 0 OnClick = MediaPlayer2Click OnNotify = onNotify end object BitBtn1: TBitBtn Left = 8 Top = 128 Width = 201 Height = 33 Caption = 'Stop && Close' Default = True TabOrder = 1 OnClick = BitBtn1Click Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333FFFFF3333333333999993333333333F77777FFF333333999999999 33333337777FF377FF3333993370739993333377FF373F377FF3399993000339 993337777F777F3377F3393999707333993337F77737333337FF993399933333 399377F3777FF333377F993339903333399377F33737FF33377F993333707333 399377F333377FF3377F993333101933399377F333777FFF377F993333000993 399377FF3377737FF7733993330009993933373FF3777377F7F3399933000399 99333773FF777F777733339993707339933333773FF7FFF77333333999999999 3333333777333777333333333999993333333333377777333333} NumGlyphs = 2 end object timePanel: TPanel Left = 128 Top = 16 Width = 73 Height = 17 Caption = '00:00:00' Color = clLime TabOrder = 2 end object statusPanel: TPanel Left = 8 Top = 96 Width = 201 Height = 25 Alignment = taRightJustify BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 3 object Label1: TLabel Left = 8 Top = 7 Width = 23 Height = 13 Caption = 'MCI' end end object Timer1: TTimer Interval = 100 OnTimer = Timer1Timer Left = 192 end end