main.dfm

多媒体视频程序设计--使用Delphi 第八章 源碼 ＝＝＝＝ 8-1 静态图像采集 8-2 录像参数设置 8-3 录像控制 8-4 看边录手动录像

object Form1: TForm1
  Left = 127
  Top = 205
  Align = alTop
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'VIDEO CAPTURE'
  ClientHeight = 59
  ClientWidth = 554
  Color = clBtnFace
  Font.Charset = CHINESEBIG5_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #32048#26126#39636
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poDefault
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object DriverIndexLabel: TLabel
    Left = 151
    Top = 1
    Width = 81
    Height = 19
    AutoSize = False
    Caption = 'Driver &Index:'
    FocusControl = DriverIndexComboBox
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    Layout = tlCenter
  end
  object DriverCountLabel: TLabel
    Left = 1
    Top = 2
    Width = 96
    Height = 19
    AutoSize = False
    Caption = #35222#35338#35037#32622#25976#37327':'
    Layout = tlCenter
  end
  object DriverIndexComboBox: TComboBox
    Left = 232
    Top = 0
    Width = 321
    Height = 19
    Font.Charset = CHINESEBIG5_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = #32048#26126#39636
    Font.Style = []
    ImeName = #20013#25991' ('#32321#39636') - '#27880#38899
    ItemHeight = 11
    ParentFont = False
    TabOrder = 0
    OnChange = DriverIndexComboBoxChange
  end
  object DriverCountText: TStaticText
    Left = 100
    Top = 2
    Width = 45
    Height = 20
    AutoSize = False
    BorderStyle = sbsSunken
    TabOrder = 1
  end
  object ScaleCheckBox: TCheckBox
    Left = 8
    Top = 32
    Width = 137
    Height = 17
    Caption = 'Preview'#33258#21205#32302#25918
    TabOrder = 2
    OnClick = ScaleCheckBoxClick
  end
  object PropCheckBox: TCheckBox
    Left = 152
    Top = 32
    Width = 105
    Height = 17
    Caption = #38263#23532#31561#27604#20363
    TabOrder = 3
    OnClick = PropCheckBoxClick
  end
  object MainMenu1: TMainMenu
    Left = 498
    Top = 25
    object ParmsMenuItem: TMenuItem
      Caption = #21443#25976'(&P)'
      object DriverNameMenuItem: TMenuItem
        Caption = 'DRIVER  '#21517#31281#21450#29256#26412
        OnClick = DriverNameMenuItemClick
      end
      object DriverCapsMenuItem: TMenuItem
        Caption = 'DRIVER '#24615#33021
        OnClick = DriverCapsMenuItemClick
      end
    end
    object EditMenu: TMenuItem
      Caption = #32232#36655'(&E)'
      object CopyMenu: TMenuItem
        Caption = #35079#35069#21040#21098#36028#31807
        ShortCut = 16451
        OnClick = CopyMenuClick
      end
      object SaveDIBMenu: TMenuItem
        Caption = #20786#23384#25104' BMP '#22294#24418#27284
        OnClick = SaveDIBMenuClick
      end
    end
    object SetupMenuItem: TMenuItem
      Caption = #35373#23450'(&S)'
      object DisplayModeMenu: TMenuItem
        Caption = #39023#31034#27169#24335
        object PreviewMode: TMenuItem
          Caption = 'Preview'
          OnClick = PreviewModeClick
        end
        object OverlayMode: TMenuItem
          Caption = 'Overlay'
          Enabled = False
          OnClick = OverlayModeClick
        end
      end
      object PreviewRateMenu: TMenuItem
        Caption = #38928#35261#36895#29575
        OnClick = PreviewRateMenuClick
      end
      object CompressionMenu: TMenuItem
        Caption = #35222#35338#22739#32302
        OnClick = CompressionMenuClick
      end
      object DisplayMenu: TMenuItem
        Caption = #22806#37096#39023#31034#35037#32622
        OnClick = DisplayMenuClick
      end
      object FormatMenu: TMenuItem
        Caption = #35222#35338#26684#24335
        OnClick = FormatMenuClick
      end
      object VideoSourceMenu: TMenuItem
        Caption = #35222#35338#20358#28304
        OnClick = VideoSourceMenuClick
      end
    end
    object ViewMenuItem: TMenuItem
      Caption = #27298#35222'(&V)'
      object LiveWinMenu: TMenuItem
        Caption = #35222#35338#21363#26178#35222#31383
        Checked = True
        OnClick = LiveWinMenuClick
      end
      object StatusWinMenu: TMenuItem
        Caption = #35222#35338#29376#27841#35222#31383
        Checked = True
        OnClick = StatusWinMenuClick
      end
    end
  end
  object SavePictureDialog1: TSavePictureDialog
    DefaultExt = 'BMP'
    Filter = 'Bitmaps (*.bmp)|*.bmp'
    Title = #20786#23384' BMP '#22294#24418#27284
    Left = 288
    Top = 24
  end
end