unit1.dfm

制作摄相头的。网上下的

object Form1: TForm1
  Left = 192
  Top = 114
  Width = 349
  Height = 310
  Caption = 'VFW'#25668#20687#22836#27979#35797#31243#24207
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 341
    Height = 237
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 0
    OnResize = Panel1Resize
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 237
    Width = 341
    Height = 19
    Panels = <
      item
        Text = #35270#39057#39537#21160#35774#22791
        Width = 75
      end
      item
        Style = psOwnerDraw
        Width = 50
      end>
    OnDrawPanel = StatusBar1DrawPanel
  end
  object MainMenu1: TMainMenu
    Left = 144
    Top = 24
    object Cap1: TMenuItem
      Caption = #25668#20687#22836'(&V)'
      object Start: TMenuItem
        Caption = #24320#22987'(&S)'
        OnClick = StartClick
      end
      object Stop: TMenuItem
        Caption = #32467#26463'(&C)'
        Enabled = False
        OnClick = StopClick
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = #36864#20986'(&E)'
        OnClick = Exit1Click
      end
    end
    object Config: TMenuItem
      Caption = #35774#32622'(&C)'
      object VideoSource: TMenuItem
        Caption = #35270#39057#28304
        Enabled = False
        OnClick = VideoSourceClick
      end
      object VideoFormat: TMenuItem
        Caption = #35270#39057#26684#24335
        Enabled = False
        OnClick = VideoFormatClick
      end
      object VideoCompression: TMenuItem
        Caption = #35270#39057#21387#32553
        Enabled = False
        OnClick = VideoCompressionClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object CanSacle: TMenuItem
        Caption = #25903#25345#25289#20280
        Enabled = False
        OnClick = CanSacleClick
      end
    end
    object Record1: TMenuItem
      Caption = #24405#20687'(&R)'
      object StartRecord: TMenuItem
        Caption = #24320#22987'(c:\1.avi)(&S)'
        Enabled = False
        OnClick = StartRecordClick
      end
      object StopRecord: TMenuItem
        Caption = #20572#27490'(&E)'
        Enabled = False
        OnClick = StopRecordClick
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object SaveBMP: TMenuItem
        Caption = #20445#23384#24403#21069#22270#20687'(c:\1.bmp)(&B)'
        Enabled = False
        OnClick = SaveBMPClick
      end
    end
    object Help: TMenuItem
      Caption = #24110#21161'(&H)'
      object About: TMenuItem
        Caption = #20851#20110'(&A)'
        OnClick = AboutClick
      end
    end
  end
end