Pgina 1 de 3
tGet
Reviso: 23/02/2003
Abrangncia
Verso 5.07
Verso 5.08
Verso 6.09
Verso 7.10
Classe de controle para entrada de dados editveis.
Hierarquia
tSrvObject -> tControl -> tGet
Descrio
Use tGet para criar um controle que armazene ou altere o contedo de uma varivel atravs de
digitao. O contedo da varivel s modicado quando o controle perde o foco de edio para
outro controle.
Propriedades
Nome
lPassword
Picture
Tipo / Descrio
Lgico. Se .T. o controle se comporta como entrada de dados de senha, exibindo
asteriscos * para esconder o contedo digitado.
Caractere. Mscara de formatao do contedo a ser exibido.
Mtodos
z
New
Descrio
Mtodo construtor do controle.
Sintaxe
New([anRow], [anCol], [abSetGet], [aoWnd],
[anWidth], [anHeight], [acPict], [abValid], [anClrFore],
[anClrBack], [aoFont], [lPar12], [oPar13], [alPixel],
[cPar15], [lPar16], [abWhen], [lPar18], [lPar19],
[abChange], [alReadOnly], [alPassword], [cPar23],
[acReadVar], [cPar25], [lPar26], [nPar27], [lPar28])
Parmetro
Tipo / Descrio
anRow
Numrico, opcional. Coordenada
vertical em pixels ou caracteres.
anCol
Numrico, opcional. Coordenada
horizontal em pixels ou caracteres.
Bloco de cdigo, opcional. Bloco de
cdigo no formato {|u| if( Pcount( )
>0, <var>:= u, <var> ) } que o
[Link]
24/8/2004
Pgina 2 de 3
Parmetros
abSetGet
controle utiliza para atualizar a
varivel <var>. <var> deve ser tipo
caracter, numrico ou data.
aoWnd
Objeto, opcional. Janela ou controle
onde o controle ser criado.
anWidth
Numrico, opcional. Largura do
controle em pixels.
anHeight
Numrico, opcional. Altura do controle
em pixels.
acPict
Caractere, opcional. Mscara de
formatao do contedo a ser exibido.
abValid
Bloco de cdigo, opcional. Executado
quando o contedo do controle deve
ser validado, deve retornar .T. se o
contedo for vlido e .F. quando o
contedo for invlido.
anClrFore
Numrico, opcional. Cor de fundo do
controle.
anClrBack
Numrico, opcional. Cor do texto do
controle.
aoFont
Objeto, opcional. Objeto tipo tFont
utilizado para definir as caractersticas
da fonte utilizada para exibir o
contedo do controle.
lPar12
Reservado.
oPar13
Reservado.
alPixel
Lgico, opcional. Se .T. as
coordenadas informadas so em
pixels, se .F. so em caracteres.
cPar15
Reservado.
lPar16
Reservado.
abWhen
Bloco de cdigo, opcional. Executado
quando mudana de foco de entrada
de dados est sendo efetuada na
janela onde o controle foi criado. O
bloco deve retornar .T. se o controle
deve permanecer habilitado ou .F. se
no.
lPar18
Reservado.
lPar19
Reservado.
abChange
Bloco de cdigo, opcional. Executado
quando o controle modifica o valor da
varivel associada.
alReadOnly
Lgico, opcional. Se .T. o controle no
[Link]
24/8/2004
Pgina 3 de 3
poder ser editado.
Retorno
alPassword
Lgico, opcional. Se .T. o controle
exibir asteriscos * no lugar dos
caracteres exibidos pelo controle para
simular entrada de senha.
cPar23
Reservado.
acReadVar
Caractere, opcional. Nome da varivel
que o controle dever manipular,
dever ser a mesma varivel
informada no parmetro abSetGet, e
ser o retorno da funo ReadVar( ).
cPar25
Reservado.
lPar26
Reservado.
nPar27
Reservado.
lPar28
Reservado.
O controle construdo.
Exemplo
#include [Link]
User Function TesteGet()
Local oDlg, oGet1, oButton, nGet1:=0
DEFINE MSDIALOG oDlg FROM 0,0 TO 300,300 PIXEL TITLE Meu Get
oGet1:= TGet():New(10,10,{|u| if(PCount()>0,nGet1:=u,nGet1}}, oDlg,;
100,20,@E 999,999.99,;
{|o|nGet1>1000.00},,,,,,.T.,,,,,,,,,,nGet1)
/* Tem o mesmo efeito
@ 10,10 MSGET oGet1 VAR nGet1 SIZE 100,20 OF oDlg PIXEL PICTURE @E 999,999.99 VALID nGet1>1000.00
*/
// Boto para fechar a janela
@ 40,10 BUTTON oButton PROMPT Fechar OF oDlg PIXEL ACTION oDlg:End()
ACTIVATE MSDIALOG oDlg CENTERED
MsgStop( O valor +Transform(nGet1,@E 999,999.00) )
Return NIL
Grupos Relacionados
Principal / A Linguagem AdvPl / Classes da Interface Visual / Classes de Componentes /
Classes de Componentes Visuais
Veja tambm
Principal / A Linguagem AdvPl / Classes da Interface Visual / Classes de Componentes /
tControl
Principal / A Linguagem AdvPl / Classes da Interface Visual / tSrvObject
Topo da Pgina
[Link]
24/8/2004