main.dfm

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

object FormPlayWin: TFormPlayWin
  Left = 314
  Top = 136
  Width = 450
  Height = 626
  Caption = 'VMR Media Player'
  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 VideoWindow: TVideoWindow
    Left = 0
    Top = 0
    Width = 442
    Height = 306
    Mode = vmVMR
    FilterGraph = FilterGraph
    VMROptions.Mode = vmrWindowed
    VMROptions.Preferences = [vpForceOverlays, vpForceMixer, vpPreferAGPMemWhenMixing]
    Color = clBlack
    Align = alClient
    OnDblClick = btFullScreenClick
  end
  object TrackBar: TDSTrackBar
    Left = 0
    Top = 441
    Width = 442
    Height = 25
    Align = alBottom
    Frequency = 60
    TabOrder = 1
    FilterGraph = FilterGraph
    OnTimer = TrackBarTimer
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 495
    Width = 442
    Height = 19
    Panels = <>
    SimplePanel = True
  end
  object ToolBar: TToolBar
    Left = 0
    Top = 466
    Width = 442
    Height = 29
    Align = alBottom
    Caption = 'ToolBar'
    Images = ImageList
    TabOrder = 3
    object btPlay: TToolButton
      Left = 0
      Top = 2
      Caption = 'btPlay'
      ImageIndex = 3
      OnClick = btPlayClick
    end
    object btPause: TToolButton
      Left = 23
      Top = 2
      Caption = 'btPause'
      ImageIndex = 2
      OnClick = btPauseClick
    end
    object btStop: TToolButton
      Left = 46
      Top = 2
      Caption = 'btStop'
      ImageIndex = 4
      OnClick = btStopClick
    end
    object ToolButton1: TToolButton
      Left = 69
      Top = 2
      Width = 8
      Caption = 'ToolButton1'
      ImageIndex = 5
      Style = tbsSeparator
    end
    object btFullScreen: TToolButton
      Left = 77
      Top = 2
      Caption = 'btFullScreen'
      ImageIndex = 8
      OnClick = btFullScreenClick
    end
    object ToolButton2: TToolButton
      Left = 100
      Top = 2
      Caption = 'ToolButton2'
      ImageIndex = 9
    end
    object SoundLevel: TTrackBar
      Left = 123
      Top = 2
      Width = 60
      Height = 22
      Max = 10000
      Frequency = 1000
      TabOrder = 0
      OnChange = SoundLevelChange
    end
  end
  object log: TMemo
    Left = 0
    Top = 514
    Width = 442
    Height = 66
    Align = alBottom
    TabOrder = 4
  end
  object VideoControl: TPanel
    Left = 0
    Top = 306
    Width = 442
    Height = 135
    Align = alBottom
    TabOrder = 5
    object Label1: TLabel
      Left = 8
      Top = 8
      Width = 49
      Height = 13
      Caption = 'Brightness'
    end
    object Label2: TLabel
      Left = 8
      Top = 32
      Width = 39
      Height = 13
      Caption = 'Contrast'
    end
    object Label3: TLabel
      Left = 8
      Top = 56
      Width = 20
      Height = 13
      Caption = 'Hue'
    end
    object Label4: TLabel
      Left = 8
      Top = 80
      Width = 48
      Height = 13
      Caption = 'Saturation'
    end
    object Label5: TLabel
      Left = 224
      Top = 8
      Width = 47
      Height = 13
      Caption = 'Position X'
    end
    object Label6: TLabel
      Left = 224
      Top = 32
      Width = 47
      Height = 13
      Caption = 'Position Y'
    end
    object Label7: TLabel
      Left = 224
      Top = 56
      Width = 30
      Height = 13
      Caption = 'Size X'
    end
    object Label8: TLabel
      Left = 224
      Top = 80
      Width = 30
      Height = 13
      Caption = 'Size Y'
    end
    object Brightness: TTrackBar
      Left = 64
      Top = 3
      Width = 150
      Height = 25
      Enabled = False
      Max = 0
      Frequency = 0
      TabOrder = 0
      TickStyle = tsNone
      OnChange = BrightnessChange
    end
    object Contrast: TTrackBar
      Left = 64
      Top = 27
      Width = 150
      Height = 25
      Enabled = False
      Max = 0
      Frequency = 0
      TabOrder = 1
      TickStyle = tsNone
      OnChange = ContrastChange
    end
    object Hue: TTrackBar
      Left = 64
      Top = 51
      Width = 150
      Height = 25
      Enabled = False
      Max = 0
      Frequency = 0
      TabOrder = 2
      TickStyle = tsNone
      OnChange = HueChange
    end
    object Saturation: TTrackBar
      Left = 64
      Top = 75
      Width = 150
      Height = 25
      Enabled = False
      Max = 0
      Frequency = 0
      TabOrder = 3
      TickStyle = tsNone
      OnChange = SaturationChange
    end
    object PositionX: TTrackBar
      Left = 280
      Top = 3
      Width = 150
      Height = 25
      Enabled = False
      Max = 100
      TabOrder = 4
      TickStyle = tsNone
      OnChange = PositionChange
    end
    object PositionY: TTrackBar
      Left = 280
      Top = 27
      Width = 150
      Height = 25
      Enabled = False
      Max = 100
      TabOrder = 5
      TickStyle = tsNone
      OnChange = PositionChange
    end
    object SizeX: TTrackBar
      Left = 280
      Top = 51
      Width = 150
      Height = 25
      Enabled = False
      Max = 100
      Position = 100
      TabOrder = 6
      TickStyle = tsNone
      OnChange = PositionChange
    end
    object SizeY: TTrackBar
      Left = 280
      Top = 75
      Width = 150
      Height = 25
      Enabled = False
      Max = 100
      Position = 100
      TabOrder = 7
      TickStyle = tsNone
      OnChange = PositionChange
    end
    object AspectRatio: TCheckBox
      Left = 7
      Top = 106
      Width = 122
      Height = 22
      Caption = 'Keep Aspect Ratio'
      Checked = True
      State = cbChecked
      TabOrder = 8
      OnClick = AspectRatioClick
    end
  end
  object FilterGraph: TFilterGraph
    GraphEdit = True
    OnDSEvent = FilterGraphDSEvent
    Left = 8
    Top = 8
  end
  object MainMenu: TMainMenu
    Left = 8
    Top = 40
    object FileMenu: TMenuItem
      Caption = '&File'
      object OpenMenu: TMenuItem
        Caption = '&Open'
        OnClick = OpenMenuClick
      end
      object OpenURLMenu: TMenuItem
        Caption = 'Open &URL'
        OnClick = OpenURLMenuClick
      end
      object ExitMenu: TMenuItem
        Caption = '&Exit'
        OnClick = ExitMenuClick
      end
    end
  end
  object OpenDialog: TOpenDialog