www.pudn.com > TMIDIPlayer_w_MidiSheet.rar > MIDITest.dfm, change:2014-08-28,size:8019b


object MainForm: TMainForm 
  Left = 176 
  Top = 248 
  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 Label10: TLabel 
    Left = 308 
    Top = 124 
    Width = 25 
    Height = 16 
    Alignment = taRightJustify 
    Caption = 'Beat' 
  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 = 212 
    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 = PlainLyricsSheet 
    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 edBeat: TEdit 
    Left = 338 
    Top = 119 
    Width = 75 
    Height = 24 
    ImeName = 'Microsoft Office IME 2007' 
    ReadOnly = True 
    TabOrder = 19 
  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