object mainForm: TmainForm
  Left = 77
  Top = 187
  ActiveControl = fileListBox
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'MIDInight Express'
  ClientHeight = 319
  ClientWidth = 589
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object filesBox: TGroupBox
    Left = 248
    Top = 0
    Width = 337
    Height = 216
    Caption = 'Files'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    object DriveComboBox1: TDriveComboBox
      Left = 8
      Top = 16
      Width = 121
      Height = 19
      DirList = DirectoryListBox1
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
    end
    object DirectoryListBox1: TDirectoryListBox
      Left = 8
      Top = 40
      Width = 121
      Height = 169
      FileList = fileListBox
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ItemHeight = 16
      ParentFont = False
      TabOrder = 1
    end
    object FilterComboBox1: TFilterComboBox
      Left = 136
      Top = 188
      Width = 153
      Height = 21
      FileList = fileListBox
      Filter = 
        'MID files (*.MID)|*.MID|PRG files (*.PRG)|*.PRG|WAV files (*.WAV' +
        ')|*.WAV|All files (*.*)|*.*'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
    end
    object fileListBox: TExtFileListBox
      Left = 136
      Top = 16
      Width = 193
      Height = 169
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ItemHeight = 16
      Mask = '*.MID'
      ParentFont = False
      ParentShowHint = False
      ShowGlyphs = True
      ShowHint = False
      TabOrder = 2
      OnChange = fileListBoxChange
      OnClick = fileListBoxChange
      ShowDate = False
      ShowTime = False
    end
    object BitBtn1: TBitBtn
      Left = 296
      Top = 188
      Width = 33
      Height = 22
      TabOrder = 4
      OnClick = BitBtn1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
        3333333777333777FF33339993707399933333773337F3777FF3399933000339
        9933377333777F3377F3399333707333993337733337333337FF993333333333
        399377F33333F333377F993333303333399377F33337FF333373993333707333
        333377F333777F333333993333101333333377F333777F3FFFFF993333000399
        999377FF33777F77777F3993330003399993373FF3777F37777F399933000333
        99933773FF777F3F777F339993707399999333773F373F77777F333999999999
        3393333777333777337333333999993333333333377777333333}
      NumGlyphs = 2
    end
  end
  object GroupBox1: TGroupBox
    Left = 4
    Top = 0
    Width = 241
    Height = 216
    Caption = 'Player control'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    object Bevel1: TBevel
      Left = 60
      Top = 16
      Width = 169
      Height = 33
    end
    object gauge: TGauge
      Left = 66
      Top = 24
      Width = 90
      Height = 17
      ForeColor = clLime
      Progress = 0
    end
    object volumeLabel: TLabel
      Left = 10
      Top = 192
      Width = 42
      Height = 13
      Caption = 'Volume'
      Enabled = False
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Bevel2: TBevel
      Left = 5
      Top = 16
      Width = 50
      Height = 193
    end
    object Bevel3: TBevel
      Left = 60
      Top = 153
      Width = 169
      Height = 56
    end
    object balanceLabel: TLabel
      Left = 121
      Top = 192
      Width = 47
      Height = 13
      Caption = 'Balance'
      Enabled = False
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object leftLabel: TLabel
      Left = 74
      Top = 192
      Width = 8
      Height = 13
      Caption = 'L'
      Enabled = False
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object rightLabel: TLabel
      Left = 206
      Top = 192
      Width = 10
      Height = 13
      Caption = 'R'
      Enabled = False
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object MediaPlayer: TMediaPlayer
      Left = 60
      Top = 56
      Width = 169
      Height = 49
      VisibleButtons = [btPlay, btPause, btStop, btPrev, btStep, btBack]
      AutoEnable = False
      TabOrder = 2
      OnClick = MediaPlayerClick
    end
    object timePanel: TPanel
      Left = 162
      Top = 24
      Width = 61
      Height = 17
      Caption = '00:00:00'
      Color = clLime
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 8
    end
    object volumeBar: TTrackBar
      Left = 9
      Top = 40
      Width = 41
      Height = 153
      Enabled = False
      Max = 20
      Orientation = trVertical
      Frequency = 1
      Position = 10
      SelEnd = 0
      SelStart = 0
      TabOrder = 1
      TickMarks = tmBoth
      TickStyle = tsAuto
      OnChange = volumeBarChange
    end
    object volBox: TEdit
      Left = 17
      Top = 24
      Width = 27
      Height = 21
      Enabled = False
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      OnChange = volBoxChange
    end
    object balanceBar: TTrackBar
      Left = 88
      Top = 160
      Width = 113
      Height = 33
      Enabled = False
      Max = 20
      Orientation = trHorizontal
      Frequency = 1
      Position = 10
      SelEnd = 0
      SelStart = 0
      TabOrder = 5
      TickMarks = tmBottomRight
      TickStyle = tsAuto
      OnChange = balanceBarChange
    end
    object leftBox: TEdit
      Left = 64
      Top = 162
      Width = 27
      Height = 21
      Enabled = False
      ReadOnly = True
      TabOrder = 6
    end
    object rightBox: TEdit
      Left = 197
      Top = 162
      Width = 27
      Height = 21
      Enabled = False
      ReadOnly = True
      TabOrder = 7
    end
    object ejectBtn: TBitBtn
      Left = 89
      Top = 109
      Width = 140
      Height = 40
      Caption = 'Eject'
      Enabled = False
      TabOrder = 4
      OnClick = ejectBtnClick
      Glyph.Data = {
        76040000424D7604000000000000760000002800000040000000200000000100
        0400000000000004000000000000000000000000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        8888888888888888888888888888888888888888888888888888888888888888
        8888888888888888888888888888888888888888888888888888888888888888
        8888888888888888888888888888888888888888888888888888888888888888
        8888888888888888888888888888888888888888888888888888888888888888
        8888888888888888888888888888888888888888888888888888888888888888
        8888888888888888888888888888888888888888888888888888888888888888
        8888888888888888888888888888888888888888888888888888888888888888
        88888888888888888888888888888888888888888888888888888888887FFFFF
        FFFFFFFFFFF8888888888888887FFFFFFFFFFFFFFFF888888888888888799999
        9999999999F8888888888888887888888888888888F888888888888888777777
        7777777777F8888888888888887777777777777777F888888888888888888888
        8888888888888888888888888888888888888888888888888888888888888888
        88888888888888888888888888888888888888888888888888888888887FFFFF
        FFFFFFFFFFF8888888888888887FFFFFFFFFFFFFFFF888888888888888799999
        9999999999F8888888888888887888888888888888F888888888888888879999
        999999999F8888888888888888878888888888888F8888888888888888887999
        99999999F8888888888888888888788888888888F88888888888888888888799
        9999999F8888888888888888888887888888888F888888888888888888888879
        999999F8888888888888888888888878888888F8888888888888888888888887
        99999F8888888888888888888888888788888F88888888888888888888888888
        7999F8888888888888888888888888887888F888888888888888888888888888
        879F8888888888888888888888888888878F8888888888888888888888888888
        8878888888888888888888888888888888788888888888888888888888888888
        8888888888888888888888888888888888888888888888888888888888888888
        8888888888888888888888888888888888888888888888888888888888888888
        8888888888888888888888888888888888888888888888888888888888888888
        8888888888888888888888888888888888888888888888888888888888888888
        8888888888888888888888888888888888888888888888888888888888888888
        8888888888888888888888888888888888888888888888888888888888888888
        8888888888888888888888888888888888888888888888888888888888888888
        8888888888888888888888888888888888888888888888888888888888888888
        8888888888888888888888888888888888888888888888888888}
      NumGlyphs = 2
    end
    object muteBtn: TBitBtn
      Left = 60
      Top = 109
      Width = 29
      Height = 40
      Caption = 'On'
      Enabled = False
      TabOrder = 3
      OnClick = muteBtnClick
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333333FFF3333F333333300033339333333337773F33733333330008033
        933333333737F7F37333333307078733333933337337373F3337333077088803
        33933337F37F337F3373333077088803393333F7337FF37F3733300777008803
        9333377F33773F7F733307088808087333337F7F337F7F7F3FFF070777080873
        99997F7F337F7F7F77770808880808733333737F337F737F3F33300888008803
        93333773F377337F73F333308807880339333337F37F337F373F333088077803
        339333373F73F37333733333087777333339333373F7F7F33F37333330807033
        933333333737F73373F3333333000333393333333377733337330000}
      Layout = blGlyphTop
      NumGlyphs = 2
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 300
    Width = 589
    Height = 19
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Panels = <>
    ParentFont = False
    SimplePanel = True
  end
  object StringGrid1: TStringGrid
    Left = 568
    Top = 256
    Width = 265
    Height = 121
    ColCount = 2
    FixedCols = 0
    RowCount = 2
    TabOrder = 5
    Visible = False
  end
  object GroupBox2: TGroupBox
    Left = 4
    Top = 216
    Width = 581
    Height = 26
    TabOrder = 2
    object songName: TLabel
      Left = 112
      Top = 9
      Width = 462
      Height = 13
      Alignment = taRightJustify
    end
    object makeWAVbox: TCheckBox
      Left = 8
      Top = 7
      Width = 97
      Height = 17
      Caption = 'Record to file'
      TabOrder = 0
    end
  end
  object GroupBox3: TGroupBox
    Left = 4
    Top = 242
    Width = 581
    Height = 57
    TabOrder = 3
    object drumBtn: TBitBtn
      Left = 102
      Top = 11
      Width = 90
      Height = 41
      Caption = 'Drums'
      TabOrder = 1
      OnClick = drumBtnClick
      Glyph.Data = {
        96010000424D9601000000000000760000002800000018000000180000000100
        0400000000002001000000000000000000000000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000FF
        FFFFFFFF0003333333333000FFFFFFF033033333333330330FFFFFF033033333
        333330330FFFFFF033033333333330330FFFFFF033033333333330330FFFFFF0
        33033333333330330FFFFFF033000000000000330FFFFFF00088888888888800
        0FFFFFF088880B88888888880FFFFFF08880B8888B0888880FFFFFFF000B8888
        88B08800FFFFFFFFF0B00000000B00FFFFFFFFFF0BFFFFFFFFFFB0FFFFFFFFF0
        BFFFFFFFFFFFFB0FFFFFFFFFFFFFFFFFFFFFFFB0FFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
    end
    object PRGbtn: TBitBtn
      Left = 197
      Top = 11
      Width = 90
      Height = 41
      Caption = 'PRGs'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      OnClick = PRGbtnClick
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555000000
        000055555F77777777775555000FFFFFFFF0555F777F5FFFF55755000F0F0000
        FFF05F777F7F77775557000F0F0FFFFFFFF0777F7F7F5FFFFFF70F0F0F0F0000
        00F07F7F7F7F777777570F0F0F0FFFFFFFF07F7F7F7F5FFFFFF70F0F0F0F0000
        00F07F7F7F7F777777570F0F0F0FFFFFFFF07F7F7F7F5FFF55570F0F0F0F000F
        FFF07F7F7F7F77755FF70F0F0F0FFFFF00007F7F7F7F5FF577770F0F0F0F00FF
        0F057F7F7F7F77557F750F0F0F0FFFFF00557F7F7F7FFFFF77550F0F0F000000
        05557F7F7F77777775550F0F0000000555557F7F7777777555550F0000000555
        55557F77777775555555000000055555555577777775555555550000}
      NumGlyphs = 2
    end
    object WAVbtn: TBitBtn
      Left = 292
      Top = 11
      Width = 90
      Height = 41
      Caption = 'WAVs'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
      OnClick = wavBtnClick
      Glyph.Data = {
        76020000424D7602000000000000760000002800000020000000200000000100
        0400000000000002000000000000000000000000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        8888888888888888888888888888888888888888888888888888888888888888
        8888888888888888888888888888888888888888888888888888888888888888
        8888888888888888888888888888888888888888888888888888877778777888
        77888778887787777788877778777777777777777777877777888F788F887F88
        888888887F88888777888F8888F8888F8888888F8887788877888F8888F88888
        888F88888888888877888F88888FFFFFFFFFFFFFFF77888877888F8888888888
        888888888888888877888F8888888888888888888888888877888F888FFFF888
        88888888888FFFF877888F887000FF88FFFFFFFF887000FF77888F870F0F0F88
        3BBB388F870F0F0F77888F8700700F883BBB388F8700700F77888F870F0F0F88
        3333388F870F0F0F77888F8770007888888888888770007877888F8877778888
        888888888877778877888F8888888888888888888888888877888F8888888888
        888888888888888877888F8888888888888888888888888777888FFFFFFFFFFF
        FFFFFFFFFFFFFFFF778888888888888888888888888888888888888888888888
        8888888888888888888888888888888888888888888888888888888888888888
        8888888888888888888888888888888888888888888888888888888888888888
        8888888888888888888888888888888888888888888888888888}
    end
    object songBtn: TBitBtn
      Left = 387
      Top = 11
      Width = 90
      Height = 41
      Caption = 'Songs'
      TabOrder = 4
      OnClick = songBtnClick
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333FF3333333333333003333333333333377F333333333333
        30003FFFFFFFFFFFF77707777777777777707777777777777777033333333333
        33307FFFFFFFFFFFFFF707777777700777707777777777777777030333333000
        33307F7FFFFFF777FFF707770077777077707777777777777777030300033330
        33307F7F777FFFF7FFF707777707777077777777777777777777033333033330
        33337FFFFF7FFFF7FFFF07777707777077777777777777777777333333000000
        3333333333777777F33333333303333033333333337FFFF7F333333333000000
        33333333337777773333333333333333333333333333333333330000}
      NumGlyphs = 2
    end
    object helpBtn: TBitBtn
      Left = 7
      Top = 11
      Width = 90
      Height = 41
      HelpContext = 500
      Caption = 'Help'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      OnClick = helpBtnClick
      Kind = bkHelp
    end
    object exitBtn: TBitBtn
      Left = 482
      Top = 11
      Width = 90
      Height = 41
      Caption = 'Exit'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 5
      OnClick = exitBtnClick
      Glyph.Data = {
        76020000424D7602000000000000760000002800000020000000200000000100
        0400000000000002000000000000000000000000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFF
        FFFFFFFFFFFFF00FFFFFFFFFF030FFFFFFFFFFFFFFFFF030FFFFFFFF0330FFFF
        FFFFFFFFFFFFF0330FFFFFFF00030FFFFFFFFFFFFFFF03000FFFFFFFFFF030FF
        FFFFFFFFFFF030FFFFFFFFFFFFFF0300F0F0F0F0F0030FFFFFFFFFFFFFFFF030
        000000000030FFFFFFFFFFFFFFFFFF0030303030300FFFFFFFFFFFFFFFFFFF03
        33333333330FFFFFFFFFFFFFFFFFFF0333333333330FFFFFFFFFFFFFFFFFF000
        333030333000FFFFFFFFFFFFFFFF00333330003333300FFFFFFFFFFFFFFF0333
        3330003333330FFFFFFFFFFFFFFF03330033333003330FFFFFFFFFFFFFFF0330
        0003330000330FFFFFFFFFFFFFFF03300003330000330FFFFFFFFFFFFFFF0033
        0033333003300FFFFFFFFFFFFFFFF003333333333300FFFFFFFFFFFFFFFFFF03
        33333333330FFFFFFFFFFFFFFFFFF030003333300030FFFFFFFFFFFFFFFF030F
        F0000000FF030FFFFFFFFFFFF00030FFFFFFFFFFFFF03000FFFFFFFFF0330FFF
        FFFFFFFFFFFF0330FFFFFFFFFF030FFFFFFFFFFFFFFF030FFFFFFFFFFFF00FFF
        FFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
      Layout = blGlyphRight
    end
  end
  object timer: TTimer
    Enabled = False
    OnTimer = timerTick
    Left = 564
  end
end