videoformunit.dfm

iocp远控比较完整的代码.iocp far more complete control of the code

object VideoForm: TVideoForm
  Left = 395
  Top = 160
  Width = 302
  Height = 368
  Caption = #35270#39057#26174#31034#31383#21475
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnPaint = FormPaint
  PixelsPerInch = 96
  TextHeight = 13
  object GPDisplayVideo: TGroupBox
    Left = 0
    Top = 0
    Width = 294
    Height = 225
    Align = alClient
    Caption = #35270#39057#26174#31034#31383#21475
    TabOrder = 0
    object ImDisplayVideo: TPanel
      Left = 2
      Top = 15
      Width = 290
      Height = 208
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 0
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 225
    Width = 294
    Height = 90
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    object GroupBox1: TGroupBox
      Left = 0
      Top = 0
      Width = 294
      Height = 90
      Align = alClient
      Caption = #35270#39057#36873#39033
      TabOrder = 0
      object CBWebCamName: TComboBox
        Left = 4
        Top = 15
        Width = 140
        Height = 21
        ItemHeight = 13
        TabOrder = 0
        Text = #36873#25321#35270#39057#35774#22791
      end
      object CBAutoSaveVideo: TCheckBox
        Left = 4
        Top = 44
        Width = 137
        Height = 17
        Caption = #33258#21160#20445#23384#35270#39057
        TabOrder = 1
      end
      object BGetStartVideo: TButton
        Left = 222
        Top = 64
        Width = 67
        Height = 22
        Caption = #33719#21462#35270#39057
        Enabled = False
        TabOrder = 2
        OnClick = BGetStartVideoClick
      end
      object CBVideoSize: TComboBox
        Left = 150
        Top = 15
        Width = 140
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        ItemIndex = 0
        TabOrder = 3
        Text = '176 X 144'
        Items.Strings = (
          '176 X 144'
          '352 X 288')
      end
      object CBAutoAdptation: TCheckBox
        Left = 4
        Top = 67
        Width = 137
        Height = 17
        Caption = #33258#36866#24212#31383#21475#22823#23567
        TabOrder = 4
        OnClick = CBAutoAdptationClick
      end
      object CBChangeCMDRate: TComboBox
        Left = 150
        Top = 39
        Width = 140
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        ItemIndex = 1
        ParentShowHint = False
        ShowHint = True
        TabOrder = 5
        Text = #20013#31561#21387#32553'('#22270#20687#19968#33324')'
        Items.Strings = (
          #26368#20302#21387#32553'('#22270#20687#26368#22909')'
          #20013#31561#21387#32553'('#22270#20687#19968#33324')'
          #26368#39640#21387#32553'('#22270#20687#26368#24046')')
      end
      object BGetVideoInfo: TButton
        Left = 150
        Top = 64
        Width = 67
        Height = 22
        Caption = #26816#27979#35774#22791
        TabOrder = 6
        OnClick = BGetVideoInfoClick
      end
    end
  end
  object StatusBarMsg: TStatusBar
    Left = 0
    Top = 315
    Width = 294
    Height = 19
    Panels = <
      item
        Text = #35831#39318#20808#26816#27979#35270#39057#35774#22791#65292#28982#21518#20877#24320#22987#33719#21462#35270#39057
        Width = 50
      end>
  end
  object XPManifest1: TXPManifest
    Left = 254
    Top = 8
  end
end