frmtapi.dfm

delphi下的tapi控件

object Form1: TForm1
  Left = 240
  Top = 102
  BorderStyle = bsSingle
  Caption = 'Demo Phone'
  ClientHeight = 549
  ClientWidth = 551
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 297
    Height = 73
    Caption = 'Telephony Device:'
    TabOrder = 0
    object LabelTAPIVersion: TLabel
      Left = 8
      Top = 48
      Width = 177
      Height = 13
      AutoSize = False
    end
    object ComboLineName: TComboBox
      Left = 8
      Top = 16
      Width = 281
      Height = 21
      ItemHeight = 13
      TabOrder = 0
      OnChange = ComboLineNameChange
    end
    object CommandCaps: TButton
      Left = 200
      Top = 45
      Width = 89
      Height = 22
      Caption = 'Capabilities'
      Enabled = False
      TabOrder = 1
      OnClick = CommandCapsClick
    end
  end
  object GroupBox2: TGroupBox
    Left = 8
    Top = 88
    Width = 297
    Height = 329
    Caption = 'Subscriber number'
    TabOrder = 1
    object Label1: TLabel
      Left = 8
      Top = 285
      Width = 95
      Height = 13
      Caption = 'Displayable number:'
    end
    object LabelDisplayableNumber: TLabel
      Left = 8
      Top = 301
      Width = 209
      Height = 17
      AutoSize = False
    end
    object TextSubscriberNumber: TEdit
      Left = 8
      Top = 24
      Width = 177
      Height = 21
      TabOrder = 0
    end
    object CommandTranslate: TButton
      Left = 200
      Top = 24
      Width = 89
      Height = 22
      Caption = 'Translate'
      TabOrder = 1
      OnClick = CommandTranslateClick
    end
    object CommandLocation: TButton
      Left = 200
      Top = 150
      Width = 89
      Height = 22
      Caption = 'Location'
      TabOrder = 2
      OnClick = CommandLocationClick
    end
    object Memo1: TMemo
      Left = 8
      Top = 56
      Width = 281
      Height = 94
      BorderStyle = bsNone
      Color = clInactiveCaptionText
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Lines.Strings = (
        'The number to be called can be entered in canonical '
        'format e.g. [phone] and then translated '
        'using the dialing rules for the users current Location.'
        'Enter a subscriber number before showing the Location '
        'dialog and the effect of the dialing rules on the number '
        'to be dialed will be shown at the bottom of the location '
        'dialog.')
      ParentFont = False
      TabOrder = 3
    end
    object Memo2: TMemo
      Left = 8
      Top = 181
      Width = 281
      Height = 100
      BorderStyle = bsNone
      Color = clInactiveCaptionText
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Lines.Strings = (
        'The TranslateNumber method returns a number that '
        'can safely be displayed to the user for confirmation. It '
        'will be identical to the dialable number, except that '
        'calling card digits will be replaced with the "friendly '
        'name" of the card enclosed within bracket characters '
        'for example [AT&T Card]. No private information will be '
        'displayed.')
      ParentFont = False
      TabOrder = 4
    end
  end
  object GroupBox3: TGroupBox
    Left = 8
    Top = 424
    Width = 297
    Height = 116
    Caption = 'Dialable number'
    TabOrder = 2
    object TextDialableNumber: TEdit
      Left = 8
      Top = 24
      Width = 179
      Height = 21
      TabOrder = 0
    end
    object CommandMakeCall: TButton
      Left = 200
      Top = 86
      Width = 89
      Height = 22
      Caption = 'Make call'
      TabOrder = 1
      OnClick = CommandMakeCallClick
    end
    object Memo3: TMemo
      Left = 8
      Top = 48
      Width = 281
      Height = 33
      BorderStyle = bsNone
      Color = clInactiveCaptionText
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Lines.Strings = (
        'The number to be called can be entered directly or can '
        'be obtained using the translation method above.')
      ParentFont = False
      TabOrder = 2
    end
  end
  object GroupBox4: TGroupBox
    Left = 312
    Top = 88
    Width = 233
    Height = 393
    Caption = 'Call information'
    TabOrder = 3
    object Label2: TLabel
      Left = 8
      Top = 24
      Width = 54
      Height = 13
      Caption = 'Call status: '
    end
    object LabelCallState: TLabel
      Left = 64
      Top = 24
      Width = 68
      Height = 13
      Caption = 'LabelCallState'
    end
    object Label3: TLabel
      Left = 8
      Top = 208
      Width = 43
      Height = 13
      Caption = 'Caller ID:'
    end
    object TextCallState: TMemo
      Left = 8
      Top = 40
      Width = 215
      Height = 97
      TabOrder = 0
    end
    object CommandClearStatus: TButton
      Left = 136
      Top = 144
      Width = 89
      Height = 22
      Caption = 'Clear Status'
      TabOrder = 1
      OnClick = CommandClearStatusClick
    end
    object TextCallerID: TMemo
      Left = 8
      Top = 224
      Width = 215
      Height = 116
      TabOrder = 2
    end
    object CommandClearCallerID: TButton
      Left = 136
      Top = 355
      Width = 89
      Height = 22
      Caption = 'Clear CID'
      TabOrder = 3
      OnClick = CommandClearCallerIDClick
    end
  end
  object amTapi1: TamTapi
    Left = 511
    Top = 505
    Width = 32
    Height = 32
    OnCallState = amTapi1CallState
    OnDigitReceived = amTapi1DigitReceived
    OnDelayedError = amTapi1DelayedError
    OnCallerID = amTapi1CallerID
    OnDisconnected = amTapi1Disconnected
    OnConnected = amTapi1Connected
    OnIncomingCall = amTapi1IncomingCall
    OnIdle = amTapi1Idle
    ControlData = {000300004F0300004F030000030008000000030004000000}
  end
  object CommandAnswer: TButton
    Left = 316
    Top = 518
    Width = 89
    Height = 22
    Caption = 'Answer'
    TabOrder = 5
    OnClick = CommandAnswerClick
  end
  object CommandHangUp: TButton
    Left = 420
    Top = 518
    Width = 89
    Height = 22
    Caption = 'Hang up'
    TabOrder = 6
    OnClick = CommandHangUpClick
  end
  object CheckAutoAnswer: TCheckBox
    Left = 316
    Top = 488
    Width = 97
    Height = 17
    Caption = 'Auto answer'
    TabOrder = 7
  end
  object GroupBox5: TGroupBox
    Left = 312
    Top = 8
    Width = 233
    Height = 73
    TabOrder = 8
    object Label4: TLabel
      Left = 24
      Top = 11
      Width = 187
      Height = 16
      Caption = 'amTapi Lite Demonstration'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label5: TLabel
      Left = 24
      Top = 32
      Width = 191
      Height = 13
      Caption = 'Make and answer voice telephone calls.'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 24
      Top = 46
      Width = 194
      Height = 13
      Caption = 'Monitor Caller ID and DTMF touch tones.'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
  end
end