object MainForm: TMainForm
  Left = 215
  Top = 210
  BorderStyle = bsDialog
  Caption = 'kMIDIPlayer'
  ClientHeight = 576
  ClientWidth = 434
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesigned
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  object Label1: TLabel
    Left = 28
    Top = 155
    Width = 38
    Height = 16
    Alignment = taRightJustify
    Caption = 'Tracks'
  end
  object Label2: TLabel
    Left = 25
    Top = 57
    Width = 41
    Height = 16
    Alignment = taRightJustify
    Caption = 'Format'
  end
  object Label4: TLabel
    Left = 14
    Top = 25
    Width = 20
    Height = 16
    Alignment = taRightJustify
    Caption = 'File'
  end
  object Label7: TLabel
    Left = 12
    Top = 90
    Width = 54
    Height = 16
    Alignment = taRightJustify
    Caption = 'Copyright'
  end
  object Label9: TLabel
    Left = 28
    Top = 122
    Width = 38
    Height = 16
    Alignment = taRightJustify
    Caption = 'Length'
  end
  object Label3: TLabel
    Left = 376
    Top = 401
    Width = 41
    Height = 14
    Caption = 'Volume'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object Label6: TLabel
    Left = 132
    Top = 159
    Width = 207
    Height = 16
    Caption = '(Unchecked tracks won'#39't be played.)'
  end
  object lbl_Synth: TLabel
    Left = 20
    Top = 402
    Width = 62
    Height = 14
    Alignment = taRightJustify
    Caption = 'Synthesizer'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 19
    Top = 536
    Width = 276
    Height = 16
    Caption = 'Demo program to test TMIDIPlayer2 and revised'
  end
  object Label8: TLabel
    Left = 25
    Top = 553
    Width = 156
    Height = 16
    Caption = 'version of MidiSheetMusic. '
  end
  object btnOpen: TButton
    Left = 362
    Top = 21
    Width = 60
    Height = 25
    Caption = 'Open'
    TabOrder = 0
    OnClick = btnOpenClick
  end
  object btnClose: TButton
    Left = 342
    Top = 540
    Width = 75
    Height = 25
    Caption = 'Close'
    TabOrder = 1
    OnClick = btnCloseClick
  end
  object edTracks: TEdit
    Left = 72
    Top = 152
    Width = 53
    Height = 24
    ImeName = 'Microsoft Office IME 2007'
    ReadOnly = True
    TabOrder = 2
  end
  object edFormat: TEdit
    Left = 72
    Top = 54
    Width = 341
    Height = 24
    ImeName = 'Microsoft Office IME 2007'
    ReadOnly = True
    TabOrder = 3
  end
  object edLength: TEdit
    Left = 72
    Top = 119
    Width = 341
    Height = 24
    ImeName = 'Microsoft Office IME 2007'
    ReadOnly = True
    TabOrder = 4
  end
  object edFile: TEdit
    Left = 39
    Top = 22
    Width = 317
    Height = 24
    ImeName = 'Microsoft Office IME 2007'
    ReadOnly = True
    TabOrder = 5
  end
  object edCopyright: TEdit
    Left = 72
    Top = 87
    Width = 341
    Height = 24
    ImeName = 'Microsoft Office IME 2007'
    ReadOnly = True
    TabOrder = 6
  end
  object btnPlay: TButton
    Left = 28
    Top = 464
    Width = 60
    Height = 25
    Caption = 'Play'
    TabOrder = 7
    OnClick = btnPlayClick
  end
  object cbSynthesizer: TComboBox
    Left = 87
    Top = 398
    Width = 212
    Height = 24
    Style = csDropDownList
    ImeName = 'Microsoft Office IME 2007'
    TabOrder = 8
    OnChange = cbSynthesizerChange
  end
  object btnStop: TButton
    Left = 180
    Top = 464
    Width = 60
    Height = 25
    Caption = 'Stop'
    TabOrder = 9
    OnClick = btnStopClick
  end
  object PositionBar: TProgressBar
    Left = 22
    Top = 433
    Width = 340
    Height = 17
    Cursor = crHandPoint
    Align = alCustom
    Smooth = True
    TabOrder = 10
    OnMouseDown = PositionBarMouseDown
  end
  object btnPause: TButton
    Left = 104
    Top = 464
    Width = 60
    Height = 25
    Caption = 'Pause'
    TabOrder = 11
    OnClick = btnPauseClick
  end
  object edTime: TEdit
    Left = 368
    Top = 430
    Width = 42
    Height = 24
    ImeName = 'Microsoft Office IME 2007'
    ReadOnly = True
    TabOrder = 12
  end
  object tbVolume: TTrackBar
    Left = 307
    Top = 399
    Width = 65
    Height = 29
    Max = 21
    Position = 16
    TabOrder = 13
    TickStyle = tsNone
    OnChange = tbVolumeChange
  end
  object PageControl1: TPageControl
    Left = 18
    Top = 183
    Width = 395
    Height = 206
    ActivePage = TrackSheet
    TabOrder = 14
    object TrackSheet: TTabSheet
      Caption = 'Track Info'
      object TrackList: TCheckListBox
        Left = 5
        Top = 7
        Width = 376
        Height = 164
        OnClickCheck = TrackListClickCheck
        ImeName = 'Microsoft Office IME 2007'
        IntegralHeight = True
        Style = lbOwnerDrawFixed
        TabOrder = 0
      end
    end
    object PlainLyricsSheet: TTabSheet
      Caption = 'Plain Lyrics'
      ImageIndex = 2
      object PlainLyrics: TListBox
        Left = 5
        Top = 6
        Width = 376
        Height = 164
        Style = lbOwnerDrawVariable
        ImeName = 'Microsoft Office IME 2007'
        ItemHeight = 20
        TabOrder = 0
      end
    end
    object TabSheet1: TTabSheet
      Caption = 'Sync Lyrics'
      ImageIndex = 2
      object SyncLyricsList: TListBox
        Left = 5
        Top = 6
        Width = 376
        Height = 164
        Style = lbOwnerDrawVariable
        ImeName = 'Microsoft Office IME 2007'
        ItemHeight = 20
        TabOrder = 0
      end
    end
  end
  object Button1: TButton
    Left = 292
    Top = 464
    Width = 84
    Height = 25
    Caption = 'Tempo/Pitch'
    TabOrder = 15
    OnClick = Button1Click
  end
  object btnShowLyricsWindow: TButton
    Left = 14
    Top = 503
    Width = 130
    Height = 25
    Caption = 'Show Lyrics Window'
    TabOrder = 16
    OnClick = btnShowLyricsWindowClick
  end
  object btnViewChannel: TButton
    Left = 150
    Top = 503
    Width = 144
    Height = 25
    Caption = 'Show Channel Window'
    TabOrder = 17
    OnClick = btnViewChannelClick
  end
  object btnShowMusicSheet: TButton
    Left = 301
    Top = 503
    Width = 121
    Height = 25
    Caption = 'Show Music Sheet'
    TabOrder = 18
    OnClick = btnShowMusicSheetClick
  end
  object OpenDialog1: TOpenDialog
    Filter = 'MIDI File (*.MID, *.KAR)|*.mid;*.kar'
    Left = 331
    Top = 272
  end
  object XPManifest1: TXPManifest
    Left = 251
    Top = 268
  end
  object MidiFile: TMidiFile2
    Left = 147
    Top = 240
  end
  object MidiPlayer: TMidiPlayer2
    MidiFile = MidiFile
    Priority = TIME_CRITICAL
    TimerInterval = 5
    OnMidiEvent = MidiPlayerMidiEvent
    OnGotLyrics = MidiPlayerGotLyrics
    OnTempoChange = MidiPlayerTempoChange
    OnPosUpdate = MidiPlayerPosUpdate
    OnEndOfTrack = MidiPlayerTrackEnd
    OnPlayEnd = MidiPlayerPlayEnd
    Left = 75
    Top = 240
  end
  object ApplicationEvents1: TApplicationEvents
    OnMessage = ApplicationEvents1Message
    Left = 168
    Top = 312
  end
end