mpform.dfm

Delphi 的媒体播放器的例子

object DemoForm: TDemoForm
  Left = 0
  Top = 0
  BorderIcons = [biSystemMenu]
  Caption = 'Dr. SAGURA media player'
  ClientHeight = 255
  ClientWidth = 720
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  Icon.Data = {
    0000010001001010100000000000280100001600000028000000100000002000
    00000100040000000000C0000000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    000000000000000004440000000000000C440000000000000C44000000000000
    0FFF0000000000000FFF0000000000000BBB000000000000BBBB000000000000
    0000000000000000088880000000000000000000770000088FFF888077000007
    77778880880007777777788008000FFFFFFF7880000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000}
  OldCreateOrder = False
  ShowHint = True
  OnClose = FormClose
  OnDestroy = FormDestroy
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object AboutLbl: TLabel
    Left = 0
    Top = 0
    Width = 385
    Height = 66
    Alignment = taCenter
    AutoSize = False
    Caption = 'AboutLbl'
    ParentShowHint = False
    ShowHint = True
    WordWrap = True
  end
  object InfoLbl: TLabel
    Left = 0
    Top = 112
    Width = 385
    Height = 89
    Alignment = taCenter
    AutoSize = False
    BiDiMode = bdLeftToRight
    Caption = 'InfoLbl'
    ParentBiDiMode = False
    ParentShowHint = False
    ShowHint = True
    WordWrap = True
  end
  object PlayBtn: TButton
    Left = 88
    Top = 72
    Width = 70
    Height = 25
    Caption = 'Play'
    Default = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    OnClick = PlayBtnClick
  end
  object PauseBtn: TButton
    Left = 160
    Top = 72
    Width = 70
    Height = 25
    Caption = 'Pause'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    OnClick = PauseBtnClick
  end
  object StopBtn: TButton
    Left = 232
    Top = 72
    Width = 70
    Height = 25
    Cancel = True
    Caption = 'Stop'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold, fsItalic]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
    OnClick = StopBtnClick
  end
  object VideoPnl: TPanel
    Left = 391
    Top = 0
    Width = 305
    Height = 233
    BevelWidth = 5
    BorderWidth = 5
    BorderStyle = bsSingle
    Caption = 'Video'
    Color = clBlue
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
  end
  object VolumeBar: TScrollBar
    Left = 702
    Top = 0
    Width = 10
    Height = 233
    Hint = 'Sound Volume'
    Kind = sbVertical
    LargeChange = 1024
    Max = 65535
    PageSize = 256
    ParentShowHint = False
    Position = 65535
    ShowHint = True
    SmallChange = 64
    TabOrder = 7
    OnChange = VolumeBarChange
  end
  object PosBar: TScrollBar
    Left = 391
    Top = 239
    Width = 305
    Height = 10
    Hint = 'Video Position'
    PageSize = 0
    ParentShowHint = False
    ShowHint = True
    TabOrder = 8
    OnChange = PosBarChange
  end
  object FullBtn: TButton
    Left = 304
    Top = 72
    Width = 70
    Height = 25
    Caption = 'Full Screen'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 5
    OnClick = FullBtnClick
  end
  object RegisterBtn: TButton
    Left = 24
    Top = 207
    Width = 193
    Height = 25
    Caption = 'Register file type for Media Player'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 6
    OnClick = RegisterBtnClick
  end
  object OpenBtn: TButton
    Left = 16
    Top = 72
    Width = 70
    Height = 25
    Caption = 'Open'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    OnClick = OpenBtnClick
  end
  object ReplaceBtn: TButton
    Left = 216
    Top = 207
    Width = 169
    Height = 25
    Caption = 'Replace Windows Media Player'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 9
    OnClick = ReplaceBtnClick
  end
  object Timer1: TTimer
    Interval = 100
    OnTimer = Timer1Timer
    Top = 224
  end
  object OpenMediaFile: TOpenDialog
    DefaultExt = 
      'All media files|*.wav;*.mpa;*.mp2;*.mp3;*.au;*.aif;*.aiff;*.snd;' +
      '*.avi;*.qt;*.mov;*.mpg;*.mpeg;*.m1v;*.asf;*.wma;*.wmv;*.mid;*.mi' +
      'di;*.rmi;*.dat|Video Files (*.avi; *.qt; *.mov; *.mpg; *.mpeg; *' +
      '.m1v)|*.avi;*.qt;*.mov;*.mpg;*.mpeg;*.m1v;|Audio files (*.wav; *' +
      '.mpa; *.mp2; *.mp3; *.au; *.aif; *.aiff; *.snd)|*.wav;*.mpa;*.mp' +
      '2;*.mp3;*.au;*.aif;*.aiff;*.snd;|WMT Files (*.asf; *.wma; *.wmv)' +
      '|*.asf;*.wma;*.wmv;|MIDI Files (*.mid, *.midi, *.rmi)|*.mid;*.mi' +
      'di;*.rmi;|All Files (*.*)|*.*'
    Options = [ofEnableSizing]
    Left = 32
    Top = 224
  end
end