unitwebcam.dfm

不错的远程控制程序

object Webcam: TWebcam
  Left = 547
  Top = 286
  AutoScroll = False
  BorderIcons = [biSystemMenu, biMaximize]
  Caption = #25668#20687#22836#30417#25511
  ClientHeight = 305
  ClientWidth = 319
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDeactivate = FormDeactivate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 65
    Width = 319
    Height = 240
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 0
    object Image1: TImage32
      Left = 0
      Top = 0
      Width = 319
      Height = 240
      Bitmap.StretchFilter = sfLanczos
      BitmapAlign = baTopLeft
      Color = clBtnShadow
      ParentColor = False
      Scale = 1.000000000000000000
      ScaleMode = smStretch
      TabOrder = 0
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 319
    Height = 65
    Align = alTop
    Color = cl3DLight
    TabOrder = 1
    DesignSize = (
      319
      65)
    object Label1: TLabel
      Left = 64
      Top = 36
      Width = 33
      Height = 13
      AutoSize = False
      Caption = #24310#26102
    end
    object Label2: TLabel
      Left = 136
      Top = 36
      Width = 33
      Height = 13
      AutoSize = False
      Caption = #30446#24405#65306
    end
    object Label3: TLabel
      Left = 142
      Top = 10
      Width = 171
      Height = 13
      AutoSize = False
      Caption = #31561#24453#36830#25509'... ...'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object CheckBox1: TCheckBox
      Left = 8
      Top = 8
      Width = 49
      Height = 17
      Caption = #24320#21551
      Enabled = False
      TabOrder = 0
      OnClick = CheckBox1Click
    end
    object Edit1: TEdit
      Left = 96
      Top = 32
      Width = 33
      Height = 21
      TabOrder = 1
      Text = '5'
    end
    object Edit2: TEdit
      Left = 176
      Top = 32
      Width = 135
      Height = 21
      Anchors = [akLeft, akTop, akRight]
      TabOrder = 2
    end
    object CheckBox2: TCheckBox
      Left = 6
      Top = 34
      Width = 49
      Height = 17
      Caption = #20445#23384
      TabOrder = 3
    end
    object CheckBox3: TCheckBox
      Left = 64
      Top = 8
      Width = 65
      Height = 17
      Caption = '256'#33394
      Enabled = False
      TabOrder = 4
      OnClick = CheckBox1Click
    end
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 1
    OnTimer = Timer1Timer
    Left = 408
    Top = 264
  end
end