myvideocapture.dfm

Simple example of circle detection in OpenCV + C++Builder6.

object Form1: TForm1
  Left = 331
  Top = 183
  Width = 424
  Height = 447
  Caption = #1042#1080#1076#1077#1086#1080#1079#1084#1077#1088#1080#1090#1077#1083#1100' '#1087#1077#1095#1077#1085#1100#1103
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 8
    Top = 8
    Width = 345
    Height = 289
    FullRepaint = False
    TabOrder = 0
  end
  object TrackBar1: TTrackBar
    Left = 360
    Top = 8
    Width = 45
    Height = 297
    Max = 255
    Min = 50
    Orientation = trVertical
    Frequency = 1
    Position = 200
    SelEnd = 0
    SelStart = 0
    TabOrder = 1
    TickMarks = tmBottomRight
    TickStyle = tsAuto
    OnChange = TrackBar1Change
  end
  object iAnalogDisplay1: TiAnalogDisplay
    Left = 96
    Top = 304
    OptionSaveAllProperties = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clAqua
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ErrorActive = False
    ErrorText = 'Error'
    ErrorFont.Charset = DEFAULT_CHARSET
    ErrorFont.Color = clRed
    ErrorFont.Height = -11
    ErrorFont.Name = 'MS Sans Serif'
    ErrorFont.Style = [fsBold]
    ErrorBackGroundColor = clBlack
  end
  object iAnalogDisplay2: TiAnalogDisplay
    Left = 96
    Top = 328
    OptionSaveAllProperties = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clAqua
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ErrorActive = False
    ErrorText = 'Error'
    ErrorFont.Charset = DEFAULT_CHARSET
    ErrorFont.Color = clRed
    ErrorFont.Height = -11
    ErrorFont.Name = 'MS Sans Serif'
    ErrorFont.Style = [fsBold]
    ErrorBackGroundColor = clBlack
  end
  object iAnalogDisplay3: TiAnalogDisplay
    Left = 96
    Top = 352
    OptionSaveAllProperties = False
    Precision = 2
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clAqua
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ErrorActive = False
    ErrorText = 'Error'
    ErrorFont.Charset = DEFAULT_CHARSET
    ErrorFont.Color = clRed
    ErrorFont.Height = -11
    ErrorFont.Name = 'MS Sans Serif'
    ErrorFont.Style = [fsBold]
    ErrorBackGroundColor = clBlack
  end
  object iLabel1: TiLabel
    Left = 8
    Top = 309
    Width = 78
    OptionSaveAllProperties = False
    Caption = 'X - '#1082#1086#1086#1088#1076#1080#1085#1072#1090#1072' '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
  end
  object iLabel2: TiLabel
    Left = 7
    Top = 334
    Width = 78
    OptionSaveAllProperties = False
    Caption = 'Y - '#1082#1086#1086#1088#1076#1080#1085#1072#1090#1072' '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
  end
  object iLabel3: TiLabel
    Left = 8
    Top = 355
    Width = 36
    OptionSaveAllProperties = False
    Caption = #1056#1072#1076#1080#1091#1089
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
  end
  object Button1: TButton
    Left = 184
    Top = 304
    Width = 49
    Height = 41
    Caption = '1 '#1077#1076'.'
    TabOrder = 8
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 184
    Top = 344
    Width = 49
    Height = 28
    Caption = #1057#1073#1088#1086#1089
    TabOrder = 9
    OnClick = Button2Click
  end
  object iAnalogDisplay4: TiAnalogDisplay
    Left = 96
    Top = 376
    OptionSaveAllProperties = False
    Precision = 2
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clAqua
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ErrorActive = False
    ErrorText = 'Error'
    ErrorFont.Charset = DEFAULT_CHARSET
    ErrorFont.Color = clRed
    ErrorFont.Height = -11
    ErrorFont.Name = 'MS Sans Serif'
    ErrorFont.Style = [fsBold]
    ErrorBackGroundColor = clBlack
  end
  object iLabel4: TiLabel
    Left = 8
    Top = 379
    Width = 47
    OptionSaveAllProperties = False
    Caption = #1055#1083#1086#1097#1072#1076#1100
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
  end
end