unit1.dfm

摄像头视频捕捉程序

object Form1: TForm1
  Left = 141
  Top = 57
  Width = 493
  Height = 395
  Caption = 'Media Player Demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 0
    Top = 257
    Width = 485
    Height = 3
    Cursor = crVSplit
    Align = alBottom
  end
  object Splitter2: TSplitter
    Left = 349
    Top = 0
    Width = 3
    Height = 232
    Cursor = crHSplit
    Align = alRight
    ResizeStyle = rsLine
  end
  object VideoWindow: TDSVideoWindow
    Left = 0
    Top = 0
    Width = 349
    Height = 232
    Graph = FilterGraph
    Align = alClient
  end
  object Memo1: TMemo
    Left = 0
    Top = 260
    Width = 485
    Height = 89
    Align = alBottom
    ScrollBars = ssBoth
    TabOrder = 1
  end
  object DSTrackBar1: TDSTrackBar
    Left = 0
    Top = 232
    Width = 485
    Height = 25
    Align = alBottom
    Max = 70
    Orientation = trHorizontal
    Frequency = 1
    Position = 0
    SelEnd = 0
    SelStart = 0
    TabOrder = 2
    ThumbLength = 15
    TickMarks = tmBottomRight
    TickStyle = tsAuto
    Graph = FilterGraph
  end
  object ListBox1: TListBox
    Left = 352
    Top = 0
    Width = 133
    Height = 232
    Hint = 'Double Click on filter to see property page if possible'
    Align = alRight
    ItemHeight = 13
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    OnDblClick = ListBox1DblClick
  end
  object MainMenu1: TMainMenu
    Left = 8
    Top = 8
    object File1: TMenuItem
      Caption = '&File'
      object Open1: TMenuItem
        Caption = '&Open'
        OnClick = Open1Click
      end
      object Exit1: TMenuItem
        Caption = '&Exit'
        OnClick = Exit1Click
      end
    end
    object Control1: TMenuItem
      Caption = '&Control'
      object Play1: TMenuItem
        Caption = '&Play'
        OnClick = Play1Click
      end
      object Pause1: TMenuItem
        Caption = 'P&ause'
        OnClick = Pause1Click
      end
      object Stop1: TMenuItem
        Caption = '&Stop'
        OnClick = Stop1Click
      end
    end
  end
  object OpenDialog: TOpenDialog
    Filter = 
      'Video Files|*.avi; *.qt; *.mov; *.mpg; *.mpeg; *.m1v|Audio files' +
      '|*.wav; *.mpa; *.mp2; *.mp3; *.au; *.aif; *.aiff; *.snd|WMT File' +
      's|*.asf; *.wma; *.wmv|MIDI Files|*.mid, *.midi, *.rmi|Image File' +
      's|*.jpg, *.bmp, *.gif, *.tga|All Files|*.*'
    Left = 40
    Top = 8
  end
  object FilterGraph: TDSFilterGraph2
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    RotEnabled = True
    OnDSEvent = FilterGraphDSEvent
    Left = 72
    Top = 8
  end
end