object PlayForm: TPlayForm Left = 83 Top = 108 BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = 'MP3Player V0.2' ClientHeight = 151 ClientWidth = 219 Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} OnCloseQuery = FormCloseQuery OnCreate = FormCreate PixelsPerInch = 120 TextHeight = 16 object Stop: TSpeedButton Left = 31 Top = 1 Width = 25 Height = 25 Hint = 'Stop' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000074120000741200001000000010000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33339999999999999993900000000000009390F777777777709390F333333333 709390F333333333709390F330000033709390F330000033709390F330000033 709390F330000033709390F330000033709390F333333333709390F333333333 709390FFFFFFFFFFF09390000000000000939999999999999993} ParentShowHint = False ShowHint = True OnClick = StopClick end object Play: TSpeedButton Left = 55 Top = 1 Width = 25 Height = 25 Hint = 'Play' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 04000000000080000000130B0000130B00001000000010000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333EEEEEEEEEEEEEEE3E0000000000000E3E0F77777777770E3E0F333333333 70E3E0F33303333370E3E0F33300333370E3E0F33300033370E3E0F333000033 70E3E0F33300033370E3E0F33300333370E3E0F33303333370E3E0F333333333 70E3E0FFFFFFFFFFF0E3E0000000000000E3EEEEEEEEEEEEEEE3} ParentShowHint = False ShowHint = True OnClick = PlayClick OnMouseDown = PlayMouseDown end object Pause: TSpeedButton Left = 79 Top = 1 Width = 25 Height = 25 Hint = 'Pause' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 04000000000080000000130B0000130B00001000000010000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333EEEEEEEEEEEEEEE3E0000000000000E3E0F77777777770E3E0F333333333 70E3E0F33333333370E3E0F33003003370E3E0F33003003370E3E0F330030033 70E3E0F33003003370E3E0F33003003370E3E0F33333333370E3E0F333333333 70E3E0FFFFFFFFFFF0E3E0000000000000E3EEEEEEEEEEEEEEE3} ParentShowHint = False ShowHint = True OnClick = PauseClick end object FastForward: TSpeedButton Left = 106 Top = 1 Width = 25 Height = 25 Hint = 'Forward' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 04000000000080000000130B0000130B00001000000010000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333EEEEEEEEEEEEEEE3E0000000000000E3E0F77777777770E3E0F333333333 70E3E0F33333333370E3E0F33003033370E3E0F33003003370E3E0F330030003 70E3E0F33003003370E3E0F33003033370E3E0F33333333370E3E0F333333333 70E3E0FFFFFFFFFFF0E3E0000000000000E3EEEEEEEEEEEEEEE3} ParentShowHint = False ShowHint = True OnClick = FastForwardClick end object Reverse: TSpeedButton Left = 2 Top = 1 Width = 25 Height = 25 Hint = 'Reverse' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 04000000000080000000130B0000130B00001000000010000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333EEEEEEEEEEEEEEE3E0000000000000E3E0F77777777770E3E0F333333333 70E3E0F33333333370E3E0F33303003370E3E0F33003003370E3E0F300030033 70E3E0F33003003370E3E0F33303003370E3E0F33333333370E3E0F333333333 70E3E0FFFFFFFFFFF0E3E0000000000000E3EEEEEEEEEEEEEEE3} ParentShowHint = False ShowHint = True OnClick = ReverseClick end object FileOpen: TSpeedButton Left = 133 Top = 0 Width = 25 Height = 25 Hint = 'Open file' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000074120000741200000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333EEEEEEEEEEEEEEE3E0000000000000E3E0F77777777770E3E0F333333333 70E3E0F33333333370E3E0F33000003370E3E0F33000003370E3E0F333333333 70E3E0F33000003370E3E0F33300033370E3E0F33330333370E3E0F333333333 70E3E0FFFFFFFFFFF0E3E0000000000000E3EEEEEEEEEEEEEEE3} ParentShowHint = False ShowHint = True OnClick = FileOpenClick OnMouseDown = FileOpenMouseDown end object EjectPic: TImage Left = 88 Top = 88 Width = 16 Height = 16 AutoSize = True Picture.Data = {} Visible = False end object FfwPic: TImage Left = 72 Top = 88 Width = 16 Height = 16 AutoSize = True Picture.Data = {} Visible = False end object PausePic: TImage Left = 56 Top = 88 Width = 16 Height = 16 AutoSize = True Picture.Data = {} Visible = False end object PauseRedPic: TImage Left = 56 Top = 104 Width = 16 Height = 16 AutoSize = True Picture.Data = {} Visible = False end object PlayPic: TImage Left = 40 Top = 88 Width = 16 Height = 16 AutoSize = True Picture.Data = {} Visible = False end object PlayRedPic: TImage Left = 40 Top = 104 Width = 16 Height = 16 AutoSize = True Picture.Data = {} Visible = False end object RewPic: TImage Left = 8 Top = 88 Width = 16 Height = 16 AutoSize = True Picture.Data = {} Visible = False end object StopPic: TImage Left = 24 Top = 88 Width = 16 Height = 16 AutoSize = True Picture.Data = {} Visible = False end object StopRedPic: TImage Left = 24 Top = 104 Width = 16 Height = 16 AutoSize = True Picture.Data = {} Visible = False end object PlayYelPic: TImage Left = 99 Top = 104 Width = 16 Height = 16 AutoSize = True Picture.Data = {} Visible = False end object StatusBar: TStatusBar Left = 0 Top = 130 Width = 219 Height = 21 Hint = 'File information' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] Panels = <> ParentFont = False ParentShowHint = False ShowHint = True SimplePanel = True SizeGrip = False end object Command: TEdit Left = 111 Top = 66 Width = 74 Height = 24 TabOrder = 0 Text = 'Command' Visible = False OnChange = CommandChange end object TrackBar: TTrackBar Left = 0 Top = 31 Width = 65 Height = 22 Hint = 'Track Position' Orientation = trHorizontal ParentShowHint = False Frequency = 1 Position = 0 SelEnd = 0 SelStart = 0 ShowHint = True TabOrder = 1 TickMarks = tmBottomRight TickStyle = tsAuto OnChange = TrackBarChange end object Volume: TTrackBar Left = 64 Top = 31 Width = 65 Height = 22 Hint = 'Volume' Max = 100 Orientation = trHorizontal ParentShowHint = False Frequency = 10 Position = 0 SelEnd = 0 SelStart = 0 ShowHint = True TabOrder = 3 TickMarks = tmBottomRight TickStyle = tsAuto OnChange = VolumeChange end object DdeClientConv1: TDdeClientConv Left = 7 Top = 56 end object DdeTopic: TDdeServerConv Left = 75 Top = 58 end object DdeItem: TDdeServerItem ServerConv = DdeTopic OnChange = DdeItemChange Left = 43 Top = 58 end object TrayIcon1: TTrayIcon Active = False ShowDesigning = False ToolTip = 'Mp3Player by Paul P.M. Beuger' Left = 137 Top = 29 end end