realplayer.~dfm

关于DEPHI7.0的播放器管理系统源代码

object FormRealPlayer: TFormRealPlayer
  Left = 213
  Top = 78
  Width = 537
  Height = 397
  Caption = #20248#21033#23186#20307#25773#25918#31995#32479'V1.1'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PopupMenu = PopupMenu1
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 312
    Width = 529
    Height = 55
    Align = alBottom
    TabOrder = 0
    object Cmb1: TComboBox
      Left = 104
      Top = 6
      Width = 201
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ItemHeight = 12
      ParentColor = True
      TabOrder = 0
    end
    object BTNAdd: TButton
      Left = 7
      Top = 5
      Width = 89
      Height = 22
      Action = ActionOpen
      Caption = #25171#24320#25991#20214'(&O)'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
    end
    object BTN_AddSite: TButton
      Left = 7
      Top = 29
      Width = 89
      Height = 22
      Caption = #26032#22686#32593#22336'(&A)'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnClick = ActionSiteExecute
    end
    object Cmb2: TComboBox
      Left = 104
      Top = 30
      Width = 201
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ItemHeight = 12
      ParentColor = True
      TabOrder = 3
    end
    object BTN_PlayFile: TButton
      Left = 312
      Top = 5
      Width = 60
      Height = 22
      Action = ActionPlay
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
    end
    object BTN_FileStop: TButton
      Left = 381
      Top = 5
      Width = 60
      Height = 22
      Action = ActionStop
      Caption = #20572#27490'(S)'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 5
    end
    object BTN_LinkSite: TButton
      Left = 312
      Top = 29
      Width = 60
      Height = 22
      Action = ActionLink
      Caption = #36830#25509'(&L)'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 6
    end
    object BTN_LinkClose: TButton
      Left = 381
      Top = 29
      Width = 60
      Height = 22
      Action = ActionStop
      BiDiMode = bdLeftToRight
      Caption = #26029#24320'(&T)'
      ParentBiDiMode = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 7
    end
    object BTN_FileDel: TButton
      Left = 448
      Top = 5
      Width = 76
      Height = 22
      Action = ActionDel
      Caption = #21015#34920#28165#38500'(&D)'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 8
    end
    object BTN_SiteClear: TButton
      Left = 448
      Top = 29
      Width = 76
      Height = 22
      Action = ActionClear
      Caption = #32593#22336#28165#38500'(&C)'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 9
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 529
    Height = 312
    Align = alClient
    TabOrder = 1
    object RealAudio1: TRealAudio
      Left = 1
      Top = 1
      Width = 527
      Height = 310
      Align = alClient
      TabOrder = 0
      ControlData = {
        2143341208000000783600000A2000004F61BC000000000022000000494D4147
        4557494E444F572C434F4E54524F4C50414E454C2C5354415455534241520000
        0000000000000100000001000000010000000000000000000000000000000000
        0000000000000000000000000000000000000700000023303030303030}
    end
  end
  object OpenDialog1: TOpenDialog
    Filter = 'real|*.rm;*.ram'
    Left = 40
    Top = 88
  end
  object SaveDialog1: TSaveDialog
    Left = 72
    Top = 88
  end
  object PopupMenu1: TPopupMenu
    Left = 160
    Top = 112
    object PopAbout: TMenuItem
      Action = ActionAbout
      Caption = #20851#20110'(&B)...'
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object PopPlay: TMenuItem
      Action = ActionPlay
    end
    object PopPause: TMenuItem
      Action = ActionPause
      Caption = #26242#20572'(&S)'
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object PopAdd: TMenuItem
      Action = ActionOpen
      Caption = #25171#24320#25991#20214'(&O)...'
    end
    object PopDel: TMenuItem
      Action = ActionDel
      Caption = #28165#38500#25991#20214#21015#34920'(&D)'
    end
    object PopClear: TMenuItem
      Action = ActionClear
      Caption = #28165#38500#32593#22336#21015#34920'(&C)'
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object Popexit: TMenuItem
      Action = ActionClose
      Caption = #20851#38381'(&X)'
    end
  end
  object ActionList1: TActionList
    Left = 208
    Top = 112
    object ActionClear: TAction
      Caption = 'ActionClear'
      OnExecute = ActionClearExecute
    end
    object ActionPlay: TAction
      Caption = #25773#25918'(&P)'
      OnExecute = ActionPlayExecute
    end
    object ActionStop: TAction
      Caption = 'ActionStop'
      OnExecute = ActionStopExecute
    end
    object ActionOpen: TAction
      Caption = 'ActionOpen'
      OnExecute = ActionOpenExecute
    end
    object ActionSite: TAction
      Caption = 'ActionSite'
      OnExecute = ActionSiteExecute
    end
    object ActionClose: TAction
      Caption = 'ActionClose'
      OnExecute = ActionCloseExecute
    end
    object ActionPause: TAction
      Caption = 'ActionPause'
      OnExecute = ActionPauseExecute
    end
    object ActionDel: TAction
      Caption = 'ActionDel'
      OnExecute = ActionDelExecute
    end
    object ActionAbout: TAction
      Caption = 'ActionAbout'
      OnExecute = ActionAboutExecute
    end
    object ActionLink: TAction
      Caption = 'ActionLink'
      OnExecute = ActionLinkExecute
    end
  end
end