unit1.dfm

P2P即时通讯源码(DELPHI编写)

object FormDVDPlayer: TFormDVDPlayer
  Left = 477
  Top = 433
  Width = 527
  Height = 479
  Caption = 'DVD Sample Win with DSVideoWindowEx II'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu
  OldCreateOrder = False
  OnCloseQuery = FormCloseQuery
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBar: TToolBar
    Left = 0
    Top = 386
    Width = 519
    Height = 28
    Align = alBottom
    AutoSize = True
    ButtonHeight = 26
    ButtonWidth = 27
    Caption = 'ToolBar'
    Flat = True
    Images = ImageList
    TabOrder = 1
    object btPreviousChapter: TToolButton
      Left = 0
      Top = 0
      Caption = 'btPreviousChapter'
      ImageIndex = 0
      OnClick = btPreviousChapterClick
    end
    object btRewind: TToolButton
      Left = 27
      Top = 0
      Caption = 'btRewind'
      ImageIndex = 1
      OnClick = btRewindClick
    end
    object btPause: TToolButton
      Left = 54
      Top = 0
      Caption = 'btPause'
      ImageIndex = 2
      OnClick = btPauseClick
    end
    object btPlay: TToolButton
      Left = 81
      Top = 0
      Caption = 'btPlay'
      ImageIndex = 3
      OnClick = PlayMenuClick
    end
    object btStop: TToolButton
      Left = 108
      Top = 0
      Caption = 'btStop'
      ImageIndex = 4
      OnClick = btStopClick
    end
    object btFastForward: TToolButton
      Left = 135
      Top = 0
      Caption = 'btFastForward'
      ImageIndex = 5
      OnClick = btFastForwardClick
    end
    object btNextChapter: TToolButton
      Left = 162
      Top = 0
      Caption = 'btNextChapter'
      ImageIndex = 6
      OnClick = btNextChapterClick
    end
    object ToolButton8: TToolButton
      Left = 189
      Top = 0
      Width = 8
      Caption = 'ToolButton8'
      ImageIndex = 7
      Style = tbsSeparator
    end
    object btRootMenu: TToolButton
      Left = 197
      Top = 0
      Caption = 'btRootMenu'
      ImageIndex = 7
      OnClick = btRootMenuClick
    end
    object btFullScreen: TToolButton
      Left = 224
      Top = 0
      Caption = 'btFullScreen'
      ImageIndex = 8
      OnClick = btFullScreenClick
    end
    object btFrameStep: TToolButton
      Left = 251
      Top = 0
      Caption = 'btFrameStep'
      ImageIndex = 9
      OnClick = btFrameStepClick
    end
    object ToolButton1: TToolButton
      Left = 278
      Top = 0
      Width = 8
      Caption = 'ToolButton1'
      ImageIndex = 10
      Style = tbsSeparator
    end
    object ToolButton2: TToolButton
      Left = 286
      Top = 0
      Caption = 'ToolButton2'
      Enabled = False
      ImageIndex = 10
      OnClick = ToolButton2Click
    end
    object ToolButton3: TToolButton
      Left = 313
      Top = 0
      Width = 8
      Caption = 'ToolButton3'
      ImageIndex = 11
      Style = tbsSeparator
    end
    object TrackBar1: TTrackBar
      Left = 321
      Top = 0
      Width = 144
      Height = 26
      Hint = 'Digital Zoom'
      Max = 99
      ParentShowHint = False
      Frequency = 5
      ShowHint = True
      TabOrder = 0
      ThumbLength = 15
      OnChange = TrackBar1Change
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 414
    Width = 519
    Height = 19
    Panels = <
      item
        Width = 100
      end
      item
        Width = 60
      end
      item
        Width = 60
      end
      item
        Width = 60
      end>
  end
  object DSVideoWindowEx1: TDSVideoWindowEx2
    Left = 0
    Top = 0
    Width = 519
    Height = 386
    AspectRatio = rmLetterBox
    AutoHideCursor = 3000
    DigitalZoom = 0
    FilterGraph = FilterGraph
    OnColorKeyChanged = DSVideoWindowEx1ColorKeyChanged
    ColorControl.Brightness = 750
    ColorControl.Contrast = 10000
    ColorControl.Hue = 0
    ColorControl.Saturation = 10000
    ColorControl.Sharpness = 5
    ColorControl.Gamma = 1
    ColorControl.ColorEnable = True
    NoScreenSaver = True
    Color = clBlack
    PopupMenu = Popup
    Align = alClient
    OnMouseMove = VideoWindowMouseMove
    OnMouseUp = VideoWindowMouseUp
    object Panel1: TPanel
      Left = 8
      Top = 8
      Width = 81
      Height = 33
      BevelOuter = bvNone
      Caption = '0:00:00'
      Color = clBlack
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clLime
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
    end
  end
  object MainMenu: TMainMenu
    Left = 8
    Top = 48
    object FileMenu: TMenuItem
      Caption = '&File'
      object OpenMenu: TMenuItem
        Caption = '&Open'
        OnClick = OpenMenuClick
      end
      object ExitMenu: TMenuItem
        Caption = '&Exit'
        OnClick = ExitMenuClick
      end
    end
    object ControlMenu: TMenuItem
      Caption = '&Playback'
      object PlayMenu: TMenuItem
        Caption = '&Play'
        ImageIndex = 3
        OnClick = PlayMenuClick
      end
      object PauseMenu: TMenuItem
        Caption = 'P&ause'
        ImageIndex = 2
        OnClick = btPauseClick
      end
      object StopMenu: TMenuItem
        Caption = '&Stop'
        ImageIndex = 4
        OnClick = btStopClick
      end
      object StepForwardMenu: TMenuItem
        Caption = 'Step &Forward'
        ImageIndex = 9
        OnClick = btFrameStepClick
      end
      object N1: TMenuItem
        Caption = '-'