mediaunit1.dfm

program nghe nhac with goodskin

  end
  object SpeedButton1: TSpeedButton
    Left = 144
    Top = 192
    Width = 23
    Height = 22
    Hint = 'Edit your List.'
    Flat = True
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
      000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
      00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
      F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
      0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
      FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
      FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
      0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
      00333377737FFFFF773333303300000003333337337777777333}
    NumGlyphs = 2
    OnClick = SpeedButton1Click
  end
  object SpeedButton10: TSpeedButton
    Left = 208
    Top = 192
    Width = 23
    Height = 22
    Hint = 'Help.'
    Flat = True
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333CCCCC33
      33333FFFF77777FFFFFFCCCCCC808CCCCCC3777777F7F777777F008888070888
      8003777777777777777F0F0770F7F0770F0373F33337F333337370FFFFF7FFFF
      F07337F33337F33337F370FFFB99FBFFF07337F33377F33337F330FFBF99BFBF
      F033373F337733333733370BFBF7FBFB0733337F333FF3337F33370FBF98BFBF
      0733337F3377FF337F333B0BFB990BFB03333373FF777FFF73333FB000B99000
      B33333377737777733333BFBFBFB99FBF33333333FF377F333333FBF99BF99BF
      B333333377F377F3333333FB99FB99FB3333333377FF77333333333FB9999FB3
      333333333777733333333333FBFBFB3333333333333333333333}
    NumGlyphs = 2
    OnClick = SpeedButton10Click
  end
  object SkinBtn: TSpeedButton
    Left = 176
    Top = 192
    Width = 23
    Height = 22
    Hint = 'Set skin.'
    Flat = True
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333FFFFF3333333333000003333333333F777773FF333333003333300
      33333337733333773F33330333333333033333733FFFFFFF73F3303300000003
      303337F37777777337F3303330CCC0333033373337777733373F0333330C0333
      33037F33337773FFF37F03333330300033037F3FFFF73777FF7F0300000307B7
      03037F77777F77777F7F030999030BBB03037F77777F77777F7F0309990307B7
      03037377777F7777737330099903300030333777777F377737F3300000033333
      3033377777733333373333033333333303333373FF33333F7333333003333300
      3333333773FFFF77333333333000003333333333377777333333}
    NumGlyphs = 2
    OnClick = SkinBtnClick
  end
  object SpeedButton2: TSpeedButton
    Left = 272
    Top = 192
    Width = 23
    Height = 22
    Hint = 'Exit.'
    Flat = True
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
      33333337777FF377FF3333993370739993333377FF373F377FF3399993000339
      993337777F777F3377F3393999707333993337F77737333337FF993399933333
      399377F3777FF333377F993339903333399377F33737FF33377F993333707333
      399377F333377FF3377F993333101933399377F333777FFF377F993333000993
      399377FF3377737FF7733993330009993933373FF3777377F7F3399933000399
      99333773FF777F777733339993707339933333773FF7FFF77333333999999999
      3333333777333777333333333999993333333333377777333333}
    NumGlyphs = 2
    OnClick = SpeedButton2Click
  end
  object MediaPlayer1: TMediaPlayer
    Left = 16
    Top = 24
    Width = 271
    Height = 33
    Cursor = crHandPoint
    Hint = 'Enjoy the Media Walker...'
    ColoredButtons = [btPlay, btPause, btStop, btPrev, btStep, btBack]
    AutoEnable = False
    TabOrder = 0
    OnClick = MediaPlayer1Click
  end
  object TrackBar1: TTrackBar
    Left = 64
    Top = 64
    Width = 81
    Height = 25
    Cursor = crHandPoint
    Hint = 'Select Position...'
    Enabled = False
    Orientation = trHorizontal
    Frequency = 1
    Position = 0
    SelEnd = 0
    SelStart = 0
    TabOrder = 1
    TickMarks = tmBottomRight
    TickStyle = tsNone
    OnChange = TrackBar1Change
  end
  object ListBox1: TListBox
    Left = 8
    Top = 224
    Width = 289
    Height = 129
    Cursor = crHandPoint
    Hint = 'Click to Play/Edit...'
    BevelInner = bvLowered
    BevelKind = bkSoft
    BevelOuter = bvRaised
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 13
    ParentColor = True
    ParentFont = False
    TabOrder = 2
    OnClick = ListBox1Click
  end
  object TrackBar2: TTrackBar
    Left = 208
    Top = 64
    Width = 73
    Height = 25
    Cursor = crHandPoint
    Hint = 'Adjust Volume...'
    Max = 20
    Orientation = trHorizontal
    Frequency = 1
    Position = 10
    SelEnd = 0
    SelStart = 0
    TabOrder = 3
    TickMarks = tmBottomRight
    TickStyle = tsNone
    OnChange = TrackBar2Change
  end
  object MuteBtn: TCheckBox
    Left = 240
    Top = 118
    Width = 45
    Height = 17
    Caption = 'Mute'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = MuteBtnClick
  end
  object ListBox2: TListBox
    Left = 224
    Top = 256
    Width = 25
    Height = 25
    ItemHeight = 13
    TabOrder = 5
    Visible = False
  end
  object Button1: TButton
    Left = 16
    Top = 92
    Width = 273
    Height = 25
    Hint = 'Click to REGISTER your copy.'
    Caption = '<< U N R E G I S T E R E D    C O P Y  >>'
    Default = True
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -13
    Font.Name = 'Sylfaen'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 6
    OnClick = Button1Click
  end
  object Key: TEdit
    Left = 168
    Top = 232
    Width = 121
    Height = 21
    TabOrder = 7
    Visible = False
  end
  object Auto: TCheckBox
    Left = 184
    Top = 118
    Width = 49
    Height = 17
    Caption = 'Auto'
    Checked = True
    State = cbChecked
    TabOrder = 8
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = '*.*'
    Filter = 'M P 3|*.mp3|A V I|*.avi|M P G|*.mpg|M P E G|*.mpeg|W A V E|*.wav'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofShareAware, ofEnableSizing]
    Title = 'Open Media File.'
    Left = 128
    Top = 256
  end
  object Skin: TColorDialog
    Ctl3D = True
    Color = clWhite
    Left = 160
    Top = 256
  end
  object ApplicationEvents1: TApplicationEvents
    OnException = ApplicationEvents1Exception
    Left = 192
    Top = 256
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 256
    Top = 296
  end
  object ListDialog: TOpenDialog
    DefaultExt = '*.*'
    Filter = 'M P 3|*.mp3|A V I|*.avi|M P G|*.mpg|M P E G|*.mpeg|W A V E|*.wav'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofShareAware, ofEnableSizing]
    Title = 'Add to your List.'
    Left = 216
    Top = 296
  end
  object Timer3: TTimer
    Enabled = False
    Interval = 10
    OnTimer = Timer3Timer
    Left = 256
    Top = 256
  end
  object SaveList: TSaveDialog
    DefaultExt = '*.mwl'
    Filter = 'MediaWalker List file.|*.mwl'
    Title = 'Save List.'
    Left = 176
    Top = 304
  end
  object LoadListDia: TOpenDialog
    DefaultExt = '*.mwl'
    Filter = 'MediaWalker List file.|*.mwl'
    Title = 'Load List.'
    Left = 136
    Top = 304
  end
end