main.dfm

一个很不错的代码

object MainForm: TMainForm
  Left = 192
  Top = 107
  Width = 544
  Height = 375
  Caption = 'KTVideo Receiver'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Label6: TLabel
    Left = 368
    Top = 72
    Width = 6
    Height = 12
  end
  object Label7: TLabel
    Left = 368
    Top = 92
    Width = 6
    Height = 12
  end
  object Label8: TLabel
    Left = 368
    Top = 112
    Width = 6
    Height = 12
  end
  object Label2: TLabel
    Left = 32
    Top = 16
    Width = 72
    Height = 12
    Caption = #26412#26426'IP'#22320#22336#65306
  end
  object VideoWindow2: TVideoWindow
    Left = 32
    Top = 68
    Width = 320
    Height = 240
    Mode = vmVMR
    FilterGraph = FilterGraph2
    VMROptions.Mode = vmrWindowed
    Color = clBlack
    OnDblClick = VideoWindow2DblClick
  end
  object ComboBox2: TComboBox
    Left = 32
    Top = 32
    Width = 213
    Height = 20
    Style = csDropDownList
    ItemHeight = 12
    TabOrder = 1
    OnChange = ComboBox2Change
  end
  object FilterGraph2: TFilterGraph
    Mode = gmCapture
    GraphEdit = False
    LinearVolume = True
    Left = 48
    Top = 16
  end
  object Filter2: TFilter
    BaseFilter.data = {
      C600000037D415438C5BD011BD3B00A0C911CE86B20000004000640065007600
      6900630065003A00730077003A007B0030003800330038003600330046003100
      2D0037003000440045002D0031003100440030002D0042004400340030002D00
      3000300041003000430039003100310043004500380036007D005C007B003500
      31003500380039003300340041002D0030004100440043002D00340033003600
      32002D0042003900350046002D00440045003300370043003100360045004100
      3500420044007D000000}
    FilterGraph = FilterGraph2
    Left = 56
    Top = 16
  end
end