Delphi-OpenCV/samples/Components/cCameraCapture/uMainForm.dfm

object MainForm: TMainForm
  Left = 0
  Top = 0
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'OpenCV - Component demo'
  ClientHeight = 669
  ClientWidth = 624
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object lbl1: TLabel
    Left = 8
    Top = 338
    Width = 79
    Height = 13
    Caption = 'Image operation'
  end
  object cbb1: TComboBox
    Left = 93
    Top = 335
    Width = 145
    Height = 21
    Style = csDropDownList
    TabOrder = 0
    OnChange = cbb1Change
    Items.Strings = (
      'None'
      'Convert to grayscale'
      'Canny'
      'Smooth'
      'Erode'
      'Dilate'
      'Laplace'
      'Sobel'
      'Threshold')
  end
  object chk1: TCheckBox
    Left = 8
    Top = 5
    Width = 117
    Height = 17
    Caption = 'Camera enabled'
    Checked = True
    State = cbChecked
    TabOrder = 1
    OnClick = chk1Click
  end
  object ocvw1: TocvView
    Left = 8
    Top = 28
    Width = 300
    Height = 300
    VideoSource = ocvcmrsrc1
  end
  object ocvw2: TocvView
    Left = 8
    Top = 358
    Width = 300
    Height = 300
    VideoSource = ocvmgprtn1
  end
  object ocvw3: TocvView
    Left = 316
    Top = 358
    Width = 300
    Height = 300
    VideoSource = ocvflsrc1
  end
  object ocvw4: TocvView
    Left = 316
    Top = 28
    Width = 300
    Height = 300
    VideoSource = ocvpcmsrc1
  end
  object chk2: TCheckBox
    Left = 314
    Top = 5
    Width = 129
    Height = 17
    Caption = 'IP Camera enabled'
    TabOrder = 6
    OnClick = chk2Click
  end
  object chk3: TCheckBox
    Left = 314
    Top = 338
    Width = 187
    Height = 17
    Caption = 'File source'
    TabOrder = 7
    OnClick = chk3Click
  end
  object ocvmgprtn1: TocvImageOperation
    VideoSource = ocvcmrsrc1
    OperationClassName = 'TocvHaarCascade'
    Operation.HaarCascade = hcLeftEye2Splits
    Operation.Equalize = True
    Operation.Scale = 1.300000000000000000
    Operation.MinNeighbors = 3
    Operation.MinSize.X = 30
    Operation.MinSize.Y = 30
    Operation.MaxSize.X = 0
    Operation.MaxSize.Y = 0
    Operation.DrawHaarCascade.Thickness = 3
    Operation.DrawHaarCascade.Offset.X = 0
    Operation.DrawHaarCascade.Offset.Y = 0
    Operation.DrawHaarCascade.Color = clRed
    Operation.CascadeFlags = [HAAR_DO_CANNY_PRUNING, HAAR_SCALE_IMAGE, HAAR_FIND_BIGGEST_OBJECT]
    Operation.NotifyOnlyWhenFound = False
    Operations = <>
    OperationsEnabled = False
    Left = 36
    Top = 392
  end
  object ocvflsrc1: TocvFileSource
    Delay = 120
    FileName = '.\Resource\768x576.avi'
    Left = 372
    Top = 396
  end
  object ocvcmrsrc1: TocvCameraSource
    Enabled = True
    Resolution = r960x544
    Left = 32
    Top = 40
  end
  object ocvpcmsrc1: TocvIPCamSource
    UserName = 'admin'
    Password = 'admin'
    IP = '10.1.1.202'
    Postfix = 'cam/realmonitor?channel=1&subtype=0'
    Left = 336
    Top = 44
  end
end