main.dfm

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

object Form1: TForm1
  Left = 110
  Top = 139
  Align = alTop
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'VIDEO CAPTURE'
  ClientHeight = 80
  ClientWidth = 580
  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
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object DriverIndexLabel: TLabel
    Left = 3
    Top = 0
    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 DriverIndexComboBox: TComboBox
    Left = 86
    Top = 1
    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 ScaleCheckBox: TCheckBox
    Left = 8
    Top = 32
    Width = 137
    Height = 17
    Caption = 'Preview'#33258#21205#32302#25918
    TabOrder = 1
    OnClick = ScaleCheckBoxClick
  end
  object PropCheckBox: TCheckBox
    Left = 6
    Top = 53
    Width = 105
    Height = 17
    Caption = #38263#23532#31561#27604#20363
    TabOrder = 2
    OnClick = PropCheckBoxClick
  end
  object RECGroupBox: TGroupBox
    Left = 157
    Top = 26
    Width = 186
    Height = 49
    Caption = #37636#24433
    Enabled = False
    TabOrder = 3
    object StartREC: TSpeedButton
      Left = 7
      Top = 17
      Width = 40
      Height = 28
      Hint = #38283#22987#37636#24433
      GroupIndex = 1
      Caption = 'l'
      Font.Charset = SYMBOL_CHARSET
      Font.Color = clWindowText
      Font.Height = -21
      Font.Name = 'Wingdings'
      Font.Style = []
      NumGlyphs = 2
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      Spacing = 0
      OnClick = SetRECStatus
    end
    object StopREC: TSpeedButton
      Left = 47
      Top = 17
      Width = 40
      Height = 28
      Hint = #20572#27490#37636#24433
      GroupIndex = 1
      Down = True
      Caption = 'n'
      Font.Charset = SYMBOL_CHARSET
      Font.Color = clRed
      Font.Height = -21
      Font.Name = 'Wingdings'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = SetRECStatus
    end
    object SaveAVIButton: TSpeedButton
      Left = 128
      Top = 17
      Width = 40
      Height = 28
      Hint = #37636#24433#23384#27284
      AllowAllUp = True
      Font.Charset = SYMBOL_CHARSET
      Font.Color = clRed
      Font.Height = -21
      Font.Name = 'Wingdings'
      Font.Style = []
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070
        7700333333337777777733333333008088003333333377F73377333333330088
        88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000
        000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF
        FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039
        99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999
        99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
        99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
        93337FFFF7737777733300000033333333337777773333333333}
      NumGlyphs = 2
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = SaveAVIButtonClick
    end
    object ManualCapBtn: TSpeedButton
      Left = 87
      Top = 17
      Width = 40
      Height = 28
      Hint = #25163#21205#37636#24433
      AllowAllUp = True
      Font.Charset = SYMBOL_CHARSET
      Font.Color = clRed
      Font.Height = -21
      Font.Name = 'Wingdings'
      Font.Style = []
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
        033333FFFF77777773F330000077777770333777773FFFFFF733077777000000
        03337F3F3F777777733F0797A770003333007F737337773F3377077777778803
        30807F333333337FF73707888887880007707F3FFFF333777F37070000878807
        07807F777733337F7F3707888887880808807F333333337F7F37077777778800
        08807F333FFF337773F7088800088803308073FF777FFF733737300008000033
        33003777737777333377333080333333333333F7373333333333300803333333
        33333773733333333333088033333333333373F7F33333333333308033333333
        3333373733333333333333033333333333333373333333333333}
      NumGlyphs = 2
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = ManualCapBtnClick
    end
  end
  object MainMenu1: TMainMenu
    Left = 517
    Top = 2
    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
      object capParmsMenu: TMenuItem
        Caption = #37636#24433#21443#25976
        OnClick = capParmsMenuClick
      end
      object AVITempMenu: TMenuItem
        Caption = #37636#24433#26283#23384#27284
        OnClick = AVITempMenuClick
      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 = 422
    Top = 3
  end
  object RecTimer: TTimer
    Enabled = False
    OnTimer = RecTimerTimer
    Left = 468
    Top = 3
  end
  object SaveAVIDialog: TSaveDialog
    DefaultExt = 'AVI'
    Filter = 'AVI FILE (*.AVI)|*.AVI'
    Left = 383
    Top = 27
  end
end