mainfm.dfm

在delphi提供的控件基础上

object MainForm: TMainForm
  Left = 192
  Top = 107
  Width = 440
  Height = 143
  Caption = #23186#20307#25773#25918#22120
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object SBtnPlay: TSpeedButton
    Left = 160
    Top = 48
    Width = 23
    Height = 22
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
      00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
      70E337F3333F333337F3E0F33303333370E337F3337FF33337F3E0F333003333
      70E337F33377FF3337F3E0F33300033370E337F333777FF337F3E0F333000033
      70E337F33377773337F3E0F33300033370E337F33377733337F3E0F333003333
      70E337F33377333337F3E0F33303333370E337F33373333337F3E0F333333333
      70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
      00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
    NumGlyphs = 2
    OnClick = SBtnPlayClick
  end
  object SBtnStop: TSpeedButton
    Left = 184
    Top = 48
    Width = 23
    Height = 22
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
      00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
      70E337F33333333337F3E0F33333333370E337F333FFFFF337F3E0F330000033
      70E337F3377777F337F3E0F33000003370E337F3377777F337F3E0F330000033
      70E337F3377777F337F3E0F33000003370E337F3377777F337F3E0F330000033
      70E337F33777773337F3E0F33333333370E337F33333333337F3E0F333333333
      70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
      00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
    NumGlyphs = 2
    OnClick = SBtnStopClick
  end
  object SBtnPause: TSpeedButton
    Left = 208
    Top = 48
    Width = 23
    Height = 22
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
      00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
      70E337F33333333337F3E0F33333333370E337F333FF3FF337F3E0F330030033
      70E337F3377F77F337F3E0F33003003370E337F3377F77F337F3E0F330030033
      70E337F3377F77F337F3E0F33003003370E337F3377F77F337F3E0F330030033
      70E337F33773773337F3E0F33333333370E337F33333333337F3E0F333333333
      70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
      00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
    NumGlyphs = 2
    OnClick = SBtnPauseClick
  end
  object SBtnOpenFile: TSpeedButton
    Left = 232
    Top = 48
    Width = 23
    Height = 22
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
      55555555FFFFFFFFFF55555000000000055555577777777775F55500B8B8B8B8
      B05555775F555555575F550F0B8B8B8B8B05557F75F555555575550BF0B8B8B8
      B8B0557F575FFFFFFFF7550FBF0000000000557F557777777777500BFBFBFBFB
      0555577F555555557F550B0FBFBFBFBF05557F7F555555FF75550F0BFBFBF000
      55557F75F555577755550BF0BFBF0B0555557F575FFF757F55550FB700007F05
      55557F557777557F55550BFBFBFBFB0555557F555555557F55550FBFBFBFBF05
      55557FFFFFFFFF7555550000000000555555777777777755555550FBFB055555
      5555575FFF755555555557000075555555555577775555555555}
    NumGlyphs = 2
    OnClick = SBtnOpenFileClick
  end
  object MPlayer: TMediaPlayer
    Left = 264
    Top = 48
    Width = 253
    Height = 30
    AutoRewind = False
    Visible = False
    TabOrder = 0
    OnNotify = MPlayerNotify
  end
  object TBLength: TTrackBar
    Left = 0
    Top = 8
    Width = 425
    Height = 35
    TabOrder = 1
    OnChange = TBLengthChange
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 78
    Width = 432
    Height = 19
    Panels = <
      item
        Width = 150
      end
      item
        Text = #26354#30446
        Width = 150
      end
      item
        Width = 50
      end>
  end
  object DgOpen: TOpenDialog
    Filter = 
      'AVI'#25991#20214'(*.avi)|*.avi|Dat'#25991#20214'(*.dat)|*.dat|Wav'#25991#20214'(*.wav)|*.wav|Midi'#25991#20214'(' +
      '*.mid)|*.mid|'#25152#26377#25991#20214'(*.*)|*.*'
    Left = 120
    Top = 48
  end
  object Timer: TTimer
    Enabled = False
    OnTimer = TimerTimer
    Left = 72
    Top = 48
  end
  object MainMenu: TMainMenu
    Left = 24
    Top = 48
    object MIMedia: TMenuItem
      Caption = #23186#20307'(&M)'
      object MIAVI: TMenuItem
        Caption = 'AVI'#25991#20214'(&A)'
        OnClick = MIAVIClick
      end
      object MIDAT: TMenuItem
        Caption = 'DAT'#25991#20214'(&D)'
        OnClick = MIDATClick
      end
      object MIWav: TMenuItem
        Caption = 'WAV'#25991#20214'(&W)'
        OnClick = MIWavClick
      end
      object MIMID: TMenuItem
        Caption = 'MIDI'#25991#20214'(&M)'
        OnClick = MIMIDClick
      end
      object MIAll: TMenuItem
        Caption = #25152#26377#25991#20214'(&X)'
        Checked = True
        OnClick = MIAllClick
      end
    end
    object N1: TMenuItem
      Caption = #25511#21046'(&C)'
      object MIAutoRewind: TMenuItem
        Caption = #37325#25918
        OnClick = MIAutoRewindClick
      end
    end
  end
end