main.dfm

DSPack is a set of Components and class to write Multimedia Applications using MS Direct Show and Di

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
    Orientation = trHorizontal
    Frequency = 60
    Position = 0
    SelEnd = 0
    SelStart = 0
    TabOrder = 1
    TickMarks = tmBottomRight
    TickStyle = tsAuto
    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
      Orientation = trHorizontal
      Frequency = 1000
      Position = 0
      SelEnd = 0
      SelStart = 0
      TabOrder = 0
      TickMarks = tmBottomRight
      TickStyle = tsAuto
      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
      Orientation = trHorizontal
      Frequency = 0
      Position = 0
      SelEnd = 0
      SelStart = 0
      TabOrder = 0
      TickMarks = tmBottomRight
      TickStyle = tsNone
      OnChange = BrightnessChange
    end
    object Contrast: TTrackBar
      Left = 64
      Top = 27
      Width = 150
      Height = 25
      Enabled = False
      Max = 0
      Orientation = trHorizontal
      Frequency = 0
      Position = 0
      SelEnd = 0
      SelStart = 0
      TabOrder = 1
      TickMarks = tmBottomRight
      TickStyle = tsNone
      OnChange = ContrastChange
    end
    object Hue: TTrackBar
      Left = 64
      Top = 51
      Width = 150
      Height = 25
      Enabled = False
      Max = 0