dtp_event.dfm

三汇CTI示例程序源码

object DTP_Form: TDTP_Form
  Left = 362
  Top = 122
  Width = 783
  Height = 540
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = 'DTP'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Scaled = False
  OnCreate = OnCreate
  OnDestroy = OnDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object m_CicList: TListView
    Left = 16
    Top = 16
    Width = 729
    Height = 217
    Columns = <
      item
        Caption = 'Cic'
      end
      item
        Caption = 'CicState'
        Width = 120
      end
      item
        Caption = 'CallerId'
        Width = 120
      end
      item
        Caption = 'CalleeId'
        Width = 120
      end
      item
        Caption = 'InComingCh:DTMF'
        Width = 140
      end
      item
        Caption = 'OutgoingCh:DTMF'
        Width = 140
      end>
    TabOrder = 0
    ViewStyle = vsReport
  end
  object GroupBox1: TGroupBox
    Left = 16
    Top = 264
    Width = 329
    Height = 185
    Caption = 'Function For Recording Mode'
    TabOrder = 1
    object RadioButton1: TRadioButton
      Left = 16
      Top = 40
      Width = 281
      Height = 17
      Caption = 'Call the function with circuit number as its parameter'
      Checked = True
      TabOrder = 0
      TabStop = True
      OnClick = RadioButton1Click
    end
    object RadioButton2: TRadioButton
      Left = 16
      Top = 96
      Width = 289
      Height = 17
      Caption = 'Call the function with channel number as its parameter'
      TabOrder = 1
      OnClick = RadioButton2Click
    end
  end
  object GroupBox2: TGroupBox
    Left = 360
    Top = 264
    Width = 385
    Height = 185
    Caption = 'Record Mode Setting'
    TabOrder = 2
    object Label1: TLabel
      Left = 32
      Top = 32
      Width = 15
      Height = 13
      Caption = 'Cic'
    end
    object m_cmbCic: TComboBox
      Left = 56
      Top = 24
      Width = 81
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 0
      OnChange = m_cmbCicChange
    end
    object RadioButton3: TRadioButton
      Left = 88
      Top = 72
      Width = 209
      Height = 17
      Caption = 'Record only incoming channels'
      TabOrder = 1
      OnClick = RadioButton3Click
    end
    object RadioButton4: TRadioButton
      Left = 88
      Top = 120
      Width = 241
      Height = 17
      Caption = 'Record only outgoing channels'
      TabOrder = 2
      OnClick = RadioButton4Click
    end
    object RadioButton5: TRadioButton
      Left = 88
      Top = 160
      Width = 289
      Height = 17
      Caption = 'Mix the recording of incoming and outgoing channels'
      Checked = True
      TabOrder = 3
      TabStop = True
      OnClick = RadioButton5Click
    end
  end
end