mainform.dfm

these are some texts and original program,they are very useful for transportation reserch.

object Form1: TForm1
  Left = 237
  Top = 61
  Width = 1038
  Height = 910
  Caption = 'Virtual Loop Video Detect v1.7'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 848
    Top = 752
    Width = 33
    Height = 13
    AutoSize = False
    Caption = #20142#24230
  end
  object Label2: TLabel
    Left = 848
    Top = 592
    Width = 41
    Height = 13
    AutoSize = False
    Caption = #24103#25968
  end
  object Label3: TLabel
    Left = 920
    Top = 592
    Width = 57
    Height = 13
    AutoSize = False
    Caption = #20989#25968#21517
  end
  object ShapeCap: TShape
    Left = 504
    Top = 832
    Width = 33
    Height = 41
    Shape = stCircle
  end
  object Label6: TLabel
    Left = 496
    Top = 816
    Width = 57
    Height = 13
    AutoSize = False
    Caption = #25235#25293#26174#31034
  end
  object Label9: TLabel
    Left = 776
    Top = 592
    Width = 41
    Height = 13
    AutoSize = False
    Caption = #26102#38388
  end
  object VideoWnd1: TVideoWnd
    Left = 2
    Top = 2
    Width = 768
    Height = 288
    OnMouseDown = VideoWnd1MouseDown
  end
  object VideoWnd2: TVideoWnd
    Left = 772
    Top = 148
    Width = 255
    Height = 144
  end
  object VideoWnd3: TVideoWnd
    Left = 772
    Top = 294
    Width = 255
    Height = 144
  end
  object VideoWnd4: TVideoWnd
    Left = 772
    Top = 440
    Width = 255
    Height = 144
  end
  object VideoWnd5: TVideoWnd
    Left = 2
    Top = 292
    Width = 768
    Height = 288
  end
  object VideoWnd6: TVideoWnd
    Left = 578
    Top = 584
    Width = 192
    Height = 144
  end
  object ButtonBg: TButton
    Left = 392
    Top = 840
    Width = 81
    Height = 35
    Caption = #25552#21462#32972#26223
    TabOrder = 6
    OnClick = ButtonBgClick
  end
  object VideoWnd7: TVideoWnd
    Left = 772
    Top = 2
    Width = 255
    Height = 144
  end
  object MemoFrameNum: TMemo
    Left = 848
    Top = 608
    Width = 65
    Height = 137
    ImeName = 'itABC v5.30'
    ScrollBars = ssVertical
    TabOrder = 8
  end
  object MemoBright: TMemo
    Left = 848
    Top = 768
    Width = 65
    Height = 113
    ImeName = 'itABC v5.30'
    Lines.Strings = (
      '')
    ScrollBars = ssVertical
    TabOrder = 9
  end
  object Memo1: TMemo
    Left = 920
    Top = 608
    Width = 105
    Height = 273
    ImeName = 'itABC v5.30'
    ScrollBars = ssVertical
    TabOrder = 10
  end
  object VideoWnd8: TVideoWnd
    Left = 578
    Top = 734
    Width = 192
    Height = 144
  end
  object ButtonStart: TButton
    Left = 312
    Top = 840
    Width = 73
    Height = 35
    Caption = #37319#38598
    TabOrder = 12
    OnClick = ButtonStartClick
  end
  object GroupBoxVideoCard: TGroupBox
    Left = 4
    Top = 800
    Width = 137
    Height = 81
    TabOrder = 13
    object Label4: TLabel
      Left = 8
      Top = 24
      Width = 24
      Height = 13
      Caption = #20840#26223
    end
    object Label5: TLabel
      Left = 8
      Top = 56
      Width = 24
      Height = 13
      Caption = #29305#20889
      ParentShowHint = False
      ShowHint = False
    end
    object ComboBoxQjCard: TComboBox
      Left = 40
      Top = 16
      Width = 41
      Height = 21
      Hint = #21345#21495
      ImeName = 'itABC v5.30'
      ItemHeight = 13
      ItemIndex = 0
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      Text = '0'
      Items.Strings = (
        '0'
        '1'
        '2'
        '3'
        '4'
        '5'
        '6'
        '7')
    end
    object ComboBoxQjChannel: TComboBox
      Left = 88
      Top = 16
      Width = 41
      Height = 21
      Hint = #36890#36947#21495
      ImeName = 'itABC v5.30'
      ItemHeight = 13
      ItemIndex = 0
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      Text = '0'
      Items.Strings = (
        '0'
        '1'
        '2'
        '3')
    end
    object ComboBoxTXCard: TComboBox
      Left = 40
      Top = 48
      Width = 41
      Height = 21
      Hint = #21345#21495
      ImeName = 'itABC v5.30'
      ItemHeight = 13
      ItemIndex = 1
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      Text = '1'
      Items.Strings = (
        '0'
        '1'
        '2'
        '3'
        '4'
        '5'
        '6'
        '7')
    end
    object ComboBoxTXChannel: TComboBox
      Left = 88
      Top = 48
      Width = 41
      Height = 21
      Hint = #36890#36947#21495
      ImeName = 'itABC v5.30'
      ItemHeight = 13
      ItemIndex = 0
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      Text = '0'
      Items.Strings = (
        '0'
        '1'
        '2'
        '3')
    end
  end
  object CheckBoxSave: TCheckBox
    Left = 152
    Top = 832
    Width = 57
    Height = 17
    Caption = #23384#22270
    Checked = True
    State = cbChecked
    TabOrder = 14
    OnClick = CheckBoxSaveClick
  end
  object GroupBox2: TGroupBox
    Left = 4
    Top = 584
    Width = 133
    Height = 217
    Caption = #32447#22280#20301#32622
    TabOrder = 15
    object Label7: TLabel
      Left = 8
      Top = 16
      Width = 121
      Height = 13
      AutoSize = False
      Caption = #39034#24207#65306#24038#19978#12289#21491#19978
    end
    object Label8: TLabel
      Left = 2
      Top = 32
      Width = 129
      Height = 13
      AutoSize = False
      Caption = #24038#19979#12289#21491#19979#12289#25235#25293#32447
    end
    object LabeledEditlooplt: TLabeledEdit
      Left = 48
      Top = 72
      Width = 33
      Height = 21
      Hint = 'lp_lt'
      EditLabel.Width = 24
      EditLabel.Height = 13
      EditLabel.Caption = #24038#19978
      ImeName = 'itABC v5.30'
      MaxLength = 3
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
    object LabeledEditlooplb: TLabeledEdit
      Left = 48
      Top = 152
      Width = 33
      Height = 21
      Hint = 'lp_lb'
      EditLabel.Width = 24
      EditLabel.Height = 13
      EditLabel.Caption = #24038#19979
      ImeName = 'itABC v5.30'
      MaxLength = 3
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
    end
    object LabeledEditlooprt: TLabeledEdit
      Left = 88
      Top = 72
      Width = 33
      Height = 21
      Hint = 'lp_rt'
      EditLabel.Width = 24
      EditLabel.Height = 13
      EditLabel.Caption = #21491#19978
      ImeName = 'itABC v5.30'
      MaxLength = 3
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
    end
    object LabeledEditlooprb: TLabeledEdit
      Left = 88
      Top = 152
      Width = 33
      Height = 21
      Hint = 'lp_rb'
      EditLabel.Width = 24
      EditLabel.Height = 13
      EditLabel.Caption = #21491#19979
      ImeName = 'itABC v5.30'
      MaxLength = 3
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
    end
    object LabeledEditlooptp: TLabeledEdit
      Left = 8
      Top = 72
      Width = 33
      Height = 21
      Hint = 'lp_tp'
      EditLabel.Width = 12
      EditLabel.Height = 13
      EditLabel.Caption = #19978
      ImeName = 'itABC v5.30'
      MaxLength = 3
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
    end
    object LabeledEditloopbtm: TLabeledEdit
      Left = 8
      Top = 152
      Width = 33
      Height = 21
      Hint = 'lp_btm'
      EditLabel.Width = 12
      EditLabel.Height = 13
      EditLabel.Caption = #19979
      ImeName = 'itABC v5.30'
      MaxLength = 3
      ParentShowHint = False
      ShowHint = True
      TabOrder = 5
    end
    object LabeledEditloopcpt: TLabeledEdit
      Left = 8
      Top = 112
      Width = 33
      Height = 21
      Hint = 'lp_cpt'
      EditLabel.Width = 36
      EditLabel.Height = 13
      EditLabel.Caption = #25235#25293#32447
      ImeName = 'itABC v5.30'
      MaxLength = 3
      ParentShowHint = False
      ShowHint = True
      TabOrder = 6
    end
    object ButtonEditLoopParam: TButton
      Left = 40
      Top = 184
      Width = 57