main.dfm

三汇CTI示例程序源码

object MainForm: TMainForm
  Left = 100
  Top = 152
  Width = 635
  Height = 254
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label2: TLabel
    Left = 16
    Top = 196
    Width = 42
    Height = 14
    Caption = #36890'  '#36947
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object ChannelListView: TListView
    Left = 8
    Top = 16
    Width = 609
    Height = 169
    Columns = <
      item
        Caption = #36890#36947
        MaxWidth = 50
        Width = 40
      end
      item
        Caption = #36890#36947#29366#24577
        MaxWidth = 500
        MinWidth = 50
        Width = 60
      end
      item
        Caption = #24037#20316#26041#24335
        MaxWidth = 100
        MinWidth = 50
        Width = 60
      end
      item
        Caption = #21551#21160#38190
        MaxWidth = 50
        MinWidth = 50
      end
      item
        Caption = #26159#21542#30417#21548
        MaxWidth = 100
        MinWidth = 50
        Width = 60
      end
      item
        Caption = 'RxDTMF'
        MaxWidth = 200
      end
      item
        Caption = 'CallerId'
        MaxWidth = 100
      end
      item
        Caption = #20986#38169#20449#24687
        MaxWidth = 350
        Width = 250
      end>
    ColumnClick = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    GridLines = True
    ParentFont = False
    ParentShowHint = False
    ShowHint = False
    TabOrder = 0
    ViewStyle = vsReport
  end
  object ComCur_Line: TComboBox
    Left = 64
    Top = 194
    Width = 41
    Height = 21
    ItemHeight = 13
    TabOrder = 1
    OnChange = ComCur_LineChange
  end
  object SetListen: TBitBtn
    Left = 264
    Top = 194
    Width = 65
    Height = 25
    Caption = #35774#32622#30417#21548
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = SetListenClick
  end
  object UnSetListen: TBitBtn
    Left = 336
    Top = 194
    Width = 65
    Height = 25
    Caption = #21462#28040#30417#21548
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = UnSetListenClick
  end
  object Play: TBitBtn
    Left = 408
    Top = 194
    Width = 65
    Height = 25
    Caption = #25773#25918#24405#38899
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = PlayClick
  end
  object StopPlay: TBitBtn
    Left = 480
    Top = 194
    Width = 65
    Height = 25
    Caption = #20572#27490#25918#38899
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    OnClick = StopPlayClick
  end
  object CommandExit: TBitBtn
    Left = 552
    Top = 194
    Width = 65
    Height = 25
    Caption = #36864#20986
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 6
    OnClick = CommandExitClick
  end
  object RadioButton1: TRadioButton
    Left = 112
    Top = 192
    Width = 49
    Height = 25
    Caption = #22768#25511
    Checked = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 7
    TabStop = True
    OnClick = RadioButton1Click
  end
  object RadioButton2: TRadioButton
    Left = 160
    Top = 192
    Width = 49
    Height = 25
    Caption = #21387#25511
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 8
    OnClick = RadioButton2Click
  end
  object RadioButton3: TRadioButton
    Left = 208
    Top = 192
    Width = 49
    Height = 25
    Caption = #30721#25511
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 9
    OnClick = RadioButton3Click
  end
  object Timer1: TTimer
    Interval = 100
    OnTimer = Timer1Timer
    Left = 136
    Top = 65528
  end
end