mp3demo.dfm

mp3演示程序

object Form1: TForm1
  Left = 234
  Top = 356
  BorderStyle = bsNone
  Caption = 'MCI MP3 Player Demo'
  ClientHeight = 105
  ClientWidth = 402
  Color = 10526880
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PopupMenu = PopupMenu1
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel3: TBevel
    Left = 0
    Top = 21
    Width = 402
    Height = 84
    Align = alClient
    Style = bsRaised
  end
  object Bevel1: TBevel
    Left = 271
    Top = 26
    Width = 129
    Height = 74
  end
  object PlayButton: TSpeedButton
    Left = 304
    Top = 32
    Width = 62
    Height = 29
    Caption = 'Play'
    Enabled = False
    Flat = True
    Font.Charset = ANSI_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'Impact'
    Font.Style = []
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000C40E0000C40E00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      33333333333333333333CCCCCCCCCCCCCCC333FFFFFFFFFFFFF3C00000000000
      00C337777777777777F3C0F77777777770C337F33333333337F3C0F333333333
      70C337F3333F333337F3C0F33303333370C337F3337FF33337F3C0F333003333
      70C337F33377FF3337F3C0F33300033370C337F333777FF337F3C0F333000033
      70C337F33377773337F3C0F33300033370C337F33377733337F3C0F333003333
      70C337F33377333337F3C0F33303333370C337F33373333337F3C0F333333333
      70C337F33333333337F3C0FFFFFFFFFFF0C337FFFFFFFFFFF7F3C00000000000
      00C33777777777777733CCCCCCCCCCCCCCC33333333333333333}
    NumGlyphs = 2
    ParentFont = False
    OnClick = PlayButtonClick
  end
  object PauseButton: TSpeedButton
    Left = 274
    Top = 64
    Width = 61
    Height = 29
    Caption = 'Pause'
    Enabled = False
    Flat = True
    Font.Charset = ANSI_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'Impact'
    Font.Style = []
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000C40E0000C40E00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      33333333333333333333CCCCCCCCCCCCCCC333FFFFFFFFFFFFF3C00000000000
      00C337777777777777F3C0F77777777770C337F33333333337F3C0F333333333
      70C337F33333333337F3C0F33333333370C337F333FF3FF337F3C0F330030033
      70C337F3377F77F337F3C0F33003003370C337F3377F77F337F3C0F330030033
      70C337F3377F77F337F3C0F33003003370C337F3377F77F337F3C0F330030033
      70C337F33773773337F3C0F33333333370C337F33333333337F3C0F333333333
      70C337F33333333337F3C0FFFFFFFFFFF0C337FFFFFFFFFFF7F3C00000000000
      00C33777777777777733CCCCCCCCCCCCCCC33333333333333333}
    NumGlyphs = 2
    ParentFont = False
    OnClick = PauseButtonClick
  end
  object StopButton: TSpeedButton
    Left = 335
    Top = 64
    Width = 61
    Height = 29
    Caption = 'Stop'
    Enabled = False
    Flat = True
    Font.Charset = ANSI_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'Impact'
    Font.Style = []
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000C40E0000C40E00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      33333333333333333333CCCCCCCCCCCCCCC333FFFFFFFFFFFFF3C00000000000
      00C337777777777777F3C0F77777777770C337F33333333337F3C0F333333333
      70C337F33333333337F3C0F33333333370C337F333FFFFF337F3C0F330000033
      70C337F3377777F337F3C0F33000003370C337F3377777F337F3C0F330000033
      70C337F3377777F337F3C0F33000003370C337F3377777F337F3C0F330000033
      70C337F33777773337F3C0F33333333370C337F33333333337F3C0F333333333
      70C337F33333333337F3C0FFFFFFFFFFF0C337FFFFFFFFFFF7F3C00000000000
      00C33777777777777733CCCCCCCCCCCCCCC33333333333333333}
    Layout = blGlyphRight
    NumGlyphs = 2
    ParentFont = False
    OnClick = StopButtonClick
  end
  object RewButton: TSpeedButton
    Left = 274
    Top = 32
    Width = 30
    Height = 29
    Enabled = False
    Flat = True
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000C40E0000C40E00001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      33333333333333333333CCCCCCCCCCCCCCC333FFFFFFFFFFFFF3C00000000000
      00C337777777777777F3C0F77777777770C337F33333333337F3C0F333333333
      70C337F33333333337F3C0F33333333370C337F3333F333F37F3C0F333033303
      70C337F3337F337F37F3C0F33003300370C337F3377F377F37F3C0F300030003
      70C337F3777F777F37F3C0F33003300370C337F3377F377F37F3C0F333033303
      70C337F33373337337F3C0F33333333370C337F33333333337F3C0F333333333
      70C337F33333333337F3C0FFFFFFFFFFF0C337FFFFFFFFFFF7F3C00000000000
      00C33777777777777733CCCCCCCCCCCCCCC33333333333333333}
    NumGlyphs = 2
    OnClick = RewButtonClick
  end
  object FFButton: TSpeedButton
    Left = 366
    Top = 32
    Width = 30
    Height = 29
    Enabled = False
    Flat = True
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000C40E0000C40E00001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      33333333333333333333CCCCCCCCCCCCCCC333FFFFFFFFFFFFF3C00000000000
      00C337777777777777F3C0F77777777770C337F33333333337F3C0F333333333
      70C337F33333333337F3C0F33333333370C337F33F333F3337F3C0F303330333
      70C337F37FF37FF337F3C0F30033003370C337F377FF77FF37F3C0F300030003
      70C337F37773777337F3C0F30033003370C337F37733773337F3C0F303330333
      70C337F37333733337F3C0F33333333370C337F33333333337F3C0F333333333
      70C337F33333333337F3C0FFFFFFFFFFF0C337FFFFFFFFFFF7F3C00000000000
      00C33777777777777733CCCCCCCCCCCCCCC33333333333333333}
    Layout = blGlyphRight
    NumGlyphs = 2
    OnClick = FFButtonClick
  end
  object TrackPanel: TPanel
    Left = 3
    Top = 25
    Width = 265
    Height = 79
    Color = 12566463
    TabOrder = 0
    OnMouseDown = CaptionPanelMouseDown
    object OpenButton: TSpeedButton
      Left = 232
      Top = 4
      Width = 27
      Height = 23
      Flat = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Impact'
      Font.Style = []
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        04000000000080000000C40E0000C40E00001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        88888888888888888888FFFFFFFFFFF88888FF666666666F8888FCF666666666
        F888FCCF666666666F88FCCCF666666666F8FCCCCFFFFFFFFFFFFCCCCCCCCCF8
        8888FCCCCCCCCCF88888FCCCFFFFFFF888888FFF88888888FFF8888888888888
        8FF888888888F888F8F8888888888FFF88888888888888888888}
      ParentFont = False
      OnClick = OpenButtonClick
    end
    object Image1: TImage
      Left = 233
      Top = 41
      Width = 16
      Height = 16
      AutoSize = True
      Picture.Data = {
        055449636F6E0000010001001010100000000000280100001600000028000000
        10000000200000000100040000000000C0000000000000000000000000000000
        0000000000000000000080000080000000808000800000008000800080800000
        80808000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000
        FFFFFF0000000000000000000000000000000000000000000000000000000000
        8000000000000000F00000000000000000000000008000000000000000F00000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        00000000FFFF0000FF1F0000FE0F0000FE0F0000C60F0000830F000083EF0000
        83EF0000C3EF0000FBEF0000FB8F0000FB0F0000F80F0000F83F0000F8FF0000
        F9FF0000}
    end
    object Image3: TImage
      Left = 243
      Top = 29
      Width = 16
      Height = 16
      AutoSize = True
      Picture.Data = {
        055449636F6E0000010001001010100000000000280100001600000028000000
        10000000200000000100040000000000C0000000000000000000000000000000
        0000000000000000000080000080000000808000800000008000800080800000
        80808000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000