unitmain.dfm

来自「智能监控delphi源码, 操作说明 1. 在两台微机上分别运行文件夹中的可」· DFM 代码 · 共 810 行 · 第 1/3 页

  object btnClearDB: TButton
    Left = 360
    Top = 288
    Width = 75
    Height = 25
    Caption = #28165#31354#25968#25454#24211
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 10
    OnClick = btnClearDBClick
  end
  object memu: TMainMenu
    Left = 66
    Top = 5
    object File1: TMenuItem
      Caption = #25991#20214'(&F)'
      object NExit1: TMenuItem
        Caption = #36864#20986'(&X)'
        OnClick = NExit1Click
      end
    end
    object Edit1: TMenuItem
      Caption = #32534#36753
      object NStartMoniter: TMenuItem
        Caption = #25171#24320#30417#25511
        object NStartMoniter1: TMenuItem
          Caption = '1#'#25668#20687#22836
          OnClick = NStartMoniter1Click
        end
        object NStartMoniter2: TMenuItem
          Caption = '2#'#25668#20687#22836
          OnClick = NStartMoniter2Click
        end
      end
      object NStopMoniter: TMenuItem
        Caption = #20851#38381#30417#25511
        object NStopMoniter1: TMenuItem
          Caption = '1#'#25668#20687#22836
          Enabled = False
          OnClick = NStopMoniter1Click
        end
        object NStopMoniter2: TMenuItem
          Caption = '2#'#25668#20687#22836
          Enabled = False
          OnClick = NStopMoniter2Click
        end
      end
      object N7: TMenuItem
        Caption = '-'
      end
      object StartGet: TMenuItem
        Caption = #24320#22987#24405#20687
        object NStartGet1: TMenuItem
          Caption = '1#'#25668#20687#22836
          Enabled = False
          OnClick = NStartGet1Click
        end
        object NStartGet2: TMenuItem
          Caption = '2#'#25668#20687#22836
          Enabled = False
          OnClick = NStartGet2Click
        end
      end
      object StopGet: TMenuItem
        Caption = #32467#26463#24405#20687
        object NStopGet1: TMenuItem
          Caption = '1#'#25668#20687#22836
          Enabled = False
          OnClick = NStopGet1Click
        end
        object NStopGet2: TMenuItem
          Caption = '2#'#25668#20687#22836
          Enabled = False
          OnClick = NStopGet2Click
        end
      end
    end
    object Setup: TMenuItem
      Caption = #35774#32622
      object SelectMode1: TMenuItem
        Caption = #27169#24335#36873#25321
        object ManMode: TMenuItem
          Caption = #20154#24037#27169#24335
          Checked = True
          OnClick = ManModeClick
        end
        object ComputerMode: TMenuItem
          Caption = #26234#33021#27169#24335
          OnClick = ComputerModeClick
        end
      end
      object SelectAlarm: TMenuItem
        Caption = #25253#35686#36873#25321
        object AlarmOn: TMenuItem
          Caption = #21551#21160#25253#35686
          Checked = True
          OnClick = AlarmOnClick
        end
        object AlarmOff: TMenuItem
          Caption = #21462#28040#25253#35686
          OnClick = AlarmOffClick
        end
      end
      object MoniterMode: TMenuItem
        Caption = #30417#25511#26041#24335
        object MoniterAll: TMenuItem
          Caption = '2'#20010#25668#20687#22836#21516#26102#30417#25511
          Checked = True
          OnClick = MoniterAllClick
        end
        object MoniterNo1: TMenuItem
          Caption = '1#'#25668#20687#22836#21333#29420#30417#25511
          OnClick = MoniterNo1Click
        end
        object MoniterNo2: TMenuItem
          Caption = '2#'#25668#20687#22836#21333#29420#30417#25511
          OnClick = MoniterNo2Click
        end
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object SetTime: TMenuItem
        Caption = #35774#23450#24405#20687#26102#38388
        object Choise10s: TMenuItem
          Caption = '10'#31186
          Checked = True
          OnClick = Choise10sClick
        end
        object Choise20s: TMenuItem
          Caption = '20'#31186
          OnClick = Choise20sClick
        end
        object Choise30s: TMenuItem
          Caption = '30'#31186
          OnClick = Choise30sClick
        end
        object Choise60s: TMenuItem
          Caption = '60'#31186
          OnClick = Choise60sClick
        end
      end
    end
    object View: TMenuItem
      Caption = #26597#30475
      object NRec: TMenuItem
        Caption = #21382#21490#35760#24405
        OnClick = NRecClick
      end
      object Nop4: TMenuItem
        Caption = '-'
      end
      object LvEvent: TMenuItem
        Caption = #25773#25918#35270#39057#25991#20214
        object NOpenAvi1: TMenuItem
          Caption = #25668#20687#22836'#1'
          OnClick = NOpenAvi1Click
        end
        object NOpenAvi2: TMenuItem
          Caption = #25668#20687#22836'#2'
          OnClick = NOpenAvi2Click
        end
      end
    end
    object Help: TMenuItem
      Caption = #24110#21161
      object N3: TMenuItem
        Caption = #20351#29992#24110#21161
        OnClick = N3Click
      end
      object N4: TMenuItem
        Caption = #20851#20110'...'
        OnClick = N4Click
      end
    end
  end
  object SysTime: TTimer
    OnTimer = SysTimeTimer
    Left = 162
    Top = 512
  end
  object dlgOpen1: TOpenDialog
    Left = 107
    Top = 8
  end
  object Comm1: TComm
    CommName = 'COM1'
    BaudRate = 9600
    ParityCheck = False
    Outx_CtsFlow = False
    Outx_DsrFlow = False
    DtrControl = DtrEnable
    DsrSensitivity = False
    TxContinueOnXoff = True
    Outx_XonXoffFlow = True
    Inx_XonXoffFlow = True
    ReplaceWhenParityError = False
    IgnoreNullChar = False
    RtsControl = RtsEnable
    XonLimit = 500
    XoffLimit = 500
    ByteSize = _8
    Parity = None
    StopBits = _1
    XonChar = #17
    XoffChar = #19
    ReplacedChar = #0
    ReadIntervalTimeout = 100
    ReadTotalTimeoutMultiplier = 0
    ReadTotalTimeoutConstant = 0
    WriteTotalTimeoutMultiplier = 0
    WriteTotalTimeoutConstant = 0
    OnReceiveData = Comm1ReceiveData
    Left = 384
    Top = 424
  end
  object tmrRevStr: TTimer
    Interval = 1
    OnTimer = tmrRevStrTimer
    Left = 352
    Top = 424
  end
  object tmrDelayAuto1: TTimer
    Enabled = False
    Interval = 10000
    OnTimer = tmrDelayAuto1Timer
    Left = 104
    Top = 400
  end
  object tmrDelayAuto2: TTimer
    Enabled = False
    Interval = 10000
    OnTimer = tmrDelayAuto2Timer
    Left = 520
    Top = 400
  end
  object tmrDelayMan1: TTimer
    Enabled = False
    Interval = 10000
    OnTimer = tmrDelayMan1Timer
    Left = 200
    Top = 400
  end
  object tmrDelayMan2: TTimer
    Enabled = False
    Interval = 10000
    OnTimer = tmrDelayMan2Timer
    Left = 632
    Top = 400
  end
  object tmrFlash1: TTimer
    Enabled = False
    Interval = 500
    OnTimer = tmrFlash1Timer
    Left = 352
    Top = 96
  end
  object tmrFlash2: TTimer
    Enabled = False
    Interval = 500
    OnTimer = tmrFlash2Timer
    Left = 752
    Top = 96
  end
end