mainfrm.dfm

三汇CTI示例程序源码

object MainForm: TMainForm
  Left = 192
  Top = 107
  BorderStyle = bsDialog
  Caption = 'MainForm'
  ClientHeight = 573
  ClientWidth = 792
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 24
    Top = 472
    Width = 111
    Height = 13
    Caption = 'Record Coding Format:'
  end
  object Label2: TLabel
    Left = 48
    Top = 507
    Width = 86
    Height = 13
    Caption = 'Listened Channel:'
  end
  object LVMain: TListView
    Left = 16
    Top = 16
    Width = 761
    Height = 433
    Columns = <>
    TabOrder = 0
    ViewStyle = vsReport
  end
  object RdBtnDefault: TRadioButton
    Left = 192
    Top = 472
    Width = 73
    Height = 17
    Caption = 'Default'
    TabOrder = 1
    OnClick = RdBtnDefaultClick
  end
  object RdBtnALaw: TRadioButton
    Left = 272
    Top = 472
    Width = 73
    Height = 17
    Caption = 'A-Law'
    TabOrder = 2
    OnClick = RdBtnALawClick
  end
  object RdBtnULaw: TRadioButton
    Left = 352
    Top = 472
    Width = 73
    Height = 17
    Caption = #956'-Law'
    TabOrder = 3
    OnClick = RdBtnULawClick
  end
  object CmbBxListenCh: TComboBox
    Left = 160
    Top = 504
    Width = 65
    Height = 21
    ItemHeight = 13
    TabOrder = 4
    OnChange = CmbBxListenChChange
  end
  object BtnStartListen: TButton
    Left = 248
    Top = 504
    Width = 89
    Height = 25
    Caption = 'Start Listen'
    TabOrder = 8
    OnClick = BtnStartListenClick
  end
  object BtnStopListen: TButton
    Left = 352
    Top = 504
    Width = 89
    Height = 25
    Caption = 'Stop Listen'
    TabOrder = 9
    OnClick = BtnStopListenClick
  end
  object RdBtnIMA: TRadioButton
    Left = 432
    Top = 472
    Width = 89
    Height = 17
    Caption = 'IMA ADPCM'
    TabOrder = 5
    OnClick = RdBtnIMAClick
  end
  object RdBtnGC8: TRadioButton
    Left = 528
    Top = 472
    Width = 57
    Height = 17
    Caption = 'GC8'
    TabOrder = 6
    OnClick = RdBtnGC8Click
  end
  object RdBtnG729A: TRadioButton
    Left = 608
    Top = 472
    Width = 73
    Height = 17
    Caption = 'G729A'
    TabOrder = 7
    OnClick = RdBtnG729AClick
  end
  object BtnExit: TButton
    Left = 672
    Top = 504
    Width = 89
    Height = 25
    Cancel = True
    Caption = 'E&xit'
    TabOrder = 10
    OnClick = BtnExitClick
  end
  object MainTimer: TTimer
    Enabled = False
    Interval = 200
    OnTimer = MainTimerTimer
    Left = 496
    Top = 520
  end
end