object fmain: Tfmain
  Left = 208
  Top = 129
  Caption = 'DirectShow Video Capture Demo - www.ImageEn.com'
  ClientHeight = 624
  ClientWidth = 849
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = True
  Position = poScreenCenter
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 480
    Top = 0
    Width = 369
    Height = 624
    Align = alRight
    BevelOuter = bvNone
    TabOrder = 0
    object SpeedButton1: TSpeedButton
      Left = 120
      Top = 221
      Width = 129
      Height = 44
      AllowAllUp = True
      GroupIndex = 1
      Caption = 'Show Video'
      OnClick = SpeedButton1Click
    end
    object LabelCaptureInfo: TLabel
      Left = 8
      Top = 592
      Width = 32
      Height = 13
      Caption = '- - - - -'
    end
    object GroupBox1: TGroupBox
      Left = 7
      Top = 8
      Width = 354
      Height = 201
      Caption = ' Source '
      TabOrder = 0
      object Label1: TLabel
        Left = 9
        Top = 24
        Width = 55
        Height = 13
        Caption = 'Video Input'
      end
      object Label5: TLabel
        Left = 8
        Top = 56
        Width = 39
        Height = 13
        Caption = 'Formats'
      end
      object Label8: TLabel
        Left = 8
        Top = 126
        Width = 62
        Height = 13
        Caption = 'Video Source'
      end
      object ComboBox1: TComboBox
        Left = 80
        Top = 21
        Width = 240
        Height = 21
        Style = csDropDownList
        TabOrder = 0
        OnChange = ComboBox1Change
      end
      object Button1: TButton
        Left = 8
        Top = 167
        Width = 98
        Height = 25
        Caption = 'Video Dialog'
        TabOrder = 1
        OnClick = Button1Click
      end
      object Button2: TButton
        Left = 208
        Top = 167
        Width = 98
        Height = 25
        Caption = 'Format Dialog'
        TabOrder = 2
        OnClick = Button2Click
      end
      object ListBox1: TListBox
        Left = 80
        Top = 53
        Width = 265
        Height = 63
        ItemHeight = 13
        TabOrder = 3
      end
      object ComboBox2: TComboBox
        Left = 80
        Top = 123
        Width = 145
        Height = 21
        Style = csDropDownList
        TabOrder = 4
        OnChange = ComboBox2Change
      end
      object Button3: TButton
        Left = 107
        Top = 167
        Width = 98
        Height = 25
        Caption = 'Video Input Source'
        TabOrder = 5
        OnClick = Button3Click
      end
      object Edit4: TEdit
        Left = 323
        Top = 21
        Width = 22
        Height = 21
        TabOrder = 6
        Text = '0'
      end
    end
    object ImageEnView1: TImageEnView
      Left = 40
      Top = 328
      Width = 297
      Height = 241
      Background = clBtnFace
      MouseInteract = [miMoveLayers, miResizeLayers]
      OnDShowNewFrame = ImageEnView1DShowNewFrame
      EnableInteractionHints = True
      TabOrder = 1
    end
    object Button4: TButton
      Left = 120
      Top = 276
      Width = 129
      Height = 41
      Caption = 'Get Frame'
      TabOrder = 2
      OnClick = Button4Click
    end
    object Button5: TButton
      Left = 265
      Top = 221
      Width = 97
      Height = 18
      Caption = 'Adjust Frame Rect'
      TabOrder = 3
      OnClick = Button5Click
    end
    object Button6: TButton
      Left = 248
      Top = 592
      Width = 99
      Height = 25
      Caption = 'Save Frames...'
      TabOrder = 4
      OnClick = Button6Click
    end
  end
  object ImageEnMView1: TImageEnMView
    Left = 0
    Top = 0
    Width = 480
    Height = 624
    Background = clBtnFace
    ParentCtl3D = False
    StoreType = ietNormal
    ThumbWidth = 100
    ThumbHeight = 100
    HorizBorder = 4
    VertBorder = 4
    TextMargin = 0
    GridWidth = -1
    SelectionWidth = 3
    SelectionColor = clRed
    Style = iemsFlat
    ThumbnailsBackground = clBtnFace
    ThumbnailsBackgroundSelected = clBtnFace
    MultiSelectionOptions = []
    ThumbnailsBorderWidth = 0
    ThumbnailsBorderColor = clBlack
    Align = alClient
    TabOrder = 1
  end
end