form1.frm

Fontes e exemplos CALLER ID DELPHI

VERSION 5.00
Object = "{5F39EED7-4335-4B16-B622-AEC507E3E5B6}#1.0#0"; "micDTMFBoCx.ocx"
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   7995
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   9180
   LinkTopic       =   "Form1"
   ScaleHeight     =   7995
   ScaleWidth      =   9180
   StartUpPosition =   3  'Windows Default
   Begin VB.TextBox Text11 
      Height          =   375
      Left            =   8640
      TabIndex        =   37
      Text            =   "00"
      Top             =   1080
      Width           =   375
   End
   Begin VB.TextBox Text10 
      Height          =   375
      Left            =   8040
      TabIndex        =   32
      Text            =   "DEMO31D"
      Top             =   1560
      Width           =   975
   End
   Begin VB.TextBox Text9 
      Height          =   375
      Left            =   1680
      TabIndex        =   31
      Top             =   1560
      Width           =   4095
   End
   Begin VB.CommandButton Command5 
      Caption         =   "Desativar e Sair"
      Height          =   495
      Left            =   360
      TabIndex        =   6
      Top             =   6600
      Width           =   2535
   End
   Begin VB.CommandButton Command4 
      Caption         =   "Vis韛el / Invisivel"
      Height          =   375
      Left            =   360
      TabIndex        =   5
      Top             =   4560
      Width           =   2535
   End
   Begin VB.CommandButton Command3 
      Caption         =   "Fechar tela de configura玢o"
      Height          =   375
      Left            =   360
      TabIndex        =   4
      Top             =   4080
      Width           =   2535
   End
   Begin VB.CommandButton Command2 
      Caption         =   "Abrir tela de configura玢o"
      Height          =   375
      Left            =   360
      TabIndex        =   3
      Top             =   3600
      Width           =   2535
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Ativar"
      Height          =   375
      Left            =   360
      TabIndex        =   2
      Top             =   3120
      Width           =   2535
   End
   Begin VB.Frame Frame2 
      Height          =   735
      Left            =   120
      TabIndex        =   1
      Top             =   120
      Width           =   8895
      Begin VB.Label Label11 
         Alignment       =   2  'Center
         Caption         =   "Usando todos os recursos do componente micDTMFoCx (Ver 1.5)"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000080&
         Height          =   375
         Left            =   120
         TabIndex        =   28
         Top             =   240
         Width           =   8655
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   " Leitura direta ( sem usar os Eventos)"
      Height          =   5175
      Left            =   120
      TabIndex        =   0
      Top             =   2160
      Width           =   3135
      Begin micDTMFBoCx.micDTMFBoxX micDTMFoCx1 
         Height          =   315
         Left            =   240
         TabIndex        =   35
         Top             =   480
         Width           =   2535
         a1Active        =   0   'False
         a2DDDLocal      =   "00"
         a3RootPlugIn    =   "N鉶 informado"
         a4PlugInRegistry=   "DEMO31D"
         a5ClearAllDigits=   "#"
         a6ModoOperac    =   0
         a7ScreenRestore =   0   'False
         a8Sensibility   =   8
         a9NotDetectTipo =   0   'False
         AutoComplete    =   -1  'True
         AutoDropDown    =   0   'False
         AutoCloseUp     =   0   'False
         BevelInner      =   2
         BevelKind       =   0
         BevelOuter      =   1
         Style           =   0
         CharCase        =   0
         Color           =   8388608
         Ctl3D           =   -1  'True
         DragCursor      =   -12
         Object.DragMode        =   0
         DropDownCount   =   8
         Enabled         =   0   'False
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ImeMode         =   3
         ImeName         =   ""
         ItemHeight      =   13
         ItemIndex       =   -1
         MaxLength       =   0
         ParentColor     =   0   'False
         ParentCtl3D     =   -1  'True
         Sorted          =   0   'False
         Text            =   "0 (00) 0000-0000"
         Object.Visible         =   -1  'True
         SelText         =   ""
         DroppedDown     =   0   'False
         SelLength       =   0
         SelStart        =   0
         DoubleBuffered  =   0   'False
      End
      Begin VB.CommandButton Command6 
         Caption         =   "Limpar detec玢o"
         Height          =   375
         Left            =   240
         TabIndex        =   30
         Top             =   2880
         Width           =   2535
      End
      Begin VB.Label Label2 
         Caption         =   "Tipo, DDD e Fone formatados"
         Height          =   255
         Left            =   240
         TabIndex        =   8
         Top             =   240
         Width           =   2535
      End
      Begin VB.Shape Shape1 
         Height          =   1455
         Left            =   120
         Top             =   3600
         Width           =   2775
      End
      Begin VB.Label Label1 
         Alignment       =   2  'Center
         Caption         =   "Voc