main.dfm

delphi下的号码翻译控件

object FormMain: TFormMain
  Left = 333
  Top = 169
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Translate Number'
  ClientHeight = 361
  ClientWidth = 323
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object FrameCallingFrom: TGroupBox
    Left = 5
    Top = 8
    Width = 316
    Height = 57
    Caption = 'Calling From'
    TabOrder = 0
    object ComboLocations: TComboBox
      Left = 8
      Top = 22
      Width = 185
      Height = 21
      ItemHeight = 13
      TabOrder = 0
      OnChange = ComboLocationsChange
    end
    object CommandShowLocations: TButton
      Left = 208
      Top = 19
      Width = 91
      Height = 25
      Caption = 'Show &Locations'
      TabOrder = 1
      OnClick = CommandShowLocationsClick
    end
  end
  object GroupBox2: TGroupBox
    Left = 5
    Top = 80
    Width = 316
    Height = 153
    Caption = 'Number to Call'
    TabOrder = 1
    object LabelAreaCode: TLabel
      Left = 8
      Top = 48
      Width = 53
      Height = 13
      Caption = 'Area Code:'
    end
    object Label4: TLabel
      Left = 8
      Top = 96
      Width = 40
      Height = 13
      Caption = 'Number:'
    end
    object ComboCountries: TComboBox
      Left = 8
      Top = 16
      Width = 185
      Height = 21
      ItemHeight = 13
      TabOrder = 0
    end
    object TextAreaCode: TEdit
      Left = 8
      Top = 64
      Width = 121
      Height = 21
      TabOrder = 1
    end
    object TextNumber: TEdit
      Left = 8
      Top = 112
      Width = 121
      Height = 21
      TabOrder = 2
    end
    object CommandCall: TButton
      Left = 208
      Top = 14
      Width = 91
      Height = 25
      Caption = '&Translate'
      TabOrder = 3
      OnClick = CommandCallClick
    end
    object CheckTranslateNumbers: TCheckBox
      Left = 144
      Top = 120
      Width = 161
      Height = 17
      Caption = 'Apply dialing rules for location'
      Checked = True
      State = cbChecked
      TabOrder = 4
      OnClick = CheckTranslateNumbersClick
    end
    object amTapiPro1: TamTapiPro
      Left = 224
      Top = 64
      Width = 32
      Height = 32
      ControlData = {000300000B00FFFF030010000000030004000000}
    end
  end
  object GroupBox3: TGroupBox
    Left = 5
    Top = 248
    Width = 316
    Height = 105
    Caption = 'Translated Number'
    TabOrder = 2
    object Label1: TLabel
      Left = 8
      Top = 24
      Width = 77
      Height = 13
      Caption = 'Display Number:'
    end
    object LabelDisplayableNumber: TLabel
      Left = 8
      Top = 40
      Width = 289
      Height = 13
      AutoSize = False
    end
    object Label5: TLabel
      Left = 8
      Top = 64
      Width = 77
      Height = 13
      Caption = 'Display Number:'
    end
    object LabelDialableNumber: TLabel
      Left = 8
      Top = 80
      Width = 289
      Height = 13
      AutoSize = False
    end
  end
  object MainMenu1: TMainMenu
    Left = 272
    Top = 144
    object File1: TMenuItem
      Caption = '&File'
      object Readme1: TMenuItem
        Caption = 'Readme'
        OnClick = Readme1Click
      end
      object Exit1: TMenuItem
        Caption = 'Exit'
        OnClick = Exit1Click
      end
    end
    object PleaseClickMe1: TMenuItem
      Caption = 'Please Click Me'
      OnClick = PleaseClickMe1Click
    end
  end
end