rastest.dfm

TRasObject实现了一些主要的函数

object fMain: TfMain
  Left = 426
  Top = 214
  BorderStyle = bsSingle
  Caption = 'TrasObject test program'
  ClientHeight = 251
  ClientWidth = 418
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 56
    Top = 8
    Width = 35
    Height = 13
    Caption = 'Entries:'
  end
  object Label2: TLabel
    Left = 184
    Top = 8
    Width = 94
    Height = 13
    Caption = 'Active connections:'
  end
  object lName: TLabel
    Left = 192
    Top = 24
    Width = 13
    Height = 13
    Caption = '...'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label4: TLabel
    Left = 184
    Top = 39
    Width = 60
    Height = 13
    Caption = 'Device type:'
  end
  object Label5: TLabel
    Left = 184
    Top = 55
    Width = 66
    Height = 13
    Caption = 'Device name:'
  end
  object Label6: TLabel
    Left = 184
    Top = 71
    Width = 33
    Height = 13
    Caption = 'Status:'
  end
  object lDeviceType: TLabel
    Left = 264
    Top = 39
    Width = 9
    Height = 13
    Caption = '...'
  end
  object lDeviceName: TLabel
    Left = 264
    Top = 55
    Width = 9
    Height = 13
    Caption = '...'
  end
  object lStatus: TLabel
    Left = 192
    Top = 82
    Width = 9
    Height = 13
    Caption = '...'
  end
  object Circle: TShape
    Left = 97
    Top = 5
    Width = 17
    Height = 17
    Shape = stCircle
  end
  object Label7: TLabel
    Left = 160
    Top = 128
    Width = 56
    Height = 13
    Caption = 'User Name:'
  end
  object Label8: TLabel
    Left = 160
    Top = 148
    Width = 49
    Height = 13
    Caption = 'Password:'
  end
  object Label9: TLabel
    Left = 160
    Top = 168
    Width = 39
    Height = 13
    Caption = 'Domain:'
  end
  object Label10: TLabel
    Left = 160
    Top = 187
    Width = 72
    Height = 13
    Caption = 'Phone number:'
  end
  object Label11: TLabel
    Left = 160
    Top = 208
    Width = 79
    Height = 13
    Caption = 'Callback number'
  end
  object lbRas: TListBox
    Left = 16
    Top = 24
    Width = 121
    Height = 153
    ItemHeight = 13
    PopupMenu = PopUpConnections
    TabOrder = 0
    OnClick = lbRasClick
  end
  object SB: TStatusBar
    Left = 0
    Top = 232
    Width = 418
    Height = 19
    Panels = <>
    SimplePanel = True
  end
  object btnUpdate: TButton
    Left = 1
    Top = 6
    Width = 52
    Height = 17
    Caption = 'Update'
    TabOrder = 2
    OnClick = btnUpdateClick
  end
  object eUserName: TEdit
    Left = 248
    Top = 122
    Width = 161
    Height = 21
    TabOrder = 3
  end
  object ePassword: TEdit
    Left = 248
    Top = 142
    Width = 161
    Height = 21
    TabOrder = 4
  end
  object eDomain: TEdit
    Left = 248
    Top = 162
    Width = 161
    Height = 21
    TabOrder = 5
  end
  object ePhone: TEdit
    Left = 248
    Top = 182
    Width = 161
    Height = 21
    TabOrder = 6
  end
  object eCallback: TEdit
    Left = 248
    Top = 202
    Width = 161
    Height = 21
    TabOrder = 7
  end
  object btnClearFields: TButton
    Left = 312
    Top = 100
    Width = 73
    Height = 17
    Caption = 'Clear fields'
    TabOrder = 8
    OnClick = btnClearFieldsClick
  end
  object chUse: TCheckBox
    Left = 144
    Top = 104
    Width = 161
    Height = 17
    Caption = 'Use the following parameters'
    TabOrder = 9
  end
  object PopUpConnections: TPopupMenu
    Left = 48
    Top = 184
    object Create: TMenuItem
      Caption = '&Create'
      OnClick = CreateClick
    end
    object Edit: TMenuItem
      Caption = '&Edit'
      OnClick = EditClick
    end
    object Rename: TMenuItem
      Caption = '&Rename'
      OnClick = RenameClick
    end
    object Delete: TMenuItem
      Caption = '&Delete'
      OnClick = DeleteClick
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object SetParameters: TMenuItem
      Caption = '&Set parameters'
      OnClick = SetParametersClick
    end
    object GetParameters: TMenuItem
      Caption = '&Get parameters'
      OnClick = GetParametersClick
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object DialSync: TMenuItem
      Caption = 'Dial (S&ync)'
      OnClick = DialSyncClick
    end
    object DialAsync: TMenuItem
      Caption = 'D&ial (Async)'
      OnClick = DialAsyncClick
    end
    object Hangup: TMenuItem
      Caption = '&Hangup'
      OnClick = HangupClick
    end
  end
  object Ras: TRasObject
    PhoneBook.Strings = (
      'Test2'
      'Dial-up Connection')
    RefreshInterval = 1500
    OnStatusChange = RasStatusChange
    Left = 16
    Top = 184
  end
end