unit1.dfm

一套及时通讯的原码

object FormDVDPlayer: TFormDVDPlayer
  Left = 215
  Top = 120
  Width = 436
  Height = 371
  Caption = 'DVD Sample'
  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 = 282
    Width = 428
    Height = 24
    Align = alBottom
    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 = 23
      Top = 0
      Caption = 'btRewind'
      ImageIndex = 1
      OnClick = btRewindClick
    end
    object btPause: TToolButton
      Left = 46
      Top = 0
      Caption = 'btPause'
      ImageIndex = 2
      OnClick = btPauseClick
    end
    object btPlay: TToolButton
      Left = 69
      Top = 0
      Caption = 'btPlay'
      ImageIndex = 3
      OnClick = PlayMenuClick
    end
    object btStop: TToolButton
      Left = 92
      Top = 0
      Caption = 'btStop'
      ImageIndex = 4
      OnClick = btStopClick
    end
    object btFastForward: TToolButton
      Left = 115
      Top = 0
      Caption = 'btFastForward'
      ImageIndex = 5
      OnClick = btFastForwardClick
    end
    object btNextChapter: TToolButton
      Left = 138
      Top = 0
      Caption = 'btNextChapter'
      ImageIndex = 6
      OnClick = btNextChapterClick
    end
    object ToolButton8: TToolButton
      Left = 161
      Top = 0
      Width = 8
      Caption = 'ToolButton8'
      ImageIndex = 7
      Style = tbsSeparator
    end
    object btRootMenu: TToolButton
      Left = 169
      Top = 0
      Caption = 'btRootMenu'
      ImageIndex = 7
      OnClick = btRootMenuClick
    end
    object btFullScreen: TToolButton
      Left = 192
      Top = 0
      Caption = 'btFullScreen'
      ImageIndex = 8
      OnClick = btFullScreenClick
    end
    object btFrameStep: TToolButton
      Left = 215
      Top = 0
      Caption = 'btFrameStep'
      ImageIndex = 9
      OnClick = btFrameStepClick
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 306
    Width = 428
    Height = 19
    Panels = <
      item
        Width = 100
      end
      item
        Width = 60
      end
      item
        Width = 60
      end
      item
        Width = 60
      end>
    SimplePanel = False
  end
  object VideoWindow: TVideoWindow
    Left = 0
    Top = 0
    Width = 428
    Height = 282
    FilterGraph = FilterGraph
    VMROptions.Mode = vmrWindowed
    VMROptions.Streams = 2
    VMROptions.Preferences = []
    Color = clBlack
    PopupMenu = Popup
    Align = alClient
    OnDblClick = btFullScreenClick
    OnMouseMove = VideoWindowMouseMove
    OnMouseUp = VideoWindowMouseUp
  end
  object MainMenu: TMainMenu
    Images = ImageList
    Left = 8
    Top = 8
    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 = '-'
      end
      object GoToMenu: TMenuItem
        Caption = '&Go To'
        object NextChapterMenu: TMenuItem
          Caption = '&Next Chapter'
          ImageIndex = 6
          OnClick = btNextChapterClick
        end
        object PreviousChapterMenu: TMenuItem
          Caption = '&Previous Chapter'
          ImageIndex = 0
          OnClick = btPreviousChapterClick
        end
      end
      object PlaySpeed1: TMenuItem
        Caption = 'Pla&y Speed'
        object FastForward1: TMenuItem
          Caption = '&Fast Forward'
          ImageIndex = 5
          OnClick = btFastForwardClick
        end
        object Rewind1: TMenuItem
          Caption = '&Rewind'
          ImageIndex = 1
          OnClick = btRewindClick
        end
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object MenuRoot: TMenuItem
        Caption = '&Menu (Root)'
        ImageIndex = 7
        OnClick = btRootMenuClick
      end
      object TitleMenu: TMenuItem
        Caption = '&Title Menu'
        OnClick = TitleMenuClick
      end
    end
    object OptionsMenu: TMenuItem