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
    Frames = <
      item
        VideoSource = ocvflsrc1
        DrawRect.Left = 0
        DrawRect.Top = 0
        DrawRect.Right = 100
        DrawRect.Bottom = 100
        Enabled = True
      end>
  end
  object ocvw2: TocvView
    Left = 8
    Top = 361
    Width = 300
    Height = 300
    VideoSource = ocvmgprtn1
    Center = True
    Frames = <>
  end
  object ocvw3: TocvView
    Left = 316
    Top = 358
    Width = 300
    Height = 300
    VideoSource = ocvflsrc1
    Frames = <>
  end
  object ocvw4: TocvView
    Left = 316
    Top = 28
    Width = 300
    Height = 300
    VideoSource = ocvpcmsrc1
    Frames = <>
  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 = 'TocvRotateOperation'
    Operation.Angle = 90
    Operation.RotateAroundCenter = True
    Operation.Scale = 1.000000000000000000
    Operations = <
      item
        OperationClassName = 'TocvNoneOperation'
      end
      item
        OperationClassName = 'TocvNoneOperation'
      end>
    OperationsEnabled = False
    OnAfterEachOperation = ocvmgprtn1AfterEachOperation
    Left = 36
    Top = 392
  end
  object ocvflsrc1: TocvFileSource
    Enabled = True
    Delay = 120
    FileName = '..\..\resource\media\768x576.avi'
    Left = 340
    Top = 380
  end
  object ocvcmrsrc1: TocvCameraSource
    Enabled = True
    Resolution = r320x240
    Left = 32
    Top = 40
  end
  object ocvpcmsrc1: TocvIPCamSource
    IP = '80.78.116.125'
    URI = '/rtplive/plot_hd.stream'
    Port = 1935
    Left = 336
    Top = 44
  end
end