flashplayer.~dfm

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

object FormFlashPlayer: TFormFlashPlayer
  Left = 112
  Top = 175
  Width = 586
  Height = 393
  Caption = #20248#21033#23186#20307#25773#25918#31995#32479'V1.1'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clMaroon
  Font.Height = -12
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter1: TSplitter
    Left = 117
    Top = 33
    Height = 330
  end
  object Panel1: TPanel
    Left = 0
    Top = 33
    Width = 117
    Height = 330
    Align = alLeft
    TabOrder = 0
    object Label1: TLabel
      Left = 1
      Top = 1
      Width = 115
      Height = 12
      Align = alTop
      Alignment = taCenter
      Caption = 'Flash'#25991#20214#21015#34920
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object ListBox1: TListBox
      Left = 1
      Top = 13
      Width = 115
      Height = 316
      Align = alClient
      Color = clBlack
      Font.Charset = GB2312_CHARSET
      Font.Color = clFuchsia
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ItemHeight = 12
      MultiSelect = True
      ParentFont = False
      PopupMenu = PopupMenu1
      TabOrder = 0
    end
    object ListBox2: TListBox
      Left = -4
      Top = 280
      Width = 121
      Height = 49
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ItemHeight = 12
      TabOrder = 1
      Visible = False
    end
  end
  object Panel2: TPanel
    Left = 120
    Top = 33
    Width = 458
    Height = 330
    Align = alClient
    PopupMenu = PopupMenu1
    TabOrder = 1
    object ShockwaveFlash1: TShockwaveFlash
      Left = 1
      Top = 1
      Width = 456
      Height = 328
      Align = alClient
      PopupMenu = PopupMenu1
      TabOrder = 0
      ControlData = {
        6755665500030000212F0000E621000008000200000000000800020000000000
        08000E000000570069006E0064006F00770000000B00FFFF0B00000008000A00
        00004800690067006800000008000200000000000B0000000800020000000000
        080010000000530068006F00770041006C006C0000000B0000000B0000000800
        0E00000030003000300030003000300000000800020000000000}
    end
  end
  object CoolBar4: TCoolBar
    Left = 0
    Top = 0
    Width = 578
    Height = 33
    Bands = <
      item
        Control = ToolBar4
        ImageIndex = -1
        Width = 574
      end>
    object ToolBar4: TToolBar
      Left = 9
      Top = 0
      Width = 561
      Height = 25
      Caption = 'ToolBar4'
      Color = clBtnFace
      ParentColor = False
      PopupMenu = PopupMenu1
      TabOrder = 0
      object BTNOpen: TButton
        Left = 0
        Top = 2
        Width = 81
        Height = 22
        Action = ActionOpen
        Caption = #25171#24320#21015#34920'(&O)'
        Font.Charset = GB2312_CHARSET
        Font.Color = clMaroon
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 7
      end
      object ToolButton3: TToolButton
        Left = 81
        Top = 2
        Width = 8
        Caption = 'ToolButton3'
        ImageIndex = 1
        Style = tbsSeparator
      end
      object BTNAdd: TButton
        Left = 89
        Top = 2
        Width = 49
        Height = 22
        Action = ActionAdd
        Caption = #28155#21152'(&A)'
        Font.Charset = GB2312_CHARSET
        Font.Color = clMaroon
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
      end
      object BTNSave: TButton
        Left = 138
        Top = 2
        Width = 49
        Height = 22
        Action = ActionSave
        Caption = #20445#23384'(&S)'
        Font.Charset = GB2312_CHARSET
        Font.Color = clMaroon
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 6
      end
      object Button1: TButton
        Left = 187
        Top = 2
        Width = 49
        Height = 22
        Caption = #31227#20986'(&M)'
        Font.Charset = GB2312_CHARSET
        Font.Color = clMaroon
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 9
        OnClick = Button1Click
      end
      object BTNClear: TButton
        Left = 236
        Top = 2
        Width = 49
        Height = 22
        Action = ActionClear
        Caption = #28165#38500'(&C)'
        Font.Charset = GB2312_CHARSET
        Font.Color = clMaroon
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
      end
      object ToolButton1: TToolButton
        Left = 285
        Top = 2
        Width = 8
        Caption = 'ToolButton1'
        Style = tbsSeparator
      end
      object BTNHide: TButton
        Left = 293
        Top = 2
        Width = 49
        Height = 22
        Hint = #38544#34255#21015#34920
        Caption = #38544#34255'(&H)'
        Font.Charset = GB2312_CHARSET
        Font.Color = clMaroon
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        OnClick = BTNHideClick
      end
      object BTNFulldisplay: TButton
        Left = 342
        Top = 2
        Width = 49
        Height = 22
        Hint = #20840#23631#26174#31034
        Caption = #20840#23631'(&F)'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnClick = BTNFulldisplayClick
      end
      object ToolButton2: TToolButton
        Left = 391
        Top = 2
        Width = 8
        Caption = 'ToolButton2'
        ImageIndex = 0
        Style = tbsSeparator
      end
      object BTNPlay: TButton
        Left = 399
        Top = 2
        Width = 49
        Height = 22
        Hint = #25773#25918'Flash'
        Action = ActionPlay
        Caption = #25773#25918'(&P)'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 5
      end
      object BTNPause: TButton
        Left = 448
        Top = 2
        Width = 49
        Height = 22
        Action = ActionStop
        Caption = #26242#20572'(&T)'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 4
      end
      object ToolButton4: TToolButton
        Left = 497
        Top = 2
        Width = 8
        Caption = 'ToolButton4'
        ImageIndex = 1
        Style = tbsSeparator
      end
      object BTNClose: TButton
        Left = 505
        Top = 2
        Width = 49
        Height = 22
        Action = ActionClose
        Caption = #20851#38381'(&X)'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 8
      end
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 168
    Top = 160
    object PopAbout: TMenuItem
      Caption = #20851#20110'(&B)...'
      OnClick = PopAboutClick
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object PopPlay: TMenuItem
      Action = ActionPlay
      Caption = #25773#25918'(&P)'
    end
    object PopStop: TMenuItem
      Action = ActionStop
      Caption = #26242#20572'(&S)'
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object PopList: TMenuItem
      AutoCheck = True
      Caption = #21015#34920#26174#31034'(&L)'
      Checked = True
    end
    object PopAdd: TMenuItem
      Action = ActionAdd
      Caption = #28155#21152#25991#20214'(&A)...'
    end
    object PopClear: TMenuItem
      Action = ActionClear
      Caption = #28165#38500#25991#20214'(&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 ActionAdd: TAction
      Caption = 'ActionAdd'
      OnExecute = ActionAddExecute
    end
    object ActionClear: TAction
      Caption = 'ActionClear'
      OnExecute = ActionClearExecute
    end
    object ActionPlay: TAction
      Caption = 'ActionPlay'
      OnExecute = ActionPlayExecute
    end
    object ActionStop: TAction
      Caption = 'ActionStop'
      OnExecute = ActionStopExecute
    end
    object ActionOpen: TAction
      Caption = 'ActionOpen'
      OnExecute = ActionOpenExecute
    end
    object ActionSave: TAction
      Caption = 'ActionSave'
      OnExecute = ActionSaveExecute
    end
    object ActionClose: TAction
      Caption = 'ActionClose'
      OnExecute = ActionCloseExecute
    end
  end
  object OpenDialog1: TOpenDialog
    Filter = 'Flash'#25991#20214'(*.swf)|*.swf|'#21508#31181#25991#20214'(*.*)|*.*'
    Options = [ofHideReadOnly, ofAllowMultiSelect, ofEnableSizing]
    Left = 168
    Top = 112
  end
  object SaveDialog1: TSaveDialog
    Filter = #20248#21033'Flash'#21015#34920'(*.jlr)|*.jlr'
    Left = 208
    Top = 161
  end
end