mediaunit1.dfm

program nghe nhac with goodskin

object Form1: TForm1
  Left = 280
  Top = 149
  Hint = 'Open Your Media File...'
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsNone
  Caption = 'Media Walker'
  ClientHeight = 362
  ClientWidth = 304
  Color = clInactiveCaption
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000050000000D00000990000000000000000550
    0500D0D00D0900000000CCC02000050555000DDDD0096000000CC00020000505
    50500D0DD0096000000C00002000050550500D0D00096000000C000200000505
    50500DDD00090000000C000200000505505000DD00090000000C000200000505
    5005000D00090000000CC0020000050500050DD000090000000C0C0200000500
    0005000000090000000C0C02200005000005000000090000000CCC0222000500
    00050000000900000000CC020020050000050000009000000000000200000500
    0005500000900000000000200000000000000000009000000000000000000000
    0090008000000055000000000000000000900888000500500040000000000000
    0090080088055500044011011000000000900800000565000400111100000009
    0090880000056500040010110000090909008880000565000400110100000909
    0900888000056500400001010000090999008868000565004000011000000909
    9900886800005500400000100000090999000888800055004000010000000099
    9900088880005500400010000000009999000000000055000000100000000099
    0900000000000500400000000000009909000000000005000000000000000009
    000000000000050000000000000000000000000000000500000000000000FFFF
    EFFFBFBE69FF9B5AEB17A3865A77A5A65AF7A5AE56EFA58ECEEFA5CECEEFA6EE
    CE6FAE9ED6AFBEFED6A7BEFED623BEFEDF2DBEFDBFEFBE7DBFDFFFFDFFFFFDDF
    CFFFFD8EDDFFFDB23927FDBE3B0FED3E3B4FAB1E3B2FAB1E37AFA30E379FA30F
    37DFA38737BFC387377FC3FF3F7FCBFFB7FFCBFFBFFFEFFFBFFFFFFFBFFF}
  OldCreateOrder = False
  Position = poScreenCenter
  ShowHint = True
  Visible = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 8
    Top = 16
    Width = 289
    Height = 161
    Shape = bsFrame
    Style = bsRaised
  end
  object Bevel2: TBevel
    Left = 8
    Top = 184
    Width = 289
    Height = 35
    ParentShowHint = False
    Shape = bsFrame
    ShowHint = False
  end
  object Label3: TLabel
    Left = 16
    Top = 96
    Width = 79
    Height = 13
    Caption = 'Media Walker'
    Constraints.MaxWidth = 273
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label9: TLabel
    Left = 16
    Top = 120
    Width = 39
    Height = 13
    Caption = 'Status : '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label10: TLabel
    Left = 54
    Top = 120
    Width = 49
    Height = 13
    Caption = 'Unknown.'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label11: TLabel
    Left = 17
    Top = 70
    Width = 44
    Height = 13
    Caption = 'Seek Bar'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Gauge2: TGauge
    Left = 16
    Top = 144
    Width = 273
    Height = 25
    Hint = 'Shows You the Completion...'
    BackColor = clBlack
    BorderStyle = bsNone
    ForeColor = clBackground
    Kind = gkPie
    MaxValue = 0
    Progress = 0
  end
  object Label1: TLabel
    Left = 3
    Top = 0
    Width = 300
    Height = 13
    Hint = 'Click'
    Constraints.MinWidth = 300
    OnMouseDown = Label1MouseDown
    OnStartDrag = Label1StartDrag
  end
  object SpeedButton4: TSpeedButton
    Left = 14
    Top = 192
    Width = 25
    Height = 22
    AllowAllUp = True
    Flat = True
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033BBBBBBBBBB
      BB33337777777777777F33BB00BBBBBBBB33337F77333333F37F33BB0BBBBBB0
      BB33337F73F33337FF7F33BBB0BBBB000B33337F37FF3377737F33BBB00BB00B
      BB33337F377F3773337F33BBBB0B00BBBB33337F337F7733337F33BBBB000BBB
      BB33337F33777F33337F33EEEE000EEEEE33337F3F777FFF337F33EE0E80000E
      EE33337F73F77773337F33EEE0800EEEEE33337F37377F33337F33EEEE000EEE
      EE33337F33777F33337F33EEEEE00EEEEE33337F33377FF3337F33EEEEEE00EE
      EE33337F333377F3337F33EEEEEE00EEEE33337F33337733337F33EEEEEEEEEE
      EE33337FFFFFFFFFFF7F33EEEEEEEEEEEE333377777777777773}
    NumGlyphs = 2
    OnClick = SpeedButton4Click
  end
  object Label2: TLabel
    Left = 168
    Top = 70
    Width = 41
    Height = 13
    Caption = 'Volume :'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object LoadList: TSpeedButton
    Left = 48
    Top = 192
    Width = 23
    Height = 22
    Hint = 'Load  List.'
    AllowAllUp = True
    Flat = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -4
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
      5555555555555555555555555555555555555555555555555555555555555555
      555555555555555555555555555555555555555FFFFFFFFFF555550000000000
      55555577777777775F55500B8B8B8B8B05555775F555555575F550F0B8B8B8B8
      B05557F75F555555575F50BF0B8B8B8B8B0557F575FFFFFFFF7F50FBF0000000
      000557F557777777777550BFBFBFBFB0555557F555555557F55550FBFBFBFBF0
      555557F555555FF7555550BFBFBF00055555575F555577755555550BFBF05555
      55555575FFF75555555555700007555555555557777555555555555555555555
      5555555555555555555555555555555555555555555555555555}
    NumGlyphs = 2
    ParentFont = False
    OnClick = EditClick
  end
  object OpenFiles: TSpeedButton
    Left = 80
    Top = 192
    Width = 23
    Height = 22
    Hint = 'Add to Your List.'
    AllowAllUp = True
    Flat = True
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      33333333333FFFFFFFFF333333000000000033333377777777773333330FFFFF
      FFF03333337F333333373333330FFFFFFFF03333337F3FF3FFF73333330F00F0
      00F03333F37F773777373330330FFFFFFFF03337FF7F3F3FF3F73339030F0800
      F0F033377F7F737737373339900FFFFFFFF03FF7777F3FF3FFF70999990F00F0
      00007777777F7737777709999990FFF0FF0377777777FF37F3730999999908F0
      F033777777777337F73309999990FFF0033377777777FFF77333099999000000
      3333777777777777333333399033333333333337773333333333333903333333
      3333333773333333333333303333333333333337333333333333}
    NumGlyphs = 2
    OnClick = OpenFilesClick
  end
  object SpeedButton8: TSpeedButton
    Left = 112
    Top = 192
    Width = 23
    Height = 22
    Hint = 'Save List.'
    AllowAllUp = True
    Flat = True
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      333333FFFFFFFFFFFFF33000077777770033377777777777773F000007888888
      00037F3337F3FF37F37F00000780088800037F3337F77F37F37F000007800888
      00037F3337F77FF7F37F00000788888800037F3337777777337F000000000000
      00037F3FFFFFFFFFFF7F00000000000000037F77777777777F7F000FFFFFFFFF
      00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
      00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
      00037F7F333333337F7F000FFFFFFFFF07037F7F33333333777F000FFFFFFFFF
      0003737FFFFFFFFF7F7330099999999900333777777777777733}
    NumGlyphs = 2
    OnClick = SpeedButton3Click
  end
  object SpeedButton9: TSpeedButton
    Left = 240
    Top = 192
    Width = 23
    Height = 22
    Hint = 'About.'
    Flat = True
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
      333333333337FF3333333333330003333333333333777F333333333333080333
      3333333F33777FF33F3333B33B000B33B3333373F777773F7333333BBB0B0BBB
      33333337737F7F77F333333BBB0F0BBB33333337337373F73F3333BBB0F7F0BB
      B333337F3737F73F7F3333BB0FB7BF0BB3333F737F37F37F73FFBBBB0BF7FB0B
      BBB3773F7F37337F377333BB0FBFBF0BB333337F73F333737F3333BBB0FBF0BB
      B3333373F73FF7337333333BBB000BBB33333337FF777337F333333BBBBBBBBB
      3333333773FF3F773F3333B33BBBBB33B33333733773773373333333333B3333
      333333333337F33333333333333B333333333333333733333333}
    NumGlyphs = 2
    OnClick = SpeedButton5Click